セルに入力されている値が日付かどうかを調べるには、IsDate 関数を使用します。

引数に、セルや値を指定すると、日付の場合はTrueが返されます。

以下に例を示します。



    If IsDate(ActiveCell.Value) Then
  MsgBox "日付です"
Else
  MsgBox "日付ではありません"
End If

実行例を以下に示します。