特定のセル範囲に同じ処理を行う（For Each…Nextステートメント）

特定のセル範囲にまとめて同じ処理を行う場合にもFor Each…Next文を使用します。

[書式]

For Each 変数　In セル範囲     

    処理

Next

セル範囲に対象となるセル範囲を指定します。

[例]　

For Each セル範囲
In Range(“A3:C10”)

If セル範囲.Value = “” Then

セル範囲.Interior.ColorIndex = 12

End If

Next

[サンプルC111]

Sub C111()

Worksheets(“C111”).Select

Dim セル範囲 As Range    　　　　　　①

For Each セル範囲 In Range(“A3:C10”)　　②

If セル範囲.Value = “” Then    

セル範囲.Interior.ColorIndex = 12

End If

Next

End Sub

Dim セル範囲 As Range    　　　　　　①

Rangeオブジェクト型の「セル範囲」という名前の変数を宣言しています。

For Each セル範囲 In Range(“A3:C10”)　　②

In Range(“A3:C10”)で「A3～C10」のセル範囲すべてに対し、For Each文を使って

If セル範囲.Value = “” Then    

セル範囲.Interior.ColorIndex = 12

と記述して、

もし、セルに値が入っていない部分には塗りつぶしを行います。