【マクロVBA】Select Caseで様々な条件・ケースの分岐処理!不等式やループの抜け方も紹介

IF Thenで条件分岐での処理はしたことがあるでしょうか。
IF Thenについての記事はこちらから☟

【マクロ・VBA知識 9】If …Thenで条件分岐・判別をする(○○なら△△) ► 独学エクセル塾 (dokugakuexcel.com)

Else If を使用すれば様々な条件・ケースの処理が可能になります。
しかし、複数の条件を組み合わせて多用すればVBAプログラムは複雑になってしまいます。

そこでSelect Caseを使用すれば簡単で様々な条件・ケースにあった処理が可能になります。

ぜひ身に着けて活用してみてください。
それでは見ていきましょう。

■Select Caseの使用方法
■Select Caseを使用して条件分岐処理をする
■Select Caseを使用した応用機能
■ループを抜き出す方法
■公式の説明
■まとめ

■Select Caseの使用方法

Select Case 条件の対象
Case Is 条件①
　　　条件①の処理
Case Is 条件②
　　　条件②の処理
Case Is 条件③
　　　条件③の処理
・・・
End Select

■Select Caseを使用して条件分岐処理をする

では見本を元に説明していきます。
下図をご覧ください。今回は体温を入力して「高熱・発熱・微熱・平熱」を判断してみます。

条件として
①38.5℃以上は「高熱」
②38.0℃以上は「発熱」
③37.0℃以上は「微熱」
④36.9℃以下は「平熱」
の4段階を処理します。

ではまず、Select Caseを使用せず、ElseIfを使用してプログラムを作成してみました。

Sub 体温の判断①()
If Range(“C4”) >= 38.5 Then
Range(“C7”) = “高熱”
ElseIf Range(“C4”) >= 38 Then
Range(“C7”) = “発熱”
ElseIf Range(“C4”) >= 37 Then
Range(“C7”) = “微熱”
ElseIf Range(“C4”) <= 36.9 Then
Range(“C7”) = “平熱”
End If
End Sub

このプログラムでも求められる機能を満たすことは可能です。
しかし、毎回「Range(“C4”)」を入力して手間がかかるうえに
「ElseIf」が重なり、とても複雑で入力がめんどくさいプログラムになっていますね。

こちらをSelect Caseを使用してシンプルで簡潔なプログラムにしたいと思います。

ではSelect Caseの使用方法を振り返りましょう。

Select Case 条件の対象
Case Is 条件①
　　　条件①の処理
Case Is 条件②
　　　条件②の処理
Case Is 条件③
　　　条件③の処理
・・・
End Select

特徴として条件の対象を1度打ち込めばＣase Ifでその対象を比較してくれます。
つまり毎回「Range(“C4”)」を打ち込まなくても比較してくれるようになります。

さらにSelect Caseで宣言した後はEnd Selectで挟んでください。

Select Caseを使用したプログラムはこのようになります。

Sub 体温の判断②SelectCaseの場合()
Select Case Range(“C4”)
Case Is >= 38.5
Range(“C7”) = “高熱”
Case Is >= 38
Range(“C7”) = “発熱”
Case Is >= 37
Range(“C7”) = “微熱”
Case Is <= 36.9
Range(“C7”) = “平熱”
End Select
End Sub

それでは実行してみましょう。
結果はこのようになります。