| ★For Each...Next ステートメント Exit For | |||
◎ 指定した範囲や配列の中で繰り返し処理を行い該当データと一致すると繰り返し処理を終える処理を行います。 |
|||
検索条件に一致すると繰り返し処理から抜けるようにするには、Exit Forを使います。 |
|||
| Sub
foreach() 'A1からE5までの範囲でセルが空白なら青色、空白でなかったら赤色に変えます。 Dim 範囲, 要素 Set 範囲 = Range("A1:E5") For Each 要素 In 範囲 If 要素.Value = Empty Then 要素.Interior.ColorIndex = 5 Exit For ←ここに入れる Else 要素.Interior.ColorIndex = 3 End If Next 要素 End Sub |
|||
結果は全然違いますね。 |
|||
 |
|||
|
|||