excel - 删除 Worksheet_Change 中的行时出现运行时错误

Question

我对这段代码有疑问：

Private Sub Worksheet_Change(ByVal Target As Range)
     If Target Is Nothing Then Exit Sub
     MsgBox Target.Value 
End Sub

在我向某个单元格输入文本后，我会看到一个消息框，但是如果我尝试删除刚刚输入文本的行，则会收到错误消息：

运行时错误“13”：类型不匹配

我该如何解决这个错误？为什么条件没有抓住它？

Answer 1

结果，当您删除行时，整行都是target您的过程中的对象。因此，您的宏无法返回该行的值。

程序员通常做的是在您的消息框之前检查的附加条件：

If Target.Count =1 Then
    'your messagebox here
End If