遇到的问题
在工作中遇到了一点小小的问题，需要给我负责带的班级的同学们测试男生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用& 链接，代码如下：
=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
后来，就考虑是不是用下vba。然后就查了相关的信息。发现vba实现的话其实很简单。按Alt+F11键后，出现如下
在其中写入代码如下：
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 （刚才写的函数名称）然后单击执行。如图所示：
单击执行，然后得出成绩。如图所示：
自动算分实现。不过目前只能实现一个表格，要想每个表格都实现，那么就需要写在vba的模块中。具体深入的写法，有一本书推荐给大家《别怕，Excel VBA其实很简单》这本书上有详细的介绍。
http://download.csdn.net/detail/u013049248/9513670