【Excel VBA】セルの範囲を利用して繰り返し処理を行う方法

皆さんこんにちは、エンジニアのIMMRです。

下記のようなサンプルブックがあったとします。

図１　サンプルブック

パソコンの年間売上台数リストです。

この図に対して、売り上げが１０台以上の場合は

わかりやすく印をつけたいです。

　１０台以上は

　　・文字を青く

　　・背景色は肌色

　　・太文字

下記がその実行結果のイメージ図です。

図２　サンプルブック（イメージ図）

もし、上記のような作業を行うとしたら皆様でしたらどうしますか？

私の場合は、２重のFor Next　ステートメントで作成する方法がまずは頭に浮かびます。

プログラムとしては下記のような感じです。

サンプルプログラム１

Sub test2()

Dim i As Long, j As Long

For j = 3 To 22
    For i = 2 To 13
        If Cells(j, i).Value > 9 Then
            Cells(j, i).Font.Color = RGB(0, 0, 255)
            Cells(j, i).Interior.Color = RGB(255, 242, 204)
            Cells(j, i).Font.Bold = True
        End If
    Next i
Next j

End Sub

こんな感じで２重のFor　Nextを使って作成していきます。

繰り返し処理というとFor　Nextが一番イメージにありますが、

今回は他の繰り返し処理であるFor　Eachについて説明をします。

１．繰り返し処理（For　Each）について

For　Nextでは、指定した回数だけ繰り返しを行うのに対して、

For　Eachでは、指定した範囲だけ処理を行う方法になります。

そのため、For　Nextでは２重におこなった作業もFor　Eachではそれが必要無くなります。

イメージでいうと下記の図のような感じです。

図３　For　Next説明図

For　Nextは１～　のカウントです。

そのため、図３のようなセルの（B３）～（D6）の範囲指定をする場合、

２つのFor　Nextを使う必要があり、

１つ目のFor　Nextが２の時、２つ目のFor　Nextが３～６

１つ目のFor　Nextが３の時、２つ目のFor　Nextが３～６

１つ目のFor　Nextが４の時、２つ目のFor　Nextが３～６

という感じで行っていきます。

図４　For　Each説明図

For　Eachはカウントではなく、範囲で設定します。

そのため、セル（B３）～（D6）という感じで範囲の設定が出来ます。

そうすると

１個目のセル（B3）、２個目のセル（C3）、３個目のセル（D3）

４個目のセル（B4）、５語目のセル（C4）、・・・１２個目のセル（D6）

といった感じで、２重ループとかをしないで、行うことが出来ます。

２．繰り返し処理（For　Each）の記載方法

For　Eachステートメントを使用する時は、

まず、Range型のオブジェクト変数を定義する必要があります。

このオブジェクト変数にFor　Eachで指定した範囲の１つ１つが格納されます。

記載例

Dim オブジェクト変数名 As Range

その次に作成したオブジェクト名と範囲を指定してFor　Eachステートメントを記載します。

記載例

For Each オブジェクト変数名 In セルの範囲
	＊＊＊処理＊＊＊
Next

これにより、範囲指定したセルの１つ１つがオブジェクト変数に格納されるようになりました。

そしたらその１つ１つに対して、処理（文字の色を変える）などを記載していきます。

オブジェクト変数の中に１つ１つのセルの箇所が格納されているので

Cells(j, i).Font.Color = RGB(0, 0, 255)

と記載しないで、

↓

記載例

オブジェクト変数名.Font.Color = RGB(0, 0, 255)

と省略して記載することが出来ます。

３．繰り返し処理（For　Each）のサンプルプログラム

For　Eachステートメントを使用したものが下記のものになります。

図１　サンプルブックを使用して、図２　サンプルブック（イメージ図）ような結果が出力されるようにします。

サンプルプログラム２

Sub test2()

    Dim r As Range

    For Each r In Range("B3:M22")
        If r.Value > 9 Then
            r.Font.Color = RGB(0, 0, 255)
            r.Interior.Color = RGB(255, 242, 204)
            r.Font.Bold = True
        End If
    Next

End Sub

”r”という名前で、オブジェクト変数名を宣言しました。

そして範囲はセル（B3～M22）です。

これにより、指定した範囲内のセルを１つ１つを見ていきます。

そして、１つ１つのセルの値が９以上なら、文字の色を変える等の処理を行うことになります。

４．繰り返し処理（For　Each）のサンプルプログラム（実行結果）

上記サンプルプログラム２を実行した結果です。

図５　サンプルプログラム実行結果

範囲であるセル（B3～M22）において全て確認して、

条件に当てはまるセルについては、文字の色を変えています。

図２　サンプルブック（イメージ図）と同じ結果です。

セルの範囲を利用して繰り返し処理を行うことができました。