Excel利用Select Case評判成績等級優秀、良好、及格、不及格等

 　　首先看看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