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

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

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

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

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

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

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

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

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

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

条件_18歳以上か？

ある条件判定が「18歳以上か」という内容になっていた場合、「前判定」の場合には18歳以上という条件に該当しない限り処理が実行されることはありません。処理の前に必ず条件判定が存在するからです。

一方、「後判定」の場合には18歳以上という条件に該当しなくても1度目（最初）の処理は実行されてしまいます。このフローはくり返しを想定しているため、条件判定もくり返されるのですが、1度目（最初）に限っては、条件判定よりも前に処理が実行されるからです。

つまり、「前判定」のフローは処理は1度も実行されないかもしれないが、「後判定」は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」では使えません。