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