删除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