teratail header banner
teratail header banner
質問するログイン新規登録

回答編集履歴

2

修正

2018/07/04 01:34

投稿

ttyp03
ttyp03

スコア17002

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.ColorIndex = RGB(0, 0, 0) Then
11
+ If r.Interior.Color = RGB(0, 0, 0) Then
12
12
  Flag = True
13
13
  Exit For
14
14
  End If

1

訂正

2018/07/04 01:34

投稿

ttyp03
ttyp03

スコア17002

answer CHANGED
@@ -3,10 +3,11 @@
3
3
  ```VBA
4
4
  Sub Test()
5
5
 
6
+ Dim Flag As Boolean
6
- Dim Flag
7
+ Dim r As Range
7
8
 
8
9
  Flag = False
9
- For Each r As Range("I8:T17")
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