首先看看Select Case的語法如下。
[Select Case語句的語法]
Select Case 測試表達(dá)式
Case 條件表達(dá)式1
語句塊1
Case 條件表達(dá)式2
語句塊2
Case 條件表達(dá)式3
語句塊3
......
Case 條件表達(dá)式n
語句塊n
Case Else
語句塊Else
End Select.
注意哦，這種語句是在VBA代碼當(dāng)中使用的。下面提供例子，其功能用來評判成績的等級的，分別為優(yōu)秀、良好、及格、不及格等情況。
If [a1].Value = "" Then
MsgBox "A1單元格沒有輸入數(shù)字。"
Exit Sub ' 退出程序
End If
Select Case [a1].Value
Case Is < 30
MsgBox "差"
Case Is < 60
MsgBox "不及格"
Case Is < 80
MsgBox "及格"
Case Is < 90
MsgBox "良好"
Case Else
MsgBox "優(yōu)秀"