変更時に対応する列をクリアします

Question

私はお互いに対応する必要がある2つの列を持っています。 A2-A51 & B2-B51。列Aは名前を含み、列Bは日付を含む。

：私はこれを試してみてください列A内のセルがクリアされている場合、同じ行の対応する一つが

Option Explicit 

Private Sub Worksheet_Change() 
    If Intersect(ActiveCell, Range("A2:A51")) Is Nothing Then 
     If ActiveCell.Value = "" Then 
      Range("B" & Range("A2:A51").Row).Clear 
     End If 
    End If 
End Sub 

Answer 1

列Bでクリアされている上、変更イベントを作成しようとしていますあなたのシートのコードに入れてください。