excel vba case statement
v = "z"
Select Case v
Case 1
'code runs here if v = 1
Case 2
'code runs here if v = 2
Case 3 To 5
'code runs here if v = 3 or 4 or 5
Case Is < 10
'code runs here if v = 6 or 7 or 8 or 9
Case 10, 15, 20
'code runs here if v = 10 or 15 or 20
Case #12/25/2020#
'code runs here if v = #12/25/2020#
Case "abc"
'code runs here if v = "abc"
Case Is <= "m"
'code runs here if v <= "m"
Case True
'code runs here if v = True
Case Else
'Code runs here if v did not match any of the above cases.
'In this example, since v = "z", the 'Case Else' would match
'and only the code here would execute.
End Select
'Notes: The Select Case construct must be terminated by 'End Select'.
' Only one case (at most) will have its code run.
' Each case is evaluated in order, from the top down, until match found.
' No more cases are evaluated once a case matches the Select Expression.
' An execution speed optimization is to place more likely cases on top.
' The special 'Case Else' is optional.
' If no case matches the Select Expression, execution exits the construct.
'A very useful variation is to set the Select Expression to True (or False):
Select Case True
Case a <= b And b <= c: Debug.Print "b is between a and c"
Case a = b: Debug.Print "a = b"
Case e > f: Debug.Print "e > f"
Case InStr(x, "z"): Debug.Print "'z' is in x"
Case IsEmpty(m): Debug.Print "m is Empty"
End Select
'In this second example, only the firt True case will print.
'
'
'