運行時錯誤在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