Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions : Select « Language Basics « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Language Basics
  3. Select

Specifying a Range of Values in a Case Clause by using the To keyword between the values of expressions

 

Sub caseTo()
    Dim unitsSold As Integer
    
    unitsSold = 44
    Select Case unitsSold
        Case 1 To 100
            Discount = 0.05
        Case Is <= 500
            Discount = 0.1
        Case 501 To 1000
            Discount = 0.15
        Case Is > 1000
            Discount = 0.2
    End Select
    
    MsgBox Discount
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.Select Case Statements with comparison operator
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