我正在使用VBA捕获输入到单元格中的日期。我遇到的问题是,如果单元格为空,则VBA将其读取为12:00:00 AM,因此VBA中的ISDATE()函数将其视为日期,但代码会因为不是实际日期而爆炸。什么VBA语法可以检查以验证单元格是否包含DATE?
这是我目前的语法
Sub IsDate()
Dim d1 As Date
d1 = CDate(Range("A1").Value)
If IsEmpty(Range("A1")) = False Then
If IsDate(d1) = True Then
'Continue
End If
End If