複数の条件をわかりやすく記述する【Select Caseステートメント】【ExcelVBA】

Select Caseステートメント
Select Caseを使ったサンプルコード
注意点
関連記事

Select Caseステートメント

Ifステートメントで多くの条件式を使用しているとコードが長くなり視認性を損ないます。
Select Caseステートメントを使用し、コードを見やすくしましょう。

構文

Select Case testexpression
　　　　[Case expressionlist-n
　　　　　　　　[statements-n]]
　　　　・・・
　　　　[Case Else
　　　　　　　　[elsestatements]]
End Select

testexpression	任意の数値式または文字列式。必須です。
expressionlist-n	Case 節がある場合は、必須です。 Toキーワードは、値の範囲を指定します。小さい方の値を To の前に置いてください。 Isキーワードは、 Is と Like を除いた比較演算子と併用して値の範囲を指定します。指定していない場合は、Isキーワードが自動挿入されます。
statements-n	省略可。 testexpression が expressionlist-n のいずれかと一致したときに実行されます。
elsestatements	省略可。 testexpression が Case 句のいずれとも一致しない場合に実行されます。

Select Caseを使ったサンプルコード

Public Sub Sample()
    Dim num As Long
    num = InputBox("数値を入力してください")
'■Ture、Falseの判定
    Select Case num 
     Case 5 '■Tureの条件
        MsgBox "5"
     Case Else '■Falseの条件
        MsgBox "5ではない"
　  End Select
'■Or(,)を使用する場合
　  Select Case num 
     Case 1,2
        MsgBox "1or2"
     Case 3,4
        MsgBox "3or4"
     Case Else
        MsgBox "1,2,3,4ではない"
　  End Select　
'■Andを使用する場合
　  Select Case True 
     Case num >= 1 And num <= 100
        MsgBox "1～100の範囲内"
     Case Else
        MsgBox "1～100の範囲外"
　  End Select
'■Toを使用する場合
　  Select Case num 
     Case 1 To 100
        MsgBox "1～100の範囲内"
     Case Else
        MsgBox "1～100の範囲外"
    End Select
'■Isを使用する場合
    Select Case num
     Case Is <= 50
        MsgBox "数は1から50の範囲内です。"
     Case Else
        MsgBox "数は1から50の範囲外です。"
End Sub