ExcelVBAについて

テーブル上のセルをダブルクリックして
⚪︎×を切り替えたいです。
どのようなコードにすれば良いですか？

No.2 回答者： ママチャリ 回答日時： 2023/02/21 21:16

こんな感じですかね？

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("テーブル1").ListObject.DataBodyRange) Is Nothing Then
Select Case Target
Case "○"
Target = "×"
Case "×"
Target = "○"
End Select
Cancel = True
End If
End Sub

No.1 回答者： Hypnomatic 回答日時： 2023/02/21 21:09

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Count = 1 And Not Intersect(Target, Me.ListObjects("Table1").Range) Is Nothing Then
Cancel = True
If Target.Value = "⚪︎" Then
Target.Value = "×"
Else
Target.Value = "⚪︎"
End If
End If
End Sub