▼日付データをYYYYMMDD形式の文字列にするユーザー定義関数
Function YYYYMMDD(日付 As Date) As Variant If 日付 >= #3/1/1900# Then YYYYMMDD = Format(日付, "yyyymmdd") Else YYYYMMDD = CVErr(xlErrValue) End If End Function
ネタ元
▼日付データをYYYYMMDD形式の文字列にするユーザー定義関数
Function YYYYMMDD(日付 As Date) As Variant If 日付 >= #3/1/1900# Then YYYYMMDD = Format(日付, "yyyymmdd") Else YYYYMMDD = CVErr(xlErrValue) End If End Function
ネタ元