エクセル２０１３

A列のセルをダブルクリックしたら、そのセルに○が表示される。
また、たとえば再びダブルクリックしたら×が表示される。
こういうVBAは可能ですか。
マウスだけで簡単に○×の切り替え表示をしたい。
できうる限り速い反応で。

No.2 ベストアンサー 回答者： tom04 回答日時： 2016/08/18 15:19

No.1です。

もっと単純にやればよかったです。
↓でも大丈夫だと思います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cancel = True
With Target
If .Value = "" Or .Value = "×" Then
.Value = "○"
Else
.Value = "×"
End If
End With
End Sub

どうも失礼しました。m(_ _)m

この回答へのお礼

ご回答ありがとうございます。
感激しました！

お礼日時：2016/08/18 17:33

No.3 回答者： GooUserラック 回答日時： 2016/08/18 15:28

こんなのいかがでしょうか？

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

この回答へのお礼

ご回答ありがとうございます。
感激しました！

お礼日時：2016/08/18 17:33

No.1 回答者： tom04 回答日時： 2016/08/18 15:08

こんにちは！

一例です。シートモジュールです。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Cancel = True
With Target
Select Case .Value
Case ""
.Value = "○"
Case "○"
.Value = "×"
Case Else
.Value = "○"
End Select
End With
End Sub

こんな感じではどうでしょうか？m(_ _)m