数値か日付か確認する。
数字ならTRUEを返す
IsNumeric
日付ならTRUEを返す
IsDate
サンプルソース
——————————
Option Explicit
Sub start()
Dim day As Date
Dim i As Double
i = 12.3
Option Explicit
Sub start()
Dim day As Date
Dim i As Double
i = 12.3
Range(“A1”) = IsNumeric(day)
Range(“A2”) = IsDate(i)
Range(“A3”) = IsNumeric(i)
Range(“A4”) = IsDate(day)
End Sub
——————————
実行結果
FALSE
FALSE
TRUE
TRUE