vba - 如何检查Excel中的日期单元格是否为空？

Question

如果感觉这应该很容易，但如果不再次检索单元格的值，我就无法让它工作。

首先，我有 2 个日期单元格:

Dim agreedDate As Date
Dim completedDate As Date

这可行..(但看起来很乱)

agreedDate = Worksheets("Data").Cells(Counter, 7).Value
completedDate = Worksheets("Data").Cells(Counter, 9).Value

If (IsEmpty(Worksheets("Data").Cells(Counter, 7).Value) = True) Or (IsEmpty(Worksheets("Data").Cells(Counter, 9).Value) = True) Then

[.. do stuff]
End If

这行不通——为什么不行？!

agreedDate = Worksheets("Data").Cells(Counter, 7).Value
completedDate = Worksheets("Data").Cells(Counter, 9).Value

If (IsEmpty(agreedDate) = True) Or IsEmpty(completedDate) = True) Then

[.. do stuff]
End If

有没有一种方法可以干净简单地编写 if 语句？

Answer 1

由于只有 Variant 类型的变量可以为 Empty，因此您需要对 Date 类型进行不同的测试。

检查零:

If agreedDate = 0 Or completedDate = 0 Then

但更安全的方法是将变量更改为 Variant 类型，然后进行此测试:

If IsDate(agreedDate) = False Or IsDate(completedDate) = False Then