【ExcelVBA】セルをダブルクリックすると○を記入する。

質問

こんにちは

VBAで
あるセル(一定ではない)をダブルクリックすると、
そのセルに「○」を入力する
としたいのですが、どのようになりますでしょうか。

宜しくお願いいたします。

回答No.4

noname#112806 · ベストアンサー

基本的にほかの方の回答と同じですが、もし○を入力したくないセルがあるのであれば、○を入力したいセル範囲に名前をつけて（例では"○入力"）、以下のコードを入力すればOKです。
ちなみに以下のコードではダブルクリックするごとに○をつけたり消したりします。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Const RangeName As String = "○入力"

　If Not Intersect(Range(RangeName), Target) Is Nothing Then
　　Cancel = True
　　If Target = "○" Then
　　　Target = ""
　　Else
　　　Target = "○"
　　End If
　End If
End Sub

回答No.3

Wendy02

こんにちは。

セルの上下の枠に触れると、ショートカットが働いてジャンプしてしまうことはあるけれども、一応、これで、○は入ります。当面、これでよいと思いますが、不具合がありましたら、お知らせください。

'<シートモジュール－シートタブを右クリック－コードの表示で貼り付ける>

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
　Cancel As Boolean)
　　Target.Value = "○"
　Cancel = True
End Sub

なお、Cancel =True を入れないと、場合によって入力待ちの状態になってしまいます。

回答No.2

tessyu

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　Target.Cells = "○"
End Sub

という感じでどうでしょうか？

回答No.1

Selfishness

Worksheet_BeforeDoubleClickに
Target.value="○"って書けばよいです。