回答受付が終了しました

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

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

回答(2件)

0

たまたま出来ていたのでは? コードにはそのような機能はないと思いますが。 若し、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

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