ExcelVBAのDo Loopステートメントの基本｜プログラミング学習おすすめ書籍情報発信パソコン初心者エンジニア希望者新人エンジニア IT業界への就職・転職希望者サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site

目標
Do～Loopステートメントの概要と利用方法
ブックマークのすすめ

目標

Do Loop ステートメントを理解して利用できる

Do～Loopステートメントの概要と利用方法

Do～Loopステートメントとは

VBAで利用される繰り返しの制御構文です。

VBAの繰り返しにはFor～NextステートメントとLoop～Doステートメントがあります。

連続したセルへの処理等に利用されることが多いです。

Do～Loopの基本形の構文とサンプルプロシージャ

基本形の構文（Do While～Loop）

Do While 条件
処理
Loop

条件を満たしている間、処理を繰り返します。

基本形の構文（Do～Loop While）

Do
処理
Loop While 条件

処理を必ず一度は行います。その後は、条件を満たしている間、同じ処理を繰り返します。

サンプルプロシージャ１

Sub DoLoop1()
    Dim i As Integer
    Dim j As Integer
    i = 1
    j = 1
    Do While i < 10
        i = i + 1
        j = i + j
    Loop
    MsgBox "1～10までの合計は「" & j & "」です。"
End Sub

実行結果

基本形の構文（Do Until～Loop）

Do Until 条件
処理
Loop

条件を満たすまで、処理を繰り返します。

基本形の構文（Do～Loop Until）

Do
処理
Loop Until 条件

処理を必ず一度は行います。その後は、条件を満たすまで同じ処理を繰り返します。

サンプルプロシージャ２

Sub DoLoop2()
    Dim i As Integer
    Dim j As Integer
    i = 1
    j = 1
    Do Until i = 10
        i = i + 1
        j = i + j
    Loop
    MsgBox "1～10までの合計は「" & j & "」です。"
End Sub

実行結果

Do～Loopとメッセージボックスの利用

Do～Loopステートメントを含め「If Thenステートメント」や「For Nextステートメント」など条件を利用する文ではメッセージボックスの結果を使用することが頻繁にあります。

メッセージボックスの利用方法については別の記事で取り上げます。

サンプルプロシージャ３

次のプロシージャでは印刷確認にメッセージボックスを利用して「はい」をクリックすると印刷をするというようなプロシージャを想定しています。実際の印刷のプロシージャは割愛して「印刷します」のみを表示するようにしていますが、この部分に印刷処理を書けば実際にコピー機を利用したプリントアウトやPDFファイルへの書き出しを行うことが出来ます。

今回はプリントアウトの実際のプログラムは記述していません。

Sub DoLoop3()
    Dim Ans As Integer
    
    Do While Ans <> vbCancel
        Ans = MsgBox("印刷しますか？", vbYesNoCancel, "印刷確認")
            If Ans = vbYes Then
                MsgBox "印刷します。"
            ElseIf Ans = vbNo Then
                MsgBox "印刷をスキップします"
            Else
            End If
    Loop
End Sub

実行結果

「はい」であれば印刷を行い、ループに戻ります。
「いいえ」であれば印刷は行いませんが、こちらもループに戻ります。
「キャンセル」であれな処理を抜けます。

サンプルプロシージャ４

サンプルプロシージャ３をUntilを利用して記述した場合は以下のようになります。

Sub DoLoop4()
    Dim Ans As Integer
        
    Do Until Ans = vbCancel
        Ans = MsgBox("印刷しますか？", vbYesNoCancel, "印刷確認")
            If Ans = vbYes Then
                MsgBox "印刷します。"
            ElseIf Ans = vbNo Then
                MsgBox "印刷をスキップします"
            Else
            End If
    Loop
End Sub