Excel VBA リファレンス

Select Case 式
    Case 値
        処理１
    Case Else
        処理２
End Select

制御文 / 関数・ステートメント索引（Ｓ）

Option Explicit

Sub main()
  Dim intS As Integer
  
  intS = Application.InputBox( _
            "1から9までのうち好きな数字を入れてね" _
            )
  
  Select Case intS
    Case 1 To 3
      Debug.Print ("控えめですね")
    Case 4, 9
      Debug.Print ("日本では不吉な数字です")
    Case 5 To 8
      Debug.Print ("無難です")
    Case Else
      Debug.Print ("範囲外ですよ")
  End Select
  
  '実行後、イミディエイト ウインドウに
  '以下の出力があります
  '
  '・入力用ダイアログに1から3を入力した場合
  '控えめですね
  '
  '・入力用ダイアログに4または9を入力した場合
  '日本では不吉な数字です
  '
  '・入力用ダイアログに5から8を入力した場合
  '無難です
  '
  '・入力用ダイアログに1から9以外を入力した場合
  '範囲外ですよ

End Sub

制御文 / 関数・ステートメント索引（Ｓ）