回答受付が終了しました

ゆうじ

2022/6/21 13:38

22回答

エクセルについての質問です。

エクセルについての質問です。 下記のVBAでセルに〇をつけているのですが、先日まで複数シートを選択してセルクリックすると同じ場所に〇がついていたのですが、急にできなくなってしまいました。心当たりがなく、困っています。どなたか対処法を教えていただけませんでしょうか。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("E8:E23,M8:M23")) Is Nothing Then Exit Sub With Target Select Case .Value Case "" .Value = "○" Case "○" .Value = "" End Select Cancel = True End With End Sub

Visual Basic | Excel・117閲覧・xmlns="http://www.w3.org/2000/svg">100

回答（2件）

0
qgl********

2022/6/21 14:53

たまたま出来ていたのでは？ コードにはそのような機能はないと思いますが。 若し、E8かM8を選択し、ダブルクリックで23行目まで処理するのなら Private Sub Worksheet_BeforeDoubleClick(ByVal target As Range, Cancel As Boolean) Dim r As Range If Intersect(target, Range("E8,M8")) Is Nothing Then Exit Sub With target.Resize(16) For Each r In target.Resize(16) With r Select Case r.Value Case "" .Value = "○" Case "○" .Value = "" End Select End With Next End With End Sub 違ったら無視してください。

0
関数は苦手

カテゴリマスター

2022/6/21 14:05

標準モジュールに Sub Sample() If Application.EnableEvents = False Then MsgBox "イベントマクロが無効になっています。有効に戻します。" Application.EnableEvents = True Else MsgBox "イベントマクロは有効です。" End If End Sub を入れて実行したらどうなりますかね？