Select Case statement with Integer value : Integer « Data Type « VBA / Excel / Access / Word






  1. VBA / Excel / Access / Word
  2. Data Type
  3. Integer

Select Case statement with Integer value

 
Sub cmdCase_Click()
    Dim intAge As Integer
    intAge = 12
    Select Case intAge
      Case 0
        MsgBox "You Must Enter a Number"
      Case 1 To 18
        MsgBox "You Are Just a Kid"
      Case 19, 20, 21
        MsgBox "You are Almost an Adult"
      Case 22 To 40
        MsgBox "Good Deal"
      Case Is > 40
        MsgBox "Getting Up There!"
      Case Else
        MsgBox "You Entered an Invalid Number"
    End Select
End Sub








Related examples in the same category

1.Integer number
2.Local Integer variable
3.Add integer together
4.Input and Output
5.Add two numbers together
6.Use If statement with Integer
7.The Integer data type is the most efficient way of handling numbers from -32,768 to 32,767
8.Overflow error