VBA CASE句

条件	記述
1のとき	Case 1
1以上のとき	Case Is >= 1
1以下のとき	Case Is <= 1
1より大きいとき	Case Is > 1
1より小さいとき	Case Is < 1
1以下5以上のとき	Case 1 To 5
1または5のとき	Case 1,5

■サンプルコード

Sub Test()
    Dim MyNumber As Long
    MyNumber = InputBox("数値を入力してください")
    
    Select Case MyNumber
    Case 1
        MsgBox "1が入力されました"
    Case 2
        MsgBox "2が入力されました"
    Case 3
        MsgBox "3が入力されました"
    Case Else
        MsgBox "1～3以外の数値が入力されました"
    End Select
End Sub

出力結果