Excel VBA Select Caseは複数条件から一つを選択し対応ブロックを実行

以下のようなシーンで利用されます。

・変数の値に応じて異なる処理を行う。

・複数の条件を簡潔に表現したい場合。

・例外処理をまとめて行う。

Option Explicit

Sub SelectCaseExample()
    Dim score As Integer
    score = InputBox("点数を入力してください:")
    
    Select Case score
        Case Is >= 90
            MsgBox "成績: A"
        Case Is >= 80
            MsgBox "成績: B"
        Case Is >= 70
            MsgBox "成績: C"
        Case Is >= 60
            MsgBox "成績: D"
        Case Else
            MsgBox "成績: F"
    End Select
End Sub

特定の文字列に応じてメッセージを表示する例

Option Explicit

Sub SelectCaseStringExample()
    Dim dayOfWeek As String
    dayOfWeek = InputBox("曜日を入力してください:")
    
    Select Case dayOfWeek
        Case "月曜日", "火曜日", "水曜日", "木曜日", "金曜日"
            MsgBox "平日です。"
        Case "土曜日", "日曜日"
            MsgBox "週末です。"
        Case Else
            MsgBox "無効な曜日です。"
    End Select
End Sub

複雑条件で処理を分ける例

Option Explicit

Sub SelectCaseComplexExample()
    Dim number As Integer
    number = InputBox("数字を入力してください:")
    
    Select Case number
        Case 1 To 10
            MsgBox "1から10の範囲内です。"
        Case 11, 13, 15
            MsgBox "11, 13, 15のいずれかです。"
        Case Is > 20
            MsgBox "20より大きい数です。"
        Case Else
            MsgBox "範囲外の数です。"
    End Select
End Sub