Ｃｈａｐｔｅｒ.３７ [ 条件分岐のさらなる探求 Select Case ]
■もうひとつの条件分岐
キー入力の判定について解説した前回。ちょっと難しい内容でしたが皆さんうまくできたでしょうか。
キーの入力を拾うことができれば、ユーザーに様々な操作を要求することができます。必ずしも複雑な操作が優れているわけではありませんが、ゲームの『表現力』をアップさせることができるのは間違いありません。
プログラミングをする我々開発者の立場から見ても、様々な演出を行うことが可能となり、作成できるゲームの幅が大きく広がります。
一度に理解できなくてもいいのです。また時間を置いて、以前の講座を見直したときに理解できるかもしれません。わからないまま進めるのではなく、ひとつひとつこなしていきましょう。
さて、今回のテーマは『もうひとつの条件分岐』となっています。
条件分岐といえば、真っ先に思い浮かべるのは
これはプログラミングに欠かせない要素で、今までにも、講座内で何度も登場しています。ある程度のことをしようと思ったら、絶対に必要になる概念です。
しかし、VBAには、もうひとつ、条件分岐の方法が用意されています。
今回は、このもうひとつの条件分岐について見ていきます。そして、なぜ
■Select Case
この
ところがこの
ではどこがどう使えるのか、それを見ていきましょう。
まずはちょっと思い出してみてください。以前の講座でも解説しましたが、
If 条件 Then
条件が真(正しい)のとき
Else
条件が偽(正しくない)のとき
End If
これに対して、同じ条件分岐処理の方法である
最も簡単に記述すると、
Select Case 式、または値
Case 結果A
結果Aの場合の処理
Case 結果B
結果Bの場合の処理
Case 結果C
結果Cの場合の処理
：
：
：
Case Else
結果が上記のどれにもあてはまらない場合の処理
End Select
基本的に二者択一の処理を行う
『式、または値』の内容が、Aの場合、Bの場合、Cの場合…………と、いろいろなケースに応じて、好きなように処理を分岐することができます。
ちょっとわかりづらいですね。簡単な例を挙げて考えてみましょう。
…………こんな人いますか？ っていう感じもしますが、まぁ例えですから。大目に見てください。
さて、とにもかくにも、上の話を
なんじゃこりゃ……。
ま、まぁ細かいことは置いといて、あまり深く突っ込まないでください。
『式、または値』に相当するのは『福引の抽選結果』です。そして、それ以降、『福引の抽選結果』の内容に応じて、それぞれ処理が分岐しているのがわかりますね。
もし何らかのチケットが当たった場合には、最初の５つのうち、適合する場合の部分に処理が進みます。
どれにもあてはまらなかった場合、つまりハズレの場合には、最後の部分に処理が進みます。
このように、
ためしに、上のような状態を
見づらい上に、ちょっとわかりづらいですよね。これなら
条件分岐に
ただ、多くの可能性を含んでいる条件分岐では、
自分が見てわかりやすいということを第一に、状況に応じてうまく使い分けていきましょう。
■さらなる条件の高みへ
さて、基本的な
ここから先は、
これが使いこなせると実に便利です。余裕のある方は是非習得してください。
しかし、
それでは�，�ら順番に見ていくことにしましょう。
まず�，蓮△發辰箸眞噂磴�
�△蓮▲�ンマ(コレ→ , )で区切って指定していますね。
このように指定することで、複数の結果に対して、同様の設定を一括で行うことができます。
次は��です。ここでは『
適用範囲が広い場合などには有効に使えますね。
�い任蓮�
ここで出てくる
最後は�イ任后�これは上で指定した結果のどれにもあてはまらなかった場合です。先ほども出てきましたので簡単ですね。上の� 銑い泙任両魴鐐瓦討砲△討呂泙蕕覆�ったということは、変数
�，函↓イ鷲當未砲茲�使いますが、意外と�◆銑い了慊衒�法は知らない方もいるのではないでしょうか。
これらの方法を全て駆使すると、かなり複雑な条件分岐を行うことができます。当然、コードの柔軟性がかなりアップしますので、いろいろなことができるようになります。
また、実際に上のコードを実行させてみればわかると思いますが、
たとえば先ほどのコードで、変数
こんなとき、
これは実に重要な仕組みです。
このことを正しく理解せず、適当にたくさんの選択肢を設定しないように気をつけましょう。私はたまにコレではまります。
■格言
条件分岐には
たくさんの条件を指定するときには非常に便利
条件の設定方法も実に多彩
使いこなせれば、確実にレベルアップです。がんばって習得してください。
キー入力の判定について解説した前回。ちょっと難しい内容でしたが皆さんうまくできたでしょうか。
キーの入力を拾うことができれば、ユーザーに様々な操作を要求することができます。必ずしも複雑な操作が優れているわけではありませんが、ゲームの『表現力』をアップさせることができるのは間違いありません。
プログラミングをする我々開発者の立場から見ても、様々な演出を行うことが可能となり、作成できるゲームの幅が大きく広がります。
一度に理解できなくてもいいのです。また時間を置いて、以前の講座を見直したときに理解できるかもしれません。わからないまま進めるのではなく、ひとつひとつこなしていきましょう。
さて、今回のテーマは『もうひとつの条件分岐』となっています。
条件分岐といえば、真っ先に思い浮かべるのは
If文でしょう。これはプログラミングに欠かせない要素で、今までにも、講座内で何度も登場しています。ある程度のことをしようと思ったら、絶対に必要になる概念です。
しかし、VBAには、もうひとつ、条件分岐の方法が用意されています。
今回は、このもうひとつの条件分岐について見ていきます。そして、なぜ
If文以外にもうひとつの条件分岐が用意されているのか、その方法を使うことによってどんなメリットがあるのか。これについて解説したいと思います。■Select Case
If文とは違う、もうひとつの条件分岐。それはSelect Case文と呼ばれています。この
Select Case文、普段あまり使わない人にとっては、『所詮条件分岐でしょ、If文があれば十分じゃない？』とか『別にこれを使わなくっちゃできないことなんてないし』っていう程度のものかもしれません。ところがこの
Select Case、ものすごく使えます。少なくとも私は、Select Case文なしでゲームを作ることはないでしょうね。ではどこがどう使えるのか、それを見ていきましょう。
まずはちょっと思い出してみてください。以前の講座でも解説しましたが、
If文の場合『正しいとき』と、『正しくないとき』という判断の仕方をしています。このため、If文は基本的には二者択一の考え方で記述されます。If文の場合If 条件 Then
条件が真(正しい)のとき
Else
条件が偽(正しくない)のとき
End If
これに対して、同じ条件分岐処理の方法である
Select Case文は、全く違った考え方をします。最も簡単に記述すると、
Select Case文は次のようになります。Select Case文の場合Select Case 式、または値
Case 結果A
結果Aの場合の処理
Case 結果B
結果Bの場合の処理
Case 結果C
結果Cの場合の処理
：
：
※Case 〜 は、いくつでも指定可能：
Case Else
結果が上記のどれにもあてはまらない場合の処理
End Select
基本的に二者択一の処理を行う
If文に対して、Select Case文は３つ以上の選択肢に対応することが簡単です。『式、または値』の内容が、Aの場合、Bの場合、Cの場合…………と、いろいろなケースに応じて、好きなように処理を分岐することができます。
Select Case文の場合には、まず、基本となる式か、あるいは値を設定します。そして、その状態を調べた結果に応じて、そのあとの処理が分岐します。Select Case文の最後は、If文のときなどと同様に、Endを使って、『End Select』という形で終わります。ちょっとわかりづらいですね。簡単な例を挙げて考えてみましょう。
私は今、商店街でとある行列に並んでいる。目的は地元の商店街組合が主催する福引だ。
今回の福引、なんと景品が海外旅行ペアチケット！ 財布の中には福引券がたくさん入っている。ふふふ、日ごろから商店街で買い物してきた甲斐があった。
ちなみに、当たりを引いた場合には『アメリカ・フランス・オーストラリア・ロシア・中国』の５つのうち、どれかひとつがもらえるらしい。
捕らぬ狸の皮算用なのはわかっているが、つい当たったときのことを考えて頬が緩んでしまう。
今回の福引、なんと景品が海外旅行ペアチケット！ 財布の中には福引券がたくさん入っている。ふふふ、日ごろから商店街で買い物してきた甲斐があった。
ちなみに、当たりを引いた場合には『アメリカ・フランス・オーストラリア・ロシア・中国』の５つのうち、どれかひとつがもらえるらしい。
捕らぬ狸の皮算用なのはわかっているが、つい当たったときのことを考えて頬が緩んでしまう。
…………こんな人いますか？ っていう感じもしますが、まぁ例えですから。大目に見てください。
さて、とにもかくにも、上の話を
Select Case文に当てはめるとどのようになるでしょうか。ちょっと無理矢理ですがコードにしてみます。Select Case 福引の抽選結果
Case アメリカ旅行ゲット！
アメリカへ旅立つ身支度を始める
Case フランス旅行ゲット！
フランスの旅ガイドを買う
Case オーストラリア旅行ゲット！
コアラの生態を調べる
Case ロシア旅行ゲット！
寒さ対策を考える
Case 中国旅行ゲット！
中国語を勉強する
Case Else つまりハズレ
ハズレの景品、ティッシュで鼻をかむ
End Select
Case アメリカ旅行ゲット！
アメリカへ旅立つ身支度を始める
Case フランス旅行ゲット！
フランスの旅ガイドを買う
Case オーストラリア旅行ゲット！
コアラの生態を調べる
Case ロシア旅行ゲット！
寒さ対策を考える
Case 中国旅行ゲット！
中国語を勉強する
Case Else つまりハズレ
ハズレの景品、ティッシュで鼻をかむ
End Select
なんじゃこりゃ……。
ま、まぁ細かいことは置いといて、あまり深く突っ込まないでください。
『式、または値』に相当するのは『福引の抽選結果』です。そして、それ以降、『福引の抽選結果』の内容に応じて、それぞれ処理が分岐しているのがわかりますね。
もし何らかのチケットが当たった場合には、最初の５つのうち、適合する場合の部分に処理が進みます。
どれにもあてはまらなかった場合、つまりハズレの場合には、最後の部分に処理が進みます。
このように、
Select Case文では、複数の結果から判断して処理を分岐することができます。これはIf文を使って、３択以上の条件分岐を記述するのに比べると、格段に簡単でわかりやすい記述方法ではないでしょうか。ためしに、上のような状態を
If文で表してみると、その差がわかるのではないでしょうか。If 抽選結果 = アメリカ Then
アメリカへ旅立つ身支度を始める
Else
If 抽選結果 = フランス Then
フランスの旅ガイドを買う
Else
If 抽選結果 = オーストラリア Then
コアラの生態を調べる
Else
If 抽選結果 = ロシア Then
寒さ対策を考える
Else
If 抽選結果 = 中国 Then
中国語を勉強する
Else
ハズレの景品､ティッシュで鼻をかむ
End If
End If
End If
End If
End If
アメリカへ旅立つ身支度を始める
Else
If 抽選結果 = フランス Then
フランスの旅ガイドを買う
Else
If 抽選結果 = オーストラリア Then
コアラの生態を調べる
Else
If 抽選結果 = ロシア Then
寒さ対策を考える
Else
If 抽選結果 = 中国 Then
中国語を勉強する
Else
ハズレの景品､ティッシュで鼻をかむ
End If
End If
End If
End If
End If
見づらい上に、ちょっとわかりづらいですよね。これなら
Select Case文を使ったほうが見た目もスマートですし、わかりやすいです。条件分岐に
If文を使うのか、それともSelect Case文を使うのかは、ハッキリ言ってケースバイケースです。それに、好みの問題もあるでしょう。ただ、多くの可能性を含んでいる条件分岐では、
Select Case文を使ったほうがコードが簡潔に美しく記述できます。自分が見てわかりやすいということを第一に、状況に応じてうまく使い分けていきましょう。
■さらなる条件の高みへ
さて、基本的な
Select Case文の使い方は理解できたでしょうか。なんだか今更ですが、今回のようなおちゃらけた講座内容でいいのか、という気もしてきました。わかりづらかったらすいません。ここから先は、
Select Case文の条件指定について、少しだけ発展した方法を解説します。Select Case文の記述の仕方には、実は様々な方法があります。これが使いこなせると実に便利です。余裕のある方は是非習得してください。
Sub SelectCase_Test()
Dim Counter As Long
For Counter = 1 To 10
Select Case Counter
Case 1
MsgBox "変数の値は１" '��
Case 2, 4, 6
MsgBox "変数の値は２か４、または６" '��
Case 3 To 7
MsgBox "変数の値は３から７までの間" '��
Case Is < 9
MsgBox "変数の値は９より小さい" '��
Case Else
MsgBox "変数の値は９か１０" '��
End Select
Next
End Sub
Dim Counter As Long
For Counter = 1 To 10
Select Case Counter
Case 1
MsgBox "変数の値は１" '��
Case 2, 4, 6
MsgBox "変数の値は２か４、または６" '��
Case 3 To 7
MsgBox "変数の値は３から７までの間" '��
Case Is < 9
MsgBox "変数の値は９より小さい" '��
Case Else
MsgBox "変数の値は９か１０" '��
End Select
Next
End Sub
For文で、１〜１０までの繰り返し処理をしながら、毎回メッセージを表示しているだけの単純なコードです。しかし、
Select Case文での指定の仕方は� 銑イ覗瓦動曚覆辰討い泙后�それでは�，�ら順番に見ていくことにしましょう。
まず�，蓮△發辰箸眞噂磴�
Select Case文での条件指定です。変数Counterの値が『 1 』だった場合にはここに進みます。単体での指定ですね。�△蓮▲�ンマ(コレ→ , )で区切って指定していますね。
このように指定することで、複数の結果に対して、同様の設定を一括で行うことができます。
次は��です。ここでは『
To』というキーワードを使って、特定の範囲をまとめて指定しています。数値でこの方法を使った場合には、左辺から右辺までの間の、全ての数値を指定したことになります。適用範囲が広い場合などには有効に使えますね。
�い任蓮�
Is』というキーワードが出てきます。ここで出てくる
Isは、この場合『変数Counterそのもの』を指しています。ですから『Counter < 9』という式と同じ意味になります。変数Counterの値が９より小さい場合に適用されます。最後は�イ任后�これは上で指定した結果のどれにもあてはまらなかった場合です。先ほども出てきましたので簡単ですね。上の� 銑い泙任両魴鐐瓦討砲△討呂泙蕕覆�ったということは、変数
Counterの値は９か１０ということになります。�，函↓イ鷲當未砲茲�使いますが、意外と�◆銑い了慊衒�法は知らない方もいるのではないでしょうか。
これらの方法を全て駆使すると、かなり複雑な条件分岐を行うことができます。当然、コードの柔軟性がかなりアップしますので、いろいろなことができるようになります。
また、実際に上のコードを実行させてみればわかると思いますが、
Select Case文は『最初に適合した結果のみを実行する』ということを覚えておきましょう。たとえば先ほどのコードで、変数
Counterに『 4 』が設定されているときを考えてみてください。�◆銑い里匹譴砲眦�合してしまっていますよね。変数
�△両魴錣蓮悖欧�４か６』なので適合している。
��の条件は『３から７の間』なので適合している。
�い両魴錣蓮悖垢茲蠑�さい数』なのでやっぱり適合している。
Counterの値が4だった場合�△両魴錣蓮悖欧�４か６』なので適合している。
��の条件は『３から７の間』なので適合している。
�い両魴錣蓮悖垢茲蠑�さい数』なのでやっぱり適合している。
こんなとき、
Select Case文は最初に適合した場合の処理のみを行うので、実際には『変数の値は２か４、または６』というメッセージが表示されるだけで処理が完了します。これは実に重要な仕組みです。
このことを正しく理解せず、適当にたくさんの選択肢を設定しないように気をつけましょう。私はたまにコレではまります。
■格言
条件分岐には
If文のほかにSelect Case文があるたくさんの条件を指定するときには非常に便利
条件の設定方法も実に多彩
使いこなせれば、確実にレベルアップです。がんばって習得してください。
