条件分岐命令 Select Case Else ステートメント
解説
変数が取る値により処理を変える場合に使う。変数の取る値毎に処理を変えられる。
書式
Case～の後に値または条件式を入れ、条件式を満たす場合にCase以降の処理が実行されます。 範囲以外の入力ではCase Elseの処理が行われます。
Select Case 値
Case 条件１
条件１が真のときに実行する処理
Case 条件２
条件２が真のときに実行する処理
Case 条件３
条件３が真のときに実行する処理
Case Else
条件１・２・３が偽のときに実行する処理
End Select
使用例
次の例は得点の範囲により異なるメッセージを出します。70点以上は「合格」、50～69点は「レポート提出」、 49点以下は「再試験」とメッセージを出します。1～100以外の数値を入れた場合は「1～100までの値を入れてください。」とメッセージが出ます。
Sub Sample_3()
Dim Tokuten As Integer
Tokuten = InputBox("点数を入力してください(0～100)")
Select Case Tokuten
Case 70 To 100
MsgBox "合格"
Case 50 To 69
MsgBox "レポート提出"
Case 0 To 49
MsgBox "再試験"
Case Else
MsgBox "1～100までの値を入れてください。"
End Select
End Sub
80点と入力した場合
60点と入力した場合
45点と入力した場合
（この項終わり）