Select case vba

Dim Number 
Number = 8    ' Initialize variable. 
Select Case Number    ' Evaluate Number. 
Case 1 To 5    ' Number between 1 and 5, inclusive. 
    Debug.Print "Between 1 and 5" 
' The following is the only Case clause that evaluates to True. 
Case 6, 7, 8    ' Number between 6 and 8. 
    Debug.Print "Between 6 and 8" 
Case 9 To 10    ' Number is 9 or 10. 
Debug.Print "Greater than 8" 
Case Else    ' Other values. 
    Debug.Print "Not between 1 and 10" 
End Select

Similar codes

4 votes216 views1 answer
Excel formula for last non-empty cell in a column
VBA
1 vote228 views1 answer
Excel vba Refreshing all pivot tables in workbook
VBA
0 vote267 views1 answer
Excel vba scroll to cell
VBA
0 vote247 views1 answer
Visual stuiod not recognising desgined labels
VBA
0 vote248 views1 answer
Selecttoken em vbnet e json
VBA
0 vote266 views1 answer
Vbnet cycle through charaters in string
VBA
0 vote221 views1 answer
Handling a click event anywhere inside a panel vb
VBA
5 votes245 views1 answer
Excel vba low byte from INTEGER
VBA
4 votes232 views1 answer
Excel vba how to reset usedrange
VBA
0 vote253 views1 answer
Como ler subitem de um array em json usando vbnet
VBA