回答編集履歴

2

修正

2018/07/04 01:34

投稿

ttyp03
ttyp03

スコア16996

test CHANGED
@@ -18,7 +18,7 @@
18
18
 
19
19
  For Each r In Range("I8:T17")
20
20
 
21
- If r.Interior.ColorIndex = RGB(0, 0, 0) Then
21
+ If r.Interior.Color = RGB(0, 0, 0) Then
22
22
 
23
23
  Flag = True
24
24
 

1

訂正

2018/07/04 01:34

投稿

ttyp03
ttyp03

スコア16996

test CHANGED
@@ -8,13 +8,15 @@
8
8
 
9
9
 
10
10
 
11
+ Dim Flag As Boolean
12
+
11
- Dim Flag
13
+ Dim r As Range
12
14
 
13
15
 
14
16
 
15
17
  Flag = False
16
18
 
17
- For Each r As Range("I8:T17")
19
+ For Each r In Range("I8:T17")
18
20
 
19
21
  If r.Interior.ColorIndex = RGB(0, 0, 0) Then
20
22