一、建立标准查分表

首先是根据《国家体育锻炼标准评分表》以16岁男子(高中一年级)为例，在Excel中建立标准评分表，把工作表命名为“评分表”，建立该表的目的是为了编制自定义函数提供标准。为了编程方便评分表中利用1、2、3、4、5、6、7、8、9、10分别代表50米跑)、100米跑、1000米跑、1500米跑、跳高、跳远、立定跳远、推铅球、掷实心球、屈臂悬垂十个典型的体育达标测验项目(如图一)。

图1

二、建立学生体育成绩表

建立设有班级、姓名、考核项目名称及得分等字段的体育课成绩统计表，把工作表命名为“成绩表”，在班级、姓名及考核内容名称等项目下空格中填入相应的数据，得分暂时空缺(如图二)。

图2

三、利用VBA编制自定义函数

这一步是关键一步，前面两步都是为此作准备的。具体操作如下：

1.点击工具菜单→宏→Visual Basic

编辑器，打开VBA编辑器。

2.在VBA编辑器窗口中点击插入菜单→模块，打开模块编辑窗口。

3.在模块编辑窗口中输入如下代码：

Function result_sp(item, score)

Select Case item

Case 1, 2, 3, 4

If score <= Sheets("评分表").Cells(5, item) Then

result_sp = 100

For i = 5 To 23

If score

> Sheets("评分表").Cells(i, item) And score

<= Sheets("评分表").Cells(i + 1, item) Then

result_sp = 100 - (i - 4) * 5

End If

Next

If score > Sheets("评分表").Cells(24, item) Then

result_sp = 5

Case 5, 6, 7, 8, 9, 10

If score >= Sheets("评分表").Cells(5, item) Then

result_sp = 100

For i = 5 To 23

If score < Sheets("评分表").Cells(i, item) And score

>= Sheets("评分表").Cells(i + 1, item) Then

result_sp = 100 - (i - 4) * 5

End If

Next

If score < Sheets("评分表").Cells(24, item) Then

result_sp = 5

End Select

End Function

以上代码自定义了一个函数result_sp(item,

score),函数有两个参数，item表示测验的达标项目，如前所述1表示50米跑，2表示100米跑……，score表示学生的测验成绩。

四、利用自定义的函数查找学生得分

1.在工作表“成绩表”的“D3”单元格中输入公式“=result_sp(2,C3)”(实际输入时不加引号)，单击确定即可得到第一位同学的100米跑得分，选中“D3”单元格，用鼠标拖动单元格右下方的“数据填充柄”进行“向下填充”，这样就可以得到所有学生的100米的得分。

2.在“F3”单元格中输入公式“=result_sp(3,E3)”，

单击确定即可得到第一位同学的1000米跑得分，利用“数据填充柄”完成其它学生的1000米跑得分。

依此类推，完成其它各项体育成绩得分的查找(如图四)。

图4

同样，其它年级不同组别的达标成绩只需要把本工作薄复制，更改工作表“评分表”中的相应锻炼标准，操作方法类似，实现了一劳永逸。

以上我们通过使用Excel的VBA自己编制的函数，非常方便快捷地完成了学生体育成绩的查找。