【Excel VBA】条件で繰り返しを行うか判断する方法

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

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

図１　サンプルブック

このリストにおいて、６月と７月だけの参加者人数の合計を計算したいと思います。

どのように行いますか。

もちろん、一番上から一番下までFor　Nextを使用して

その中で日付が６月と７月分だけ参加者人数だけを計算するという方法もあります。

しかし、今回は、Nor　Nextではなく、Do　Loopという繰り返し作業を行っていきたいと思います。

１．Do　Loopステートメントについて

Do　Loopステートメントも繰り返し処理の一つです。

では、For 　Nextとなにが違うのかというと

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

Do　Loopは指定した条件だった場合、繰り返しを行います。

また、Do　Loopは２種類あり、

１つは、指定の条件になるまで処理を繰り返す

もう一つは指定の条件である場合は処理を繰り返す

があります。

まあ、行っていることは同じなのですが・・・

図１　サンプルブックでイメージしてみると

図２　Do　Loop説明

２つとも同じ範囲だが、条件が違う。

６月と７月の範囲において、

①６月～７月の範囲で処理を続ける。→８月になるまで処理を続ける。

②６月～７月の範囲で処理を続ける。→８月より前の月だったら処理を続ける。

という感じです。

２．Do　Loopステートメントの記載方法

上記でも説明しましたが、Do　Loopは２種類あり、記載方法も変わります。

その記載方法について、１つずつ説明します。

①指定の条件になるまで処理を繰り返す

これは条件が満たすまで処理を続ける方法です。

記載方法は下記の通りです。

記載方法

Do Until 条件
    処理
Loop

Do Until 　条件で記載します。

これは、条件になるまで、処理を続ける。

Do Until ～Loopまでの処理繰り返すといった方法です。

②指定の条件である場合は処理を繰り返す

これは条件が満たしている間は処理を続ける方法です。

記載方法は下記の通りです。

記載方法

Do While 条件
    処理
Loop

Do While 　条件で記載します。

これは、条件である場合は処理を続ける。

Do While ～Loopまでの処理繰り返すといった方法です。

３．Do　Loopステートメントの記載（サンプルプログラム）

ではサンプルプログラムを見ていきましょう。

図１　サンプルブックを使用したサンプルプログラムになります。

サンプルプログラム１（①指定の条件になるまで処理を繰り返す）

Sub test1()

    Dim i As Long
    Dim sum_M As Long

    sum_M = 0
    i = 4

    Do Until Month(Cells(i, 1)) = 8
        sum_M = sum_M + Cells(i, 2)
        i = i + 1
    Loop

    Range("E1") = sum_M

End Sub

Do　Until を使用して、繰り返しを行っています。

Do　Untilは、指定の条件になるまで処理を繰り返すです。

条件が８、つまり８月まで処理を続けることになるので、処理の対象は６月と７月になります。

サンプルプログラム２（②指定の条件である場合は処理を繰り返す）

Sub test2()

    Dim i As Long
    Dim sum_M As Long

    sum_M = 0
    i = 4

    Do While Month(Cells(i, 1)) < 8
        sum_M = sum_M + Cells(i, 2)
        i = i + 1
    Loop

    Range("E1") = sum_M

End Sub

Do　While を使用して、繰り返しを行っています。

Do　Whileは、指定の条件である場合は処理を繰り返すです。

条件が８より小さい、つまり８月より前の間は処理を続けることになるので、処理の対象は６月と７月になります。

４．Do　Loopステートメントの記載（サンプルプログラムの実行）

下記の結果のように

Do　Until を使用したサンプルプログラム１（①指定の条件になるまで処理を繰り返す）と

Do　While を使用したサンプルプログラム２（②指定の条件である場合は処理を繰り返す）

同じ結果になりました。

図3　サンプルプログラム１（①指定の条件になるまで処理を繰り返す）実行結果

図4　サンプルプログラム２（②指定の条件である場合は処理を繰り返す）実行結果

Do　Until を使用したサンプルプログラム１（①指定の条件になるまで処理を繰り返す）と

Do　While を使用したサンプルプログラム２（②指定の条件である場合は処理を繰り返す）

のどちらも同じ結果にすることができました。

これにより、条件で繰り返しを行うか判断することができました。