Select Case statement
The Select Case statement is an alternative to the If…Then…Else statement. It is especially used when testing lots of different conditions.
Syntax
The Select Case statement uses the following syntax:
Select Case expression
Case expressionlist1
statements
Case expressionlist2
statements
Case Else
statements
End Select
expression is a single expression, that is evaluated at the top of the list. The expressionlist then lists possible conditions and if the expression is equal to this case, the code in that section is run.
Description
Sub Command1_Click()
Select Case Text1.Text
Case “Hello”
Msgbox “You entered Hello!”
Case “Welcome”
Msgbox “You entered welcome!”
Case Else
Msgbox “You entered something else”
End Select
End Sub
This retrieves the value of Text1.Text and then tests it against each case. If Text1.Text is equal to “Hello” then a message box is displayed saying “You entered Hello”. If Text1.Text is equal to “Welcome” then a message box is displayed saying “You entered welcome!”. If Text1.Text is equal to something else then a message box is displayed saying “You entered something else”.
‘ Initialise variable
Dim Number As Integer
Number = 8
Select Case Number ‘ Evaluate Number.
Case 1 To 5 ‘ Number between 1 and 5.
Msgbox “Between 1 and 5″
Case 6, 7, 8 ‘ Number between 6 and 8.
Msgbox “Between 6 and 8″
Case Is > 8 And Number < 11 ‘ Number is 9 or 10.
Msgbox “Greater than 8″
Case Else ‘ Other values.
Msgbox “Not between 1 and 10″
End Select
This code evaluates the variable Number, and then runs the appropriate code. Note you need to use the statement Is if you are using comparison operators (i.e. = ,<=, > )
