评估包含无效数据的日期格式的单元格时，Excel VBA溢出错误

Question

我正在输入数据，但在“采购订单日期”单元格中错误地输入了“采购订单编号”。

这导致下一行出现溢出错误。

If Target.Column > 1 And Target <> "" Then

Target.Column的评估结果达到了预期的2，所以我很确定它在Target <>“”上失败了。

目标单元格设置为日期格式，然后在其中键入了“ 4502554236”（该结果不能得出正确的日期）。 现在看一下工作表，我看到该单元格充满###########。

我确定该单元格不为空，但我想还需要检查该单元格中的数据是否不是错误？

这样做的正确方法是什么？

谢谢

Answer 1

如果您确定Target只是一个单元格，则可以随时使用以下方法进行检查：

..........If Target.Text <> "" ...................

Answer 2

如果需要测试单元格中的错误，则可以使用IsError()函数。 在您的情况下，这不是问题，也不是导致下一行溢出的原因。 不能在单元格中表示为日期的值不是错误 （对于该单元格格式而言只是无效的）-Excel只是将其显示为字符串“＃”。 您可以通过插入以下行来验证这一点，该行将报告“ False”：

Debug.Print IsError(Target)

问题是您依赖于Target作为Date ，因此这就是您需要测试的内容。 方便地，您可以使用IsDate函数进行测试。 尝试用以下内容替换您的If语句：

`If Target.Column > 1 And IsDate(Target) Then`

此后的代码也有几个问题（来自注释）：

If Target > "1899-12-30" And Target < "1900-02-01" Then _ 
   Target = CDate(Year(Date) & "-" & Month(Date) & "-" & _
   Format(Day(Target + 1), "00"))

首先，您要在比较中混合使用String和Date类型，这可能是灾难的秘诀，因为您实际上是在进行字符串比较，而不是日期比较。 这完全取决于日期的格式。 考虑以下代码行：

Debug.Print DateSerial(2000, 1, 1) > "1899-12-30"

在我的区域设置中，它的评估结果为False，因为它基本上是在测试这个...

Debug.Print "1/1/2000" > "1899-12-30"

...而'/'恰好是“小于”“ 8”。

请注意，由于1899-12-30是VBA的生效日期，因此您可以将其替换为简单的> 0 。 使用DateSerial构建要测试的日期更加安全，容易并且可读性强。 请注意，您还可以通过一次调用Format来简化格式化日期字符串的构建：

Format$(Date + 1, "yyyy-mm-dd")

但是，如果您已经在单元格格式中使用了该格式（通过字符串比较的工作证明），则可以让Excel为您进行格式设置并将日期直接设置为该单元格。 结合所有这些，您将获得如下内容：

If Target.Column > 1 And IsDate(Target) Then
    If Target > 0 And Target < DateSerial(1900, 2, 1) Then
        Target = Date + 1
    End If
End If