セルの選択と型の不一致エラー

Question

列Bを監視するこの基本的なworksheet_change関数を作成しました。列Bのセルが削除されると、列Cの削除も更新されます。唯一の問題は、これが変更イベントであるため、一度に2つ以上のセルが変更されると、タイプの不一致エラーがスローされることです。これは、タイプの不一致である ""へのTarget.Address（s）の比較のためです。 1つのセルだけが選択され、複数のセルを選択してもクラッシュしない場合にのみ、この問題を修正する方法はありますか？

Private Sub Worksheet_Change(ByVal Target As Range) 


Dim KeyCells As Range 
Set KeyCells = Range("B2:B51") 

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then 
     If Range(Target.Address).Value = "" Then 
      Range("C" & Target.Row).Clear 
     End If 
    End If 
End Sub 

Answer 1

変更Target範囲が複数のセルであるならば、単純にチェックするには、単に範囲内のセルをカウントすることができます。

コメントで述べたように、あなたがサブを宣言した直後に、あなたが追加することができます。

If Target.Count > 1 Then Exit Subを。 、Range`として点心KeyCells `前

Private Sub Worksheet_Change(ByVal Target As Range) 
If Target.Count > 1 Then 
    Application.EnableEvents = True 
    Exit Sub 
End If 

' Code here that will run, if the Target is just one cell 

End Sub