按下按钮时 VBA 事件抛出错误？

Question

当我单击工作表上的按钮时，将调用以下事件。

我收到错误“类型不匹配”

我怀疑如果事件是由于按下按钮而导致的，我需要另一个 if 语句来停止评估原始 IF？

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target = Range("D4") Then   'Error is here

    End If

End Sub

Answer 1

这个

If Target = Range("D4") Then

相当于这个

If Target.Value = Range("D4").Value Then

这显然不是你想要的。如果 Target.Value 碰巧与 Range("D4").Value 的类型不同，您可能会收到您所描述的错误。

你想要的是这样的:

If Not Intersect(Target, Range("D4")) Is Nothing Then

编辑我刚刚成功重现了您的错误。如果Target范围的大小与Range("D4")不同，即跨越多个单元格，就会发生这种情况。正如 @Dick Kusleiska 指出的，如果两者之一是错误值，也会发生这种情况。可能是其他事情引起的，我不知道。无论如何，重点是，你的 If 条件是错误的!