IsDate関数
データが日付かどうかを調べます。
引数に指定したデータが日付なら”True”、そうでなければ”False”を返します。
実行サンプル
次のシートで、A列のデータが日付かどうかをIsDate関数で確認してB列に入力します。
Sub sample()
'シートの指定
Dim sheet As Worksheet
Set sheet = ActiveSheet
'ループ用の変数
Dim i As Long
Dim str As String
For i = 2 To 7
With sheet
.Cells(i, 2) = IsDate(.Cells(i, 1)) '日付かどうか確認
End With
Next
End Sub
実行結果は次です。
このようにして、データが日付かどうかを確認できます。
7行目は、日付のような形式ですが、35日は無いのですね。日付入力に失敗して文字列になっているイメージです。
コメント