-
43
名前:名無し
2017年12月12日 (火) 07時14分
-
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("A1:D5")) Is Nothing Then Exit Sub With Target Select Case .Value Case "" .Value = "○" Case "○" .Value = "" End Select End With End Sub
|