targetでクリックしたら○

指定したセルは○ではなく△が表示されるようにしたいのですが上手くいきません。
Intersectで実行すると下記みたいに削除ができません。
If Intersect(Target, Range("a5:d5")) Is Nothing Then
exit sub
else
Target.Value = "△"
end if
★a5:d5は△でそれ以外は○を表示したい


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("d:i")) Is Nothing Then
Exit Sub
Else
End If
If Target.Value = "○" Then 'クリックで入力
Target.Value = "" 'クリックで削除
Else
Target.Value = "○"

Application.EnableEvents = False
Range("a1").Activate
Application.EnableEvents = True

End Sub
どうぞよろしくお願いします。

No.2 ベストアンサー 回答者： めぐみん_ 回答日時： 2021/10/14 21:31

Ｄ５って 〇 or △？

＞★a5:d5は△でそれ以外は○を表示したい

なら、

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target

If Not Intersect(.Cells, Range("a5:d5")) Is Nothing Then
.Value = IIf(.Value = "△", "", "△")
ElseIf Not Intersect(.Cells, Range("d:i")) Is Nothing Then
.Value = IIf(.Value = "○", "", "○")
End If

End With

Application.EnableEvents = False
Range("a1").Activate
Application.EnableEvents = True

End Sub

この回答へのお礼

早速の回答ありがとうございました。やりたかったことが完成しました。

お礼日時：2021/10/14 22:40

No.1 回答者： mygoonickname 回答日時： 2021/10/14 21:05

こんばんは。

質問と幾つかコードがあって、何を希望されていて、何が分からないのか、
イマイチ、良く分かりませんが、下記の様な事でしょうか？

Intersectで実行すると下記みたいに削除ができません。
If Intersect(Target, Range("a5:d5")) Is Nothing Then
Target.Value = "○"
else
Target.Value = "△"
end if
★a5:d5は△でそれ以外は○を表示したい

この回答へのお礼

早速の回答ありがとうございました。また、わかりずらくてすみません。
再度クリックしたら空になるのも必要でした。

お礼日時：2021/10/14 22:41