|
|
|
首先看看Select Case的語法如下。
[Select Case語句的語法]
Select Case 測試表達式
Case 條件表達式1
語句塊1
Case 條件表達式2
語句塊2
Case 條件表達式3
語句塊3
......
Case 條件表達式n
語句塊n
Case Else
語句塊Else
End Select.
注意哦，這種語句是在VBA代碼當中使用的。下面提供例子，其功能用來評判成績的等級的，分別為優秀、良好、及格、不及格等情況。
If [a1].Value = "" Then
MsgBox "A1單元格沒有輸入數字。"
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 "優秀"
End Select
|
|
發表留言請先登錄！
|