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

最近不少網(wǎng)友請教我Select Case 的語法問題，實(shí)在難以逐個(gè)回復(fù)，索性就這個(gè)VBA Select case語法問題寫個(gè)簡單的教程

Private Sub cmdTest_Click()
 Dim lngValue As Integer
 lngValue = Val(txtValue)     '將文本轉(zhuǎn)換為數(shù)字
  
 Select Case lngValue 
    Case 1               '一個(gè)變量的判斷
        lblTip.Caption = "變量為1"
    Case 2, 3            '二個(gè)變量的判斷
        lblTip.Caption = "變量為2或3"
    Case 4 To 8         '多個(gè)變量的判斷
        lblTip.Caption = "變量為4到8"
    Case 9              '一個(gè)變量的判斷
        lblTip.Caption = "變量為9"
    Case Case Is > 10, Is < 20 '范圍值 lblTip.Caption ="大于10 小于20" Case Else '不符合上面的判斷 lblTip.Caption = "變量為其他數(shù)" End Select End Sub

在select case結(jié)構(gòu)中，如果要表示某個(gè)具體的數(shù)，可以這樣：
case 1
如果要表示某幾個(gè)具體的數(shù)，可以這樣：
case 1, 3, 7
如果要表示某個(gè)范圍內(nèi)的數(shù)，可以這樣：
case 3 to 8    '從3到8的所有數(shù)，包含3和8
但是，如果要表示的數(shù)的范圍只有下限沒有上限（比如大于3），或者反過來只有上限沒有下限（比如小于等于6），這怎么表示呢？這時(shí)候就要用到is了：
case is > 3
case is <= 6
所以，這個(gè)is就跟上面那個(gè)to一樣，就是個(gè)命令詞而已，沒啥特殊的。如果你非要解釋，那它就是代表了這個(gè)數(shù)（即select case后面那個(gè)表達(dá)式的值）本身。

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