VBA中 Select Case End Select 判斷條件語句的基礎知識

最近不少網友請教我Select Case 的語法問題，實在難以逐箇回覆，索性就這箇VBA Select case語法問題寫箇簡單的教程

Private Sub cmdTest_Click()
 Dim lngValue As Integer
 lngValue = Val(txtValue)     '將文本轉換爲數字
  
 Select Case lngValue 
    Case 1               '一箇變量的判斷
        lblTip.Caption = "變量爲1"
    Case 2, 3            '二箇變量的判斷
        lblTip.Caption = "變量爲2或3"
    Case 4 To 8         '多箇變量的判斷
        lblTip.Caption = "變量爲4到8"
    Case 9              '一箇變量的判斷
        lblTip.Caption = "變量爲9"
    Case Case Is > 10, Is < 20 '範圍值 lblTip.Caption ="大於10 小於20" Case Else '不符閤上麵的判斷 lblTip.Caption = "變量爲其他數" End Select End Sub

在select case結構中，如果要錶示某箇具體的數，可以這樣：
case 1
如果要錶示某幾箇具體的數，可以這樣：
case 1, 3, 7
如果要錶示某箇範圍內的數，可以這樣：
case 3 to 8    '從3到8的所有數，包含3和8
但是，如果要錶示的數的範圍隻有下限沒有上限（比如大於3），或者反過來隻有上限沒有下限（比如小於等於6），這怎麽錶示呢？這時候就要用到is瞭：
case is > 3
case is <= 6
所以，這箇is就跟上麵那箇to一樣，就是箇命令詞而已，沒啥特殊的。如果你非要解釋，那牠就是代錶瞭這箇數（卽select case後麵那箇錶達式的值）本身。

Dim number As Integer = 8
Select Case number
    Case 1 To 5
        Debug.WriteLine("1到5之間")
    Case 6, 7, 8
        Debug.WriteLine("可選幾項：6，7，8")
    Case 9 To 10
        Debug.WriteLine("9到10")
    Case Else
        Debug.WriteLine("其牠值")
End Select