０から始めるVBA―Do～Loop【繰り返し処理】

このページではVBAの基本―。繰り返し処理を実現する方法「Do～Loop」ステートメントの使い方を解説します。

このページで学べる内容

Do～Loopステートメントの意味と使い方
【危険】無限ループとは？
For文との違い―詳細解説ページへのリンクあり

VBAを用いて業務効率化を行う際に、知っておくと便利な重要知識となりますので是非最後までご覧ください

基本構文①―Do～Loop（While条件を用いる方法）
基本構文②―Do～Loop（Until条件を用いる方法）
1. Until条件とは？：Do~Loopステートメント
2. サンプルコード：Do～Loop（Until条件を利用する場合）
回数を指定したい場合はFor文が便利
０からプログラミングを学びたい方は

基本構文①―Do～Loop（While条件を用いる方法）

基本構文（While条件を用いる方法①）

Do While (条件式)
------処理-------
Loop

基本構文（While条件を用いる方法②）

Do
------処理-------
Loop While (条件式)

上記２つの基本構文の違いは、While条件の記述場所箇所です。

While条件は、Doの直後においても、Loopの後ろにおいても同じ意味になります（処理の内容は変わりません。）

一般的には、可読性向上（読みやすくする）のため、Doの直後に指定するのがおすすめです。

While条件とは？：Do~Loopステートメント

While条件とは、Do～Loopステートメントが実行される条件のことを指し示します。Whileの後の（条件式）が当てはまる間（TRUEの間）に処理が繰り返されます。

Do While i < 20
` ここに繰り返したい処理を記述する。
    i = i + 1　`処理が完了したらカウンタを１つあげる
Loop

上記の例で言うと、While条件を i < 10 としています。つまり、変数「i」が「20以下」の場合、処理が繰り返されます。

仮に、条件式を 10 = 10 などのように常に成り立つようにしてしまうと無限ループに陥ります。

無限ループに陥ったら

無限ループとは、その名の通り処理が永遠に続いてしまうことです。一般的なプログラミング言語であれば、例外処理が走ってエラーメッセージが出力されたりするのですが、VBAの場合は動き続けてしまう場合がたくさんあります。

もし、VBAを実行した際に処理がとまらなくなったら「ESC」キーを押しましょう。強制的に、VBAを中断し処理を終了させることができます。

サンプルコード：Do～Loop（While条件を利用する場合）

サンプルコード

While条件を用いたDo~Loopステートメントのサンプルです。

Sub HelloWorld()
`変数宣言（繰り返し処理のカウンタ）
Dim i As Integer

`変数「i」に初期値１を代入する
i = 1

`繰り返し処理（19回続ける）
Do While i < 20
      Worksheets("Sheet1").Cells(i, 1).Value = "HELLO EXCEL VBA WORLD"
    i = i + 1
Loop

End Sub

While条件の場合、通常はカウンタ（ただの変数です）と一緒に利用します。

このサンプルコードでは、A列の１行目から１９行目に「HELLO EXCEL VBA WORLD」と入力していきます。

処理結果

この画像には alt 属性が指定されておらず、ファイル名は HelloWorld_Mugen.png です

上記サンプルコードのひっかかりポイントは、１１行目の「i = i + 1」で変数 i の増加処理を忘れないことです。

もし、この変数 i の増加処理を忘れた場合、While条件「i>20」が常に成立してしまうため、無限ループに陥ります。

※サンプルコード中のDim（変数宣言）の詳細は以下の記事をご覧ください。

Whileの記述方法を覚えておけばDo/Loop構文の基本理解はOKです。

このページでは、合わせてUntil条件を利用した書き方も解説します。次の章では、Untilを利用するパターンの書き方を解説します。

基本構文②―Do～Loop（Until条件を用いる方法）

基本構文（Until条件を用いる方法①）

Do Until (条件式)
------処理-------
Loop

基本構文（Until条件を用いる方法②）

Do
------処理-------
Loop Until (条件式)

基本的には、While条件を用いる場合と記述方法は変わりません。Until条件の場合も、可読性向上のためにDoの直後にUntil条件を記述することが一般的です。

Until条件とは？：Do~Loopステートメント

Until条件はWhile条件と異なり、条件式の値が当てはまらない間（FALSEの場合）に処理が繰り返されます。

Whileは「TRUE」の場合でしたが、Untilは逆の「FALSE」です。条件式に、絶対に成り立たない「10 = 9」のような式を記述してしまうと無限ループに陥ります。

Whileの方が分かりやすいので、できるだけWhileを利用するのがおすすめです。

サンプルコード：Do～Loop（Until条件を利用する場合）

サンプルコード

While条件の説明で用いたサンプルコードと全く同じ結果となるコードです。

ポイントは、①条件に「Until」を指定することと、②条件式の書き方です。

Sub HelloWorld()
`変数宣言（繰り返し処理のカウンタ）
Dim i As Integer

`変数「i」に初期値１を代入する
i = 1

`繰り返し処理（19回続ける）
Do until i = 20
      Worksheets("Sheet1").Cells(i, 1).Value = "HELLO EXCEL VBA WORLD"
    i = i + 1
Loop

End Sub

処理結果

初心者が誤解しがちなポイントは、「i = 20」になったら処理を止まるという点です。すなわち、処理は19回しか繰り返されません。

「20になるまで」という言葉を利用すると、20回繰り返されるような錯覚に陥ってしまう場合があります。改めて、Until条件は「FALSE」の間だけ処理が行われることを注意して覚えておいてください。