回答編集履歴
2
修正
test
CHANGED
|
@@ -18,7 +18,7 @@
|
|
|
18
18
|
|
|
19
19
|
For Each r In Range("I8:T17")
|
|
20
20
|
|
|
21
|
-
If r.Interior.Color
|
|
21
|
+
If r.Interior.Color = RGB(0, 0, 0) Then
|
|
22
22
|
|
|
23
23
|
Flag = True
|
|
24
24
|
|
1
訂正
test
CHANGED
|
@@ -8,13 +8,15 @@
|
|
|
8
8
|
|
|
9
9
|
|
|
10
10
|
|
|
11
|
+
Dim Flag As Boolean
|
|
12
|
+
|
|
11
|
-
Dim
|
|
13
|
+
Dim r As Range
|
|
12
14
|
|
|
13
15
|
|
|
14
16
|
|
|
15
17
|
Flag = False
|
|
16
18
|
|
|
17
|
-
For Each r
|
|
19
|
+
For Each r In Range("I8:T17")
|
|
18
20
|
|
|
19
21
|
If r.Interior.ColorIndex = RGB(0, 0, 0) Then
|
|
20
22
|
|