VBA│Whileステートメントの使い方。基本とループを抜ける方法

この記事では、VBAのWhileステートメントの概要と使い方を実際のVBAコードも含めて紹介します。

プログラミングの3大要素にも「反復（くり返し）」があるように、ある条件に基づいて処理を繰り返すのは、VBAでも頻出する動作のひとつです。

Whileステートメントは設定されたくり返しの条件を判定し、条件に該当する間は同じ処理をループさせることができます。

VBA（プログラミング）の中でも、くり返し処理の構文は習得必須の内容です。

早速、Whileステートメントの概要と実際のVBAコードを見ていきましょう。

くり返しの前判定と後判定

この記事で紹介するWhileステートメントは設定した条件に該当する間、処理をくり返すという動きをしますが、主に2通りの動作があります。

それは「設定した条件」を判定するタイミングです。論点は処理を実行する中で、1度目（最初）の処理が実行されるかどうかです。

上記が前判定と後判定のイメージ図です。何となく分かっても、具体的なイメージはつきにくいかと思いますので、次の例を考えてみてください。

この記事で紹介するWhileステートメントは「前判定」と「後判定」の性質を、構文により使いわけることができます。

「前判定」の場合は、[Do While・・Loop]を使い、「後判定」の場合には、[Do・・・Loop While]を使います。要は条件判定を前に書くか、後に書くか、です。

もし、Whileを使いたいのに難しくなってきた・・と思えてきたら、難しく考えずに「前判定」を使ってください。くり返しの処理において、1度目は必ず実行しなくてはならない、という状況は少数で、大半は「前判定」で問題ありません。

Do While・・Loop

まずは、使用頻度の高い「Do While・・・LOOP」のWhileステートメントから説明します。前章で説明した中で、「前判定」の動作をするWhileステートメントです。

基本

Do While 条件
・・・
LOOP

• 条件 = 処理をくり返す（実行する）条件
• LOOP = Whileステートメントの有効範囲

実例VBAコード

この実例で紹介するサンプル処理です。

下記のように、ExcelのA列に値が入力されており、「値があれば文字色を赤色にする」という処理をWhileステートメントを使って記述します。処理は、セルが空白になるまでくり返すものとします。

[実例VBAコード（Do While・・Loop）]

Sub Sample()

 Dim Count As Long
 Count = 1
　　
　　Do While Range("A" & Count) <> ""
　　　Range("A" & Count).Font.ColorIndex = 3
　　　Count = Count + 1
　　Loop

MsgBox Count - 1 & "行目まで処理を行いました"

End Sub

上記のVBAコードを実行するとExcelは下記のようになります。

メッセージボックスは「7行目まで」となっており、VBAコード内で8行目までカウントされたあとDo Whileに戻り、設定された条件に該当しなかったため、8度目の処理は行われずに処理が完了したことが分かります。

参考：While・・Wendについて

この章で説明した、Do While・・・Loopと同じ動きをする「While・・・Wend」という構文もあります。

Do WhileをWhileに、LoopをWendに置き換えるだけでどちらを使っても構いませんが、「While・・・Wend」にはループを抜ける処理がありませんので、使用するメリットもありません。（Exit Doが使えません）

参考程度にしてください。

[実例VBAコード（While・・Wend）]

Sub Sample()

 Dim Count As Long
 Count = 1
　　
　　While Range("A" & Count) <> ""
　　　Range("A" & Count).Font.ColorIndex = 3
　　　Count = Count + 1
　　Wend

MsgBox Count - 1 & "行目まで処理を行いました"

End Sub

Do ・・Loop While

次に「Do・・・LOOP While」のWhileステートメントについて説明します。前章で説明した中で、「後判定」の動作をするWhileステートメントです。

構文的には、While 条件の記述箇所が異なるだけです。

基本

Do
・・・
LOOP While 条件

• 条件 = 処理をくり返す（実行する）条件

実例VBAコード

この実例で紹介するサンプル処理です。

下記のように、「値があればセルの背景色を赤色にする」という処理をWhileステートメントを使って記述します。処理は、セルが空白になるまでくり返すものとします。

ただし、Do・・Loop Whileは1度目（最初）の処理は条件判定の前に実行されるという特徴を確認するため、実際には空欄のExcelシートを使います。

[実例VBAコード（Do・・Loop While）]

Sub Sample()

 Dim Count As Long
 Count = 1
　　
　　Do 
　　　Range("A" & Count).Interior.ColorIndex = 3
　　　Count = Count + 1
　　Loop While Range("A" & Count) <> ""

MsgBox Count - 1 & "行目まで処理を行いました"

End Sub

上記のVBAコードを実行するとExcelは下記のようになります。

Whileステートメントのループを抜ける

ここまでで説明したように、Whileステートメントは設定した条件を満たす限り、何度でも処理をくり返しますが、処理回数が増えるとパソコンに負担をかけることもあります。

また、想定外のデータコンディションになっていた場合には、異常な処理回数に発展したり、無限ループに陥ることもリスクとして考えておかなければなりません。

そのため、Whileステートメントに上限回数やその他の条件を定めておき、ループを抜ける処理を組み入れておくことはとても有効です。

たとえばあるサンプルデータを取得する場合で、取得件数が「最大50件」と決まっているようなケースでも、ループを抜ける処理を使います。

ループを抜けるVBAコード

Sub Sample()

 Dim Count As Long
 Count = 1
　　
　　Do While Range("A" & Count) <> ""
　　　Range("A" & Count).Font.ColorIndex = 3
　　　Count = Count + 1

　　　　If Count = 4 Then
    　　　MsgBox "上限到達"
    　　　Exit Do
  　　　End If

　　Loop

MsgBox Count - 1 & "行目まで処理を行いました"

End Sub

Exit Doは、「Do While・・・Loop」と「Do・・・Loop While」で使うことができますが、「While・・・Wend」では使えません。