制御構文｜Excel VBA (Part.4)【Select Case】| 現役エンジニア&プログラミングスクール講師

'conditionalBranchSelectという関数名に意味はなく自由な名前を付けることが出来ます。

Sub conditionalBranchSelectIf_1()

    Dim Num As Integer
    Num = InputBox("1,2,3から好きな数字を入力してください。")
    Select Case Num
        Case 1
            MsgBox "1が入力されました"
        Case 2
            MsgBox "2が入力されました"
        Case 3
            MsgBox "2が入力されました"
        Case Else
            MsgBox "1,2,3以外の数字が入力されました"
    End Select

End Sub

Sub conditionalBranchSelectIf_2()

    Dim Str As String
    Str = InputBox("壱,弐,参の何れかを入力してください。")
    Select Case Str
        Case "壱"
            MsgBox "壱が入力されました"
        Case "弐"
            MsgBox "弐が入力されました"
        Case "参"
            MsgBox "参が入力されました"
        Case Else
            MsgBox "壱,弐,参以外の文字が入力されました"
    End Select

End Sub

Sub conditionalBranchSelectIf_3()

    Dim age As Byte
    age = InputBox("注意１" & Chr(10) & _
                   "入力の年齢が16以上の場合のみ" & Chr(10) & _
                   "取得できる運転免許の種別が出力されます。" & Chr(10) & _
                   "注意２" & Chr(10) & _
                   "0から255までの数字以外が入力されるとエラーになります。" _
                   , "あなたの年齢を入力して下さい")
    
    Select Case age
        Case 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15
            MsgBox age & "歳ですね。運転免許は取得できません。"
        Case 16, 17
            MsgBox age & "歳ですね。原付免許であれば取得できます。" 
        Case 18, 19
            MsgBox age & "歳ですね。原付免許や普通免許を取得できます。"    
        Case 20
            MsgBox age & "歳ですね。中型免許を取得できます。"
        Case 21
            MsgBox age & "歳ですね。大型免許を取得できます。"
        Case Else
            MsgBox age & "21以下の数字を入力して下さい"
    End Select
    MsgBox "終了"

End Sub

Sub conditionalBranchSelectIf_4()

    Dim age As Integer
        age = InputBox("注意１" & Chr(10) & _
                   "入力の年齢が16以上の場合のみ" & Chr(10) & _
                   "取得できる運転免許の種別が出力されます。" & Chr(10) & _
                   "注意２" & Chr(10) & _
                   "0から255までの数字以外が入力されるとエラーになります。" _
                   , "あなたの年齢を入力して下さい")
    
    Select Case age
        Case Is < 0, Is > 130
            MsgBox "年齢を入力してください"
        Case 0 To 15
            MsgBox age & "歳ですね。運転免許は取得できません。"
        Case 16 To 17
            MsgBox age & "歳ですね。原付免許であれば取得できます。"
        Case 18 To 19
            MsgBox age & "歳ですね。原付免許や普通免許を取得できます。"
        Case 20
            MsgBox age & "歳ですね。中型免許を取得できます。"
        Case Is >= 21
            MsgBox age & "歳ですね。大型免許を取得できます。"
    End Select
    MsgBox "終了"

End Sub

Sub conditionalBranchSelectIf_5()

    Dim Str As String
    Str = InputBox("塩,味噌,醤油の何れかを入力してください。")
    Select Case True
        Case Str Like "塩*"
            MsgBox "塩味のメニュー" & Chr(10) & _
                   "塩ラーメン" & Chr(10) & _
                   "あんかけ塩焼きそば" & Chr(10) & _
                   "塩唐揚げ"
        Case Str Like "味噌*"
            MsgBox "味噌味のメニュー" & Chr(10) & _
                   "味噌ラーメン" & Chr(10) & _
                   "野菜の胡麻味噌和え" & Chr(10) & _
                   "味噌味鶏そぼろ"
        Case Str Like "醤油*"
            MsgBox "醤油味のメニュー" & Chr(10) & _
                   "醤油ラーメン" & Chr(10) & _
                   "肉じゃが" & Chr(10) & _
                   "雑炊"
        Case Else
            MsgBox "塩,味噌,醤油以外の文字が入力されました"
    End Select

End Sub