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

Admin | 2015-1-23 10:23:23 | 被阅次数 | 7880

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

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