Sub shiken()
   Dim hyoka As String
    
   Select Case Range("C11").Value
   Case 0 To 100
     Select Case Range("C11").Value
       Case Is < 60
         hyoka = "不合格"
       Case Is < 80
         hyoka = "追試"
       Case Is <= 100
         hyoka = "合格"
     End Select
     Case Else
       hyoka = "エラー"
   End Select
   
   Range("d11").Value = hyoka
   
End Sub
Sub waribiki()
   Select Case Range("D18").Value
   Case "一般"
      Select Case Range("C18").Value
      Case Is >= 50000
         MsgBox "15%割引です"
      Case Is >= 30000
         MsgBox "10%割引です"
      Case Is >= 10000
         MsgBox "5%割引です"
      Case Else
         MsgBox "割引なし"
      End Select
   Case "会員"
      Select Case Range("C18").Value
      Case Is >= 50000
         MsgBox "30%割引です"
      Case Is >= 30000
         MsgBox "20%割引です"
      Case Is >= 10000
         MsgBox "10%割引です"
      Case Else
         MsgBox "割引なし"
      End Select
    End Select
End Sub