エクセルでセルをクリックすると“○”と入力したい。

質問

VBA”超”初心者です。
理屈抜きにして結果だけ教えていただきたいことがございます。

課題である表記を実現するために、
ワークシートエリアに以下を記しました
（サイトからコピーしてきただけですが。。）

同時に同じワークシート内において、
"R18:R103" においても'処理対象としたいのですが、
どう改造すればよいでしょうか？

（追伸）それと、シングルクリックバージョンも検討したいのです。よろしくお願いします。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
Const rng As String = "O18:O103" '処理対象のセル範囲
If Not Application.Intersect(Target, Range(rng)) Is Nothing Then
If Target.Value = "" Then
Target.Value = "○"

Else
Target.ClearContents
End If
End If
End Sub

回答No.1

tom04 · ベストアンサー

こんばんは！

ダブルクリックの場合

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Application.Intersect(Target, Range("O18:O103,R18:R103")) Is Nothing Then Exit Sub
Cancel = True
With Target
If .Value = "" Then
.Value = "○"
Else
.ClearContents
End If
End With
End Sub

※　シングルクリックは間違ったセルをクリックしても反応してしまいますので、おススメはしませんが・・・
敢えてやると

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("O18:O103,R18:R103")) Is Nothing Then Exit Sub
With Target
If .Value = "" Then
.Value = "○"
Else
.ClearContents
End If
End With
End Sub

こんな感じになると思います。
上記コードは同居させないでください。m(_ _)m

お礼

”超”初心者の私でも出来ました。

これで定例入力が楽になります、ありがとうございました。

回答No.2

keithin

変更前：
Const rng As String = "O18:O103" '処理対象のセル範囲

変更後：
Const rng As String = "O18:O103,R18:R103" '処理対象のセル範囲

だけです。

お礼

できました!!

これで定例入力が楽になります、ありがとうございました。