Excel VBA での質問です。

質問

Excel VBA であるセルをWクリックした場合、
そのセルが"○"なら"×"に、
"×"なら"○"になるようにするにはどうすれば良いのでしょうか？

VBSをちょっとかじった事があるので、
簡単に出来ると思ったのですが・・・・

どなたか、未熟な私に救いの手を。。
よろしくお願い致します。

回答No.2

zap35 · ベストアンサー

イベントがダブルクリックなら、こんな感じ？　ペーストするのはシートモジュールになります

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　With Target
　　If .Value = "○" Then
　　　.Value = "×"
　　Else
　　　If .Value = "×" Then
　　　　.Value = "○"
　　　End If
　　End If
　End With
End Sub

回答No.4

pen_pen_pen

では私はこれで・・・。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
.Value = IIf(.Value = "○", "×", IIf(.Value = "×", "○", .Value))
End With

End Sub

回答No.3

noname#22222

VBA は、色んな書き方が・・・。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Target.Value = Mid$("×○", 1 + Abs(StrComp(Target.Value, "×") = 0), 1)
　　SendKeys "{ENTER}", True
End Sub

回答No.1

X-trail_00

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If StrComp(Target.Value, "〇") = 0 Then
Target.Value = "×"
ElseIf StrComp(Target.Value, "×") = 0 Then
Target.Value = "〇"
End If

End Sub

シートのマクロに上記をセットするだけ