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
分享：
相关推荐
- 【excel】 excel背景图片怎么设置 04-13
- 【excel】 表格中的斜线怎么弄 03-09
- 【excel】 怎样把pdf转换成excel文档格式 03-03
- 【excel】 excel表格数字怎么变正常 10-12
- 【excel】 Excel单元格怎么添加下拉选项 09-09
- 【excel】 excel怎么自定义下拉菜单 09-09
- 【excel】 excel怎么设置数据有效性 09-08
- 【excel】 excel怎么调换行列位置 09-02
- 【excel】 excel怎么自动编号排序 08-31
- 【excel】 excel怎么查找相同数据并标记 08-31
本周热门
-
1
如何在Excel中快速输入固定数据 2016/05/25 -
2
Excel常用函数公式大全 2013/08/05
-
3
excel求和出现#value是什么原因? 2016/08/18
-
4
如何实现两个excel表格的加减 2016/07/14
-
5
Excel中怎么在散点图中插入直线 2016/08/08
-
6
如何使用Excel做数据描述统计说明 2013/11/12
-
7
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
8
excel中vlookup函数的值是最后一个数是怎么回事 2016/07/30
本月热门
-
1
在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
-
2
Excel表格中每行数据下面插入一行的方法 2016/12/20
-
3
Excel常用函数公式大全 2013/08/05
-
4
excel求和出现#value是什么原因? 2016/08/18
-
5
Excel打印时每页都有表头设置方法 2015/05/13
-
6
excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
-
7
Excel中将15位身份证号转换为18位 2014/07/08
-
8
Excel中怎么在散点图中插入直线 2016/08/08
-
9
Excel表格中如何对比两列数字的大小? 2016/12/28
-
10
excel表格中隔行选取的三种方法 2016/12/03