Choosing Actions with Select Case : Select « Language Basics « VBA / Excel / Access / Word

Choosing Actions with Select Case

Sub TestChooseActivity() 
    Debug.Print ChooseActivity(25) 
    Debug.Print ChooseActivity(34) 
    Debug.Print ChooseActivity(35) 
    Debug.Print ChooseActivity(65) 
    Debug.Print ChooseActivity(66) 
    Debug.Print ChooseActivity(75) 
    Debug.Print ChooseActivity(95) 
End Sub 
Function ChooseActivity(Temperature As Integer) As String 
    Dim sActivity As String 
    Select Case Temperature 
        Case Is < 32 
            sActivity = "S" 
        Case 33, 35 To 45 
            sActivity = "H" 
        Case 34 
            sActivity = "S" 
        Case 46 To 50, 65, 70 To 72 
            sActivity = "C" 
        Case 75 To 80 
            sActivity = "G" 
        Case 80 To 100 
            sActivity = "W" 
        Case Else 
            sActivity = "T" 
    End Select 

    ChooseActivity = sActivity 
End Function 


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.Select Case Statements with comparison operator
6.Specify a range in select case statement
7.Specifying Multiple Expressions in a Case Clause: specify multiple conditions within a single Case clause by separating each condition with a comma
8.Using Is with the Case Clause
9.Select Case Else
10.A nested Select Case example
11.Three-level nested Select Case statement
12.Convert number to String by using Select statement