Select Case Statements with comparison operator : Select « Language Basics « VBA / Excel / Access / Word

Select Case Statements with comparison operator

 Sub Check_Typing_Speed()
     Dim varTypingSpeed As Variant
     Dim strMsg As String
     varTypingSpeed = 35
     Select Case varTypingSpeed
         Case ""
         Case Is < 0, 0, 1 To 50
             strMsg = "1"
         Case 50 To 60
             strMsg = "2."
         Case 60 To 75
             strMsg = "3."
         Case 75 To 99
             strMsg = "4."
         Case 100 To 200
             strMsg = "5."
         Case Is > 200
             strMsg = "6."
     End Select

     Debug.Print strMsg

 End Sub


Related examples in the same category

1.Use Integer as the switch value for Select Case Structure
2.Use select case statement
3.Use string text as the select case statement control value
4.Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions
5.Specify a range in select case statement
6.Specifying Multiple Expressions in a Case Clause: specify multiple conditions within a single Case clause by separating each condition with a comma
7.Using Is with the Case Clause
8.Select Case Else
9.A nested Select Case example
10.Three-level nested Select Case statement
11.Convert number to String by using Select statement
12.Choosing Actions with Select Case