EXCEL VBA Select Caseの使い方（複数条件)

Select Caseの使い方（複数条件）

　
Select Case (値）
              Case (条件1)
                       '条件1の処理'
              Case(条件２）
                       '条件1の処理'
              Case(条件3)
                       '条件３の処理'
              Case Else
                       'どの条件にもあてはまらない処理'
  End Select

Sub 複数条件()

Dim i as Integer
 i = InputBox("あなたの算数の点数を入力してください")
 　　Select Case i
 　　　Case Is >= 90
 　　　　　　MsgBox "あなたは天才"
 　　　Case Is >=70
 　　　　　　MsgBox "あなたは秀才"
 　　　Case Is >= 50
 　　　　　　MsgBox "あなたは普通"
 　　　Case Else
 　　　　　　MsgBox "がんばりましょう"
 　　End Select
 End Sub

Sub 複数条件２()
Dim i as Integer
 i = InputBox("成績を１~10の点数で入力して下さい")
 　　Select Case 　i
       Case 1 to 5
                  MsgBox "勉強がんばりましょう！"
　　　  Case  6 to 8
                  MsgBox "まあまあの成績です"
　　　  Case  9 to 10
　 　　　　　　　　　MsgBox "素晴らしい成績です" 
　　　　Case Else
 　　　　　　　　　　MsgBox "１~１０の範囲で入力して下さい"
 　　End Select
 End Sub

Sub 複数条件2()

Dim I As Integer
    
    I = Int(Rnd * 10) 'ランダムの数値を生成（０～９）
    
    MsgBox "あなたの引いたおみくじは？"
    
    Select Case I
      Case 7
            MsgBox "今日の結果は、大吉です！"
      Case 1, 3
            MsgBox "今日の結果は、中吉です！"
      Case 2, 4, 8
            MsgBox "今日の結果は、吉です！"
      Case 9
            MsgBox "今日の結果は、大凶です！"
      Case Else
            MsgBox "今日の結果は、凶です！"
    End Select
    
End Sub