Ｃｈａｐｔｅｒ.２７ [ 繰り返し処理 Do〜Loop文 ]
■
前回は、
何回繰り返したかを記憶する変数を用意し、最初の数と、最後の数を指定するのでしたね。
しかし、考えてみてください。
例えばババ抜きなどのカードゲーム。
大抵の場合、カードゲームでは自分のターン⇒相手のターンと、規則的に何度も同じ手順を繰り返します。一見すると、
でも、その繰り返す回数は、毎回規則的とは限りません。ババ抜きの場合には、お互いにババを引き続ければ、下手をすると最後の最後で何回もターンが切り替わり、ずーっと終わらない、なんてこともあるかもしれません。
要するに、繰り返す回数が一定ではないケース、というのがゲームにおいては多々あるのです。
こういったケースでは、繰り返しに
そんなわけで、今回は
ただし、先に言っておきますが、ひとつ注意点があります。
これは言い換えると、キチンとした終了条件を指定せずに実行すると、プログラムは永遠に止まらなくなる、という事でもあります。なんだか響きからして恐くないですか？ 恐いですよ……。永遠に止まらないなんて。
ですから、今回の解説をキチンと理解し、正しい方法を学んだ上で、使用するようにしてください。ちょっと大袈裟に書いてますが、やっちゃった〜！ って時に、途中で止める方法はちゃんとあるのでご安心下さい。それは順を追って解説しますのでね。
■いろんな繰り返し方
さて、それでは実際に
先にも言いましたが、
ですから、今回は私にとってのスタンダードな方法に絞って解説することにします。
まずは
字数が少ないせいか、どこか単純な感じがしますね。うどんで例えるなら、つゆに麺だけ……みたいな感じでしょうか。
しかしこのままでは、さっきも書いたとおり、永遠に処理が止まりません。ですので、繰り返し処理を抜けるための、終了条件を追加しなくてはなりません。この終了条件の記述の仕方が、実に様々なのですが、今回は『
■
『
つまり、
それを踏まえて、以下のコードを見てください。
このコードを実行すると、『10』と表示されたメッセージが出ます。
順を追って見ていきましょう。
まず、この
そして、『
そして、
プロシージャの内部で
ですから、プロシージャを実行するたびに、変数Lの値は０〜１０までの範囲で繰り返し処理されることになります。
変数Lが１０になった時点で、終了条件である『
ちょっと駆け足で説明しましたが、理解できたでしょうか。
■終了条件のタイミングを知る
もう少し具体的に言うと、一体どのタイミングで、繰り返し処理の終了が検知されるか、ということですね。
先ほどの例で言えば下のようになります。
先ほど挙げた例の場合には、『
『
この、終了させるタイミングを知っておくことは、繰り返し処理において非常に重要です。
このことを正しく理解していないと、意図しない結果を招き、頭を抱えることになることもあります。
たとえば、以下のようなコードはどうでしょうか。
これを実行すると、実際には何も起きません。繰り返し処理の中に
なぜだか理由は簡単ですね。
一番最初の部分で、変数Lに０を代入しているため、終了条件である『
しかし、ゲームのプログラミングをしていると、いろいろなケースに出くわします。もしかしたら最低でも１回は、繰り返し処理の中を実行してくれないと、困る場面が無いとも限りません。
それでは、最低１回は繰り返し処理の中を通らせたい、という場合にはどうしたらいいのでしょうか。
これには『
つまり、終了の判断を、『
この場合には、終了条件を判断しているのが『
一番最初に『
■
上で書いたように、
ただし、
また、何度も言いますが、
この状態になると、ハッキリ言ってかなり危険です。ほったらかしにしておくと、きっとパソコンが壊れるんでしょうね……。多分。
ですから、終了条件の記述には、充分注意しましょう。
しかし、それでも意図しない結果として、無限ループに陥ってしまうことはあります。特に
ヤバイ！ 無限ループになってる！ と気がついても、そこで焦ってはいけません。キチンとこれを止める方法があるからです。先に言え！ っていう感じですか。すいません。
無限ループに陥ってしまったり、あえて繰り返し処理を中断したい場合など、それを止める手段として『コードの中断』があります。そしてその方法は非常に簡単。
『
これは、繰り返し処理に限らず、
時間のかかる処理を途中で中断したりするときにも、これで対応が利きます。
この『コードの中断』の方法を知らずに、繰り返し処理を適当に記述するのは危険です。しっかり覚えておきましょう。
さて、
次回は、
■格言
キチンと終了条件を記述する
処理を中断するには
無限ループには焦らずEscキーですよ。
For文以外の繰り返し処理前回は、
For文を利用した繰り返し処理を解説しました。何回繰り返したかを記憶する変数を用意し、最初の数と、最後の数を指定するのでしたね。
For文を用いて繰り返し処理を行う場合には、指定した数から指定した分だけ、一定の回数繰り返し処理を行います。例えば、１０回繰り返し処理を行いたい場合には、最初の数に１を、最後の数に１０を指定すればよいのです（別に１０から２０でもいいんですけど、場合によります）。最初の数と、最後の数との差が大きければ大きいほど、たくさんの繰り返しを行うことができます。しかし、考えてみてください。
例えばババ抜きなどのカードゲーム。
大抵の場合、カードゲームでは自分のターン⇒相手のターンと、規則的に何度も同じ手順を繰り返します。一見すると、
For文を用いた繰り返し処理を活用できそうな気がしますよね。でも、その繰り返す回数は、毎回規則的とは限りません。ババ抜きの場合には、お互いにババを引き続ければ、下手をすると最後の最後で何回もターンが切り替わり、ずーっと終わらない、なんてこともあるかもしれません。
要するに、繰り返す回数が一定ではないケース、というのがゲームにおいては多々あるのです。
こういったケースでは、繰り返しに
For文を用いるべきではありません。というか回数が決まってないわけですから、最初の数と最後の数の指定に問題が出てきます。そんなときは、もうひとつの繰り返し処理法を用いるべきなのです。その方法こそ、今回解説する『Do〜Loop』を用いたやりかたです。そんなわけで、今回は
Do〜Loopを解説します。ただし、先に言っておきますが、ひとつ注意点があります。
Do〜Loop文は、For文に比べると、若干扱いが難しいです。というのは、For文が、最初から最後までの決められた回数繰り返す、のに対し、Do〜Loop文は、一定の条件を満たすまで何回でも無限に繰り返す、という特性を持っているからです。これは言い換えると、キチンとした終了条件を指定せずに実行すると、プログラムは永遠に止まらなくなる、という事でもあります。なんだか響きからして恐くないですか？ 恐いですよ……。永遠に止まらないなんて。
ですから、今回の解説をキチンと理解し、正しい方法を学んだ上で、使用するようにしてください。ちょっと大袈裟に書いてますが、やっちゃった〜！ って時に、途中で止める方法はちゃんとあるのでご安心下さい。それは順を追って解説しますのでね。
■いろんな繰り返し方
さて、それでは実際に
Do〜Loopについて見ていきましょう。先にも言いましたが、
Do〜Loopは一定の条件を満たすまで、ずっと繰り返し処理を継続します。ロールプレイングゲームで例えると、敵が全滅するか、パーティが全滅するまで戦闘は終わらないですよね。『敵が全滅』と『パーティの全滅』が、繰り返しを終了する条件というわけです。Do〜Loop文では、この終了条件を指定する方法が、実に多彩なバリエーションで用意されています。これによってプログラマーは、様々なケースに応じて柔軟に対応することが可能になります。しかしこれは逆の効果も生み出します。やり方が色々あるので、ちょっととっつきにくいというか、難解な部分があるのです。ですから、今回は私にとってのスタンダードな方法に絞って解説することにします。
Do〜Loopの仕組みがよくわからないという人や、プログラム初心者の方は、とりあえず今回のやり方をマスターしてみてください。そして、興味が湧いてきたら、その他の方法についても勉強してみるといいでしょう。この講座でも、そのうちやるかもしれませんしね。まずは
Do〜Loopの最も基本的な構文です。Do
繰り返したい処理
Loop
繰り返したい処理
Loop
字数が少ないせいか、どこか単純な感じがしますね。うどんで例えるなら、つゆに麺だけ……みたいな感じでしょうか。
Doと表記したところから、Loopと表記した部分の間に、繰り返したい処理を記述します。For文とは違い、無制限に繰り返し処理が行われます。しかしこのままでは、さっきも書いたとおり、永遠に処理が止まりません。ですので、繰り返し処理を抜けるための、終了条件を追加しなくてはなりません。この終了条件の記述の仕方が、実に様々なのですが、今回は『
Until』を例に挙げて見ていくことにします。■
Do〜LoopとUntil『
Until』は、直訳すると『〜するまで』とか『〜となって初めて』とか、そんな意味だったと思います。つまり、
Do〜Loop + Until の場合には、終了条件を『〜になるまで繰り返す』という具合に指定します。ある条件が満たされるまで、ひたすら繰り返しを続けるのです。ロールプレイングゲームに例えるなら、『敵の数が０になるまで繰り返す』とかですね。それを踏まえて、以下のコードを見てください。
Sub Loop_Test()
Dim L As Long
Do Until L = 10
L = L + 1
Loop
MsgBox L
End Sub
Dim L As Long
Do Until L = 10
L = L + 1
Loop
MsgBox L
End Sub
このコードを実行すると、『10』と表示されたメッセージが出ます。
順を追って見ていきましょう。
まず、この
Loop_Testというプロシージャでは、冒頭でLong型の変数を宣言しています。そして、『
Do Until L = 10』というふうに、Untilを使って終了条件を指定しています。Untilは、〜になるまで繰り返す、という条件指定をしますから、これを訳すと『変数Lが10になるまで繰り返す』となりますね。そして、
DoとLoopの間（繰り返す処理の部分）で、変数Lを毎回プラス１ずつ増やしていくようにしています。プロシージャの内部で
Dimによって宣言された変数は、実行時には各データ型の規定値があらかじめ入っています。Long型の場合には、規定値は『０』です。ですから、プロシージャを実行するたびに、変数Lの値は０〜１０までの範囲で繰り返し処理されることになります。
変数Lが１０になった時点で、終了条件である『
Until L = 10』が満たされます。そうすると、Untilが終了を検知して、繰り返し処理を終了させます。最後にメッセージとして変数Lを表示するようになっているので、『10』というメッセージが出て、プロシージャが終わります。ちょっと駆け足で説明しましたが、理解できたでしょうか。
■終了条件のタイミングを知る
Do〜Loop文でポイントとなるのは、終了を検知する場所を正しく把握しておくことです。もう少し具体的に言うと、一体どのタイミングで、繰り返し処理の終了が検知されるか、ということですね。
VBAのコードというのは、原則上から下に向かって実行されていきます。先ほどの例で言えば下のようになります。
Sub Loop_Test()
↓
Dim L As Long
↓
Do Until L = 10
↓
L = L + 1
↓
Loop
↓ ：ここは繰り返しなので戻る
Do Until L = 10
↓
L = L + 1
↓
Loop
↓ ：以下終了条件になるまで繰り返して……
Do Until L = 10
↓ ：変数Lが１０になっていたら(条件を満たしていたら)抜ける
MsgBox L
↓
End Sub
↓
Dim L As Long
↓
Do Until L = 10
↓
L = L + 1
↓
Loop
↓ ：ここは繰り返しなので戻る
Do Until L = 10
↓
L = L + 1
↓
Loop
↓ ：以下終了条件になるまで繰り返して……
Do Until L = 10
↓ ：変数Lが１０になっていたら(条件を満たしていたら)抜ける
MsgBox L
↓
End Sub
先ほど挙げた例の場合には、『
Do Until L = 10』という具合に、終了条件を指定していましたよね。ですから、終了条件を判断しているのは『Until』が記述されている行のところだけです。『
L = L + 1』のところや『Loop』のところでは、例え、終了条件である『L = 10』が満たされていたとしても、繰り返しから抜けることはありません。あくまでも『Until』の部分が判断をし、繰り返し処理から抜けさせるのです。この、終了させるタイミングを知っておくことは、繰り返し処理において非常に重要です。
このことを正しく理解していないと、意図しない結果を招き、頭を抱えることになることもあります。
たとえば、以下のようなコードはどうでしょうか。
Sub Loop_Test()
Dim L As Long
L = 0
Do Until L < 10
L = L + 1
MsgBox L
Loop
End Sub
Dim L As Long
L = 0
Do Until L < 10
L = L + 1
MsgBox L
Loop
End Sub
これを実行すると、実際には何も起きません。繰り返し処理の中に
MsgBoxが含まれているにも関わらず、メッセージが表示されることは決してありません。なぜだか理由は簡単ですね。
一番最初の部分で、変数Lに０を代入しているため、終了条件である『
Until L < 10』を始めから満たしてしまっているからです。中の処理を１度も通ることなく、いきなり終了してしまっているわけです。しかし、ゲームのプログラミングをしていると、いろいろなケースに出くわします。もしかしたら最低でも１回は、繰り返し処理の中を実行してくれないと、困る場面が無いとも限りません。
それでは、最低１回は繰り返し処理の中を通らせたい、という場合にはどうしたらいいのでしょうか。
これには『
Untilだけが終了を検知する』という仕組みを、うまく応用すれば対応できます。つまり、終了の判断を、『
Do』のところではなく、『Loop』のところでするようにすればいいのです。これを踏まえて先ほどのコードを書くと、こうなります。Sub Loop_Test()
Dim L As Long
L = 0
Do
L = L + 1
MsgBox L
Loop Until L < 10
End Sub
Dim L As Long
L = 0
Do
L = L + 1
MsgBox L
Loop Until L < 10
End Sub
この場合には、終了条件を判断しているのが『
Loop』がある行の部分ですので、１回だけDoからLoopまでの間を通ります。ですから、『1』というメッセージが表示されます。一番最初に『
Loop』の部分を通ったときに、終了条件の判断が行われるので、変数Lは一度だけプラス１されるというわけですね。■
Do〜Loopを使うときの注意点上で書いたように、
Untilを記述する場所を変えることで、終了を判断するタイミングを変えることができます。ただし、
Untilが記述できるのは、『Doの後ろ』か、『Loopの後ろ』だけです。繰り返し行われる処理の中で、ダイレクトにUntilを使うことはできません。必ずDoかLoopのどちらかとセットで使う必要がありますので、覚えておきましょう。また、何度も言いますが、
Do〜Loopの場合には正しく終了条件を記述しないと、永遠に処理が止まらなくなります。こういう状態を、よく『無限ループ』なんて呼んだりします。この状態になると、ハッキリ言ってかなり危険です。ほったらかしにしておくと、きっとパソコンが壊れるんでしょうね……。多分。
ですから、終了条件の記述には、充分注意しましょう。
しかし、それでも意図しない結果として、無限ループに陥ってしまうことはあります。特に
Do〜Loopの扱いに不慣れなうちはよくあることだと思います。ヤバイ！ 無限ループになってる！ と気がついても、そこで焦ってはいけません。キチンとこれを止める方法があるからです。先に言え！ っていう感じですか。すいません。
無限ループに陥ってしまったり、あえて繰り返し処理を中断したい場合など、それを止める手段として『コードの中断』があります。そしてその方法は非常に簡単。
『
Escキーを押す』、だけです。これは、繰り返し処理に限らず、
VBAのどんな処理中でも原則として有効です。時間のかかる処理を途中で中断したりするときにも、これで対応が利きます。
Escキー以外にも、『Ctrlキー + Breakキー』でも、同様に処理が止まります。私はどちらかというと、後者の方を使ってます。両者の違いは……、あるのかもしれませんが、自分にはわかりません。ごめんなさい。一応VBAのヘルプには後者のほうが載ってたと思います。この『コードの中断』の方法を知らずに、繰り返し処理を適当に記述するのは危険です。しっかり覚えておきましょう。
さて、
For文に続き、Do〜Loop文を解説しましたが、これらの繰り返し処理について、なんとなく理解できたでしょうか。次回は、
Escキーで強制的に繰り返しを終了するのではなく、意図的にコードから繰り返し処理を終了させる方法を解説する予定です。■格言
Do〜Loopには繰り返し回数の制限がないキチンと終了条件を記述する
処理を中断するには
Escキー無限ループには焦らずEscキーですよ。
