お知らせこの記事は【エラーにならない】 VBA条件分岐完全ガイドコードのテンプレを紹介の関連記事です
複数の選択肢への分岐とループを組み合わせ_SelectCase&For～Next
本記事ではSelect CaseステートメントとFor～Nextステートメントを一緒に使ったコードを紹介していきます。
まずはSelectCaseステートメントです。以下のような環境で使われることが多い構文です。
- 条件は1つ
- 選択肢は複数（多い）
上記のような環境下では特におすすめです。まずは試してみましょう。
冒頭で示した様にSelectCaseステートメントとFor～Nextステートメントを一緒に使う方法も紹介していきます。
この記事でわかる事
いろいろ考えるとわかりにくくなるのでシンプルに1点突破でいきます。
Select CaseステートメントとFor〜Nextステートメントの組み合わせについて勉強します。
Select Caseステートメントと
For～Nextステートメントの
組み合わせ
この記事で型を
習得しましょう
Enjoy Excel
条件分岐（SelectCaseステートメント）
まずはSelectCaseステートメント単体の使い方です。こちらの記事で紹介しています。
繰り返し処理（For～Nextステートメント）
続いて繰り返し処理について解説しています。
今シリーズで使用しているFor～Nextステートメントの解説もしております。
条件分岐と繰り返し処理の組み合わせ
ここからは条件分岐と繰り返し処理を組み合わせたコードを使って勉強していきます。
Select CaseステートメントとFor～Nextステートメントの組み合わせ
出来るだけシンプルな型を用意しました。この型で基本を身につけましょう。
構文
実際に仕事をコードに落とし込む時は変数、始点、終点等の要素に数値が入っていないと分かりにくいです。
ここではあくまで配置として覚えてください。
For 変数 = 始点 to 終点
Select Case 条件
Case 条件の回答A
条件が回答Aに合致した時の処理
Case 条件の回答B
条件が回答Bに合致した時の処理
Case 条件の回答C
条件が回答Cに合致した時の処理
Case 条件の回答D
条件が回答Dに合致した時の処理
・・・・・
End Select
Next
考え方の基本となるところだけ解説しておきます。
大外にFor～Nextステートメントが配置されます。For句からNext句までをループする事になります。
ループの中ではループの回数と同じだけSelect Caseステートメントの処理が実行されることになります。
SelectCase冒頭の「条件」ではFor～Nextステートメントで使っている変数を組み込みます。
これでループが回る度に異なる条件で問い合わせができる状況を用意します。
以降で具体的なコードを用いて解説することにします。
事例
勉強したコードを使うために事例を用意しました。
A列に書かれている都道府県の文字の末尾は「都」、「道」、「府」、「県」のうちどれか？
ご注意下さいこの作業は「Select Case」と「For～Next」ステートメントを勉強する為だけに用意した事例です。
「こんな事やる必要あるのか？」と考えてしまいますが作業自体に意味は無いという事を先にお伝えしておきます。
事例の詳細
セルには以下のような情報が記入されています。最終的にはセルE5～セルE14に文字が入ります。
D列の各行に記載のキーワードから末尾1文字を確認しE列の各行にD列で確認した末尾を入力するという作業を行います。
コード
画像の事例に対応したコードです。ボタンを押すとコードがコピーできます。
Sub 条件分岐と繰り返し2()
Dim r As Long
For r = 5 To Cells(Rows.Count, 4).End(xlUp).Row
Select Case Right(Cells(r, 4), 1)
Case "都"
Cells(r, 5) = "都"
Case "道"
Cells(r, 5) = "道"
Case "府"
Cells(r, 5) = "府"
Case "県"
Cells(r, 5) = "県"
Case Else
Cells(r, 5) = ""
End Select
Next
End Sub解説
実行するとセルE5からセルE14まで漢字が1文字ずつ入力されます。
セルE7が「都」、セルE13が「府」。残りは「県」です。
2行目でDimから始まるコードは変数の宣言です。
ここで宣言された変数はコード内で変数として使用出来ます。
続いて3行目のコードです。変数に値を代入するというコードです。
始点は5ですが終点は見た事無いコードが書かれていますね。
これは最終行を取得する為のコードです。
変数と最終行を取得するコードについて分からない方はリンクを用意しておきました。必要に応じて確認ください。
これでリストの最終行を取得する事が出来ます。
今回のリストの配置からすると終点は14という数値を得る事が出来ます。
続いて変数の解説です。
For句で使われている変数rはSelect Caseステートメントの中でも使われています。
大外のFor句の繰り返し処理でSelect Caseステートメント内では毎回異なるセルを選択出来ます。
変数ｒが活躍してくれます。
コードの流れ
通常通り上から実行されます。6行目で末尾は「都」ですか？と確認しています。
一致していれば8行目のコードが実行されることになります。
一致しない時は残りのCase句を通過します。先程は例で「都」の説明をしましたが実際は最初の値は沖縄県です。
18行目のステートメントでTrueとなり20行目のコードが実行されます。
セルに用意された文字の末尾が選択肢にかからなかった時はCase Elseに進みます。
ここでは空欄になる様に設定していますが「値無し」などセルに文字を返しても良いです。
最後にループの解説です。27行目のNext句の後変数rは5から6に変化します。
その後4行目から再びSelect Caseステートメントを通過しながらE列のセルに値を記入するという流れです。
課題
選択肢は増えても減ってもコードの実行時間に大きな差はありません。
コードも整理されて非常に見易く使い勝手も良いです。
各Case句の中で再度If～Thenステートメントを組み込む事も可能でかなり柔軟に条件が設定出来ます。
課題はほぼ無いです。
あるとしたら「慣れないと使いにくい」という事でしょうか。
コードが整理されているという事はご自身の思考が整理されてないと使えないコードです。
訓練が必要というのが課題になります。
まとめ
Slelect CaseステートメントとFor～Nextステートメントを一緒に使いました。
フォーマットとして使える様に出来るだけシンプルな型を用意しました。
そのままコピペしてご自身でコードを実行してみてください。
（セルの内容は面倒ですが再現してください）
SelectCaseステートメントと
For～Nextステートメントの
組み合わせ
繰り返し読んで
理解しましょう
Enjoy Excel
自身でトライ＆エラーを行う事が大事です。繰り返し処理だけに繰り返し勉強してみましょう。