回答編集履歴
1
誤字の修正
test
CHANGED
@@ -34,15 +34,15 @@
|
|
34
34
|
|
35
35
|
Dim sAddress As String
|
36
36
|
|
37
|
-
|
37
|
+
|
38
38
|
|
39
39
|
If Target.Address(False, False) <> "A1" Then Exit Sub
|
40
40
|
|
41
|
-
|
41
|
+
|
42
42
|
|
43
43
|
Me.Unprotect
|
44
44
|
|
45
|
-
|
45
|
+
|
46
46
|
|
47
47
|
Select Case Target.Value
|
48
48
|
|
@@ -56,33 +56,33 @@
|
|
56
56
|
|
57
57
|
End Select
|
58
58
|
|
59
|
-
|
59
|
+
|
60
60
|
|
61
61
|
If Len(sAddress) > 0 Then
|
62
62
|
|
63
63
|
With Me.Range(sAddress)
|
64
64
|
|
65
|
-
With .Areas(1)
|
65
|
+
With .Areas(1)
|
66
66
|
|
67
|
-
.Locked = False
|
67
|
+
.Locked = False
|
68
68
|
|
69
|
-
.Interior.Color = vbYellow
|
69
|
+
.Interior.Color = vbYellow
|
70
70
|
|
71
|
-
End With
|
71
|
+
End With
|
72
72
|
|
73
|
-
With .Areas(2)
|
73
|
+
With .Areas(2)
|
74
74
|
|
75
|
-
.Locked = True
|
75
|
+
.Locked = True
|
76
76
|
|
77
|
-
.Interior.Color = rgbLightGray
|
77
|
+
.Interior.Color = rgbLightGray
|
78
78
|
|
79
|
-
End With
|
79
|
+
End With
|
80
80
|
|
81
81
|
End With
|
82
82
|
|
83
83
|
End If
|
84
84
|
|
85
|
-
|
85
|
+
|
86
86
|
|
87
87
|
Me.Protect
|
88
88
|
|