遇到的问题
在工作中遇到了一点小小的问题,需要给我负责带的班级的同学们测试男生1000米,女生800米的成绩。表格是这样的:
序号 | 班级 | 姓名 | 性别 | 男1000、女800 | 成绩 |
1 | 1 | 张三 | 男 | 3.50 | |
2 | 1 | 李四 | 女 | 3.44 |
我们在录入完成绩后,需要按照一定的标准去给出学生成绩,标准是这样的:
需要我们根据每个学生的成绩,给出对应的分数。于是,我就计算了下我的工作量:每个人对应的需要给分数,总共需要给六个班 x 70 个人也就是差不多420个人给分数。那样的一个工作量,感觉还是比较累的。于是就想能不能写一个函数,自动实现给学生判分。本来感觉这个应该很简单,一个if函数很容易就可以解决了。
解决方案
后来我按照最初的想法实现了一版。函数是这么写的:(非源代码,类似代码)
=IF(D4<1,1," IF(D4<2,"这是2","IF(D4<3,"这是3","IF(D4<4,"这是4","IF(D4<5,"这是5","IF(D4<6,"这是6","IF(D4<7,"这是7","IF(D4<8,"这是8","IF(D4<9,"这是9","大于9")")")")")")")")")
后来发现这样写没有办法实现,excel会报错,报错如下:
后来查了下,是因为excel中if函数只能嵌套七层,再多的话就会出现刚才的问题。那么问题还是要解决啊,怎么办呢?
优化
=IF(D13<1,1,"")&IF(D13<2,"这是2","")&IF(D13<3,"这是3","")&IF(D13<4,"这是4","")&IF(D13<5,"这是5","")&IF(D13<6,"这是6","")&IF(D13<7,"这是7","")&IF(D13<8,"这是8","")&IF(D13<9,"这是9","")&IF(D13<10,"这是10","")&IF(D13<11,"这11","")&IF(D13<12,"大于11","")
可以继续&连接下去
使用宏vba
Sub Tests()
Dim rng As Range, i As Integer
F2 = "成绩" '标题
For Each rng In Range([e3], Cells(Rows.Count, 5).End(xlUp))
'遍历成绩
If rng.Offset(0, -1) = "女" Then
'按成绩给分
If rng < 3.35 Then
rng.Offset(0, 1) = 100
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 93
ElseIf rng < 3.42 Then
rng.Offset(0, 1) = 86
ElseIf rng < 3.46 Then
rng.Offset(0, 1) = 80
ElseIf rng < 3.5 Then
rng.Offset(0, 1) = 73
ElseIf rng < 3.54 Then
rng.Offset(0, 1) = 67
ElseIf rng < 3.58 Then
rng.Offset(0, 1) = 60
ElseIf rng < 4.03 Then
rng.Offset(0, 1) = 53
ElseIf rng < 4.08 Then
rng.Offset(0, 1) = 47
ElseIf rng < 4.09 Then
rng.Offset(0, 1) = 40
ElseIf rng >= 4.09 Then
rng.Offset(0, 1) = "不及格"
End If
ElseIf rng.Offset(0, -1) = "男" Then
If rng < 3.35 Then
rng.Offset(0, 1) = 100
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 93
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 86
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 80
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 73
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 67
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 60
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 53
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 47
ElseIf rng < 3.38 Then
rng.Offset(0, 1) = 40
ElseIf rng >= 4.09 Then
rng.Offset(0, 1) = "不及格"
End If
End If
If rng = "" Then
rng.Offset(0, 1) = ""
End If
Next rng
End Sub
在excel中将成绩录入完后,点开宏,选中其中的tests (刚才写的函数名称)然后单击执行。如图所示:
width="738" height="523" class="preview-iframe" scrolling="no" frameborder="0" src="http://download.csdn.net/source/preview/9513670/1eb1795a0f5c97d75a3599b191fe7a0b">
http://download.csdn.net/detail/u013049248/9513670