运行时错误在Worksheet_Change

Question

删除行，当我有这个代码的问题：

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

我输入文本的一些细胞，我得到一个消息框后，但如果我尝试，我删除该行刚进入了一个文本，我得到一个错误：

Run-time error '13': Type mismatch

我怎样才能解决这个问题？为什么这种情况不能抓住它？

Answer 1

当您作为结果删除行时，整个行在您的过程中为target对象。因此你的宏不能返回该行的值。

什么程序员通常做的是这是你的消息框前检查附加条件：

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