Excel利用Select Case评判成绩等级优秀.良好.及格.不及格等

05-03

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