回答編集履歴
2
修正
answer
CHANGED
@@ -8,7 +8,7 @@
|
|
8
8
|
|
9
9
|
Flag = False
|
10
10
|
For Each r In Range("I8:T17")
|
11
|
-
If r.Interior.
|
11
|
+
If r.Interior.Color = RGB(0, 0, 0) Then
|
12
12
|
Flag = True
|
13
13
|
Exit For
|
14
14
|
End If
|
1
訂正
answer
CHANGED
@@ -3,10 +3,11 @@
|
|
3
3
|
```VBA
|
4
4
|
Sub Test()
|
5
5
|
|
6
|
+
Dim Flag As Boolean
|
6
|
-
Dim
|
7
|
+
Dim r As Range
|
7
8
|
|
8
9
|
Flag = False
|
9
|
-
For Each r
|
10
|
+
For Each r In Range("I8:T17")
|
10
11
|
If r.Interior.ColorIndex = RGB(0, 0, 0) Then
|
11
12
|
Flag = True
|
12
13
|
Exit For
|