vba初心者です

A1に入力されるとB1がクリア、またB1に入力されると A1がクリアになるようなやり方を教えてください。
よろしくお願い申し上げます。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/05/27 10:01

設定したいシートの

シートモジュールに以下のマクロを登録してください。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim tadr As String
tadr = Target.Address(False, False)
If tadr <> "A1" And tadr <> "B1" Then Exit Sub
Application.EnableEvents = False
If tadr = "A1" Then
If Range("A1").Value <> "" Then Range("B1").Value = ""
Else
If Range("B1").Value <> "" Then Range("A1").Value = ""
End If
Application.EnableEvents = True
End Sub