回答編集履歴
1
For Eachの変数はValiantでないとだめだったので修正しておきました。
answer
CHANGED
|
@@ -17,7 +17,7 @@
|
|
|
17
17
|
|
|
18
18
|
|
|
19
19
|
Dim r1 As range
|
|
20
|
-
Dim strAddress
|
|
20
|
+
Dim strAddress
|
|
21
21
|
For Each strAddress In array1
|
|
22
22
|
Set r1 = range(strAddress)
|
|
23
23
|
If (r1.Value = "") Then
|
|
@@ -58,7 +58,7 @@
|
|
|
58
58
|
array3 = Array("D5", "D6", "D15", "D16", "E18", "E19", "D25", "E35", "D36")
|
|
59
59
|
|
|
60
60
|
Dim r1 As range
|
|
61
|
-
Dim strAddress
|
|
61
|
+
Dim strAddress
|
|
62
62
|
For Each strAddress In array1
|
|
63
63
|
Set r1 = range(strAddress)
|
|
64
64
|
r1.Interior.Color = RGB(255, 255, 153)
|