excel - 如何检查读入 VBA 日期的空字段

Question

我有一个 VBA 日期变量读取并获取 Excel 中字段的值:

dim myDate as Date
myDate = MySheet.Range("A1").Value

现在，如果 A1 为空，我打印它给我的值 o myDate

12:00:00 AM

如何在 IF 语句中检查这一点？如，我该换什么？？？与以下:

if myDate = ??? then
    MsgBox ("There is nothing in the field")
Else
    MsgBox (myDate)
End If

Answer 1

如果要测试myDate ，您应该将其声明为类型 Variant

Dim myDate As Variant
myDate = [a1]

If Not IsDate(myDate) Then
    MsgBox "There is no date in the field"
Else
    MsgBox myDate
End If

或者，您可以测试 [a1]看看它是否包含任何东西。