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': 型が一致しません

このエラーを修正するにはどうすればよいですか? なぜ条件がそれをキャッチしないのですか？

score 1 · Accepted Answer

結果として行を削除すると、行全体がtargetプロシージャのオブジェクトになります。したがって、マクロは行の値を返すことができません。

プログラマーが通常行うことは、メッセージボックスの前にチェックされる追加の条件です。

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

1 に答える 1