关于学生健康达标数据统计之解决的方案.docVIP

关于学生健康达标数据统计之解决的方案 　　教育部全国学生体质健康标准数据管理中心研发了一套体质健康管理系统，在全国已普遍采用。这套管理系统采用了使用较广泛的Excel进行数据导入与导出，这样提高数据的重用率和与其他软件的兼容性，为学生体质健康、体育达标评分工作提供了非常大的便利，避免了手工查询数据进行评分与登记的繁劳与人为出错的可能。同时，全国各地数据统一汇报到中国学生体质健康网后，又为各部门了解掌握与分析全国或部分地区的学生体质健康与 　　体育达标情况提供了依据与便利。作为在教育第一线的体育教师，更是直接的受益者。 　　 　　在使用该统计表过程中，笔者发现这套管理系统美中不足的是它评分、划等级、生成Excel文档后并没有直接进行数据统计，需上传到中国学生体质健康网上后，过两天才能到网上查各种统计成绩。这样教师就不能及时地了解学生成绩情况。同时，网上的统计是分项的，一次只能生成一项的数据，使用起来不是很方便。能不能自己进行统计呢？当然，应该说由Excel文档再进行统计也不是难事，可偏偏此Excel文档每个单元格格式为“文本”，这样的格式中，数字作为文本处理，是不能进行运算的，这样平均分如何求得？改为“常规”后仍不能进行计算。左调右试，原来是改格式后，需激活方才有效。如何激活？需双击此单元格。（原表及统计表如/体质健康统计示例.rar）这么多的数据，一个一个点是不是太机械，同时也不可能？何况，上级部门所需要的统计表复杂到分年级、分性别计算，再小计，全校再合计，如表1所示。 　　 　　如何进行统计，得出上表的数据呢？体育达标工作转眼在春夏之交又将进行了，这项统计工作又将落在教师的身上，如何才能取得事半功倍甚至一劳永逸的效果呢？笔者经过摸索，寻找到以下几种解决方案与途径，因其具有广泛的适用性与参考意义，特抛出与大家共勉。 　　 　　方案一 克服激活问题，进行统计 　　 　　方法1：重新拷贝与选择性粘贴将需统计的表单全部拷贝，并新建一表，进行选择性粘贴。在选择性粘贴的对话框中选择运算为“加”，这样处理后的数据将可以进行计算。但非常可惜的是，除数字外，其余文字均不见了，对需要的文字应再选中其列，进行复制。显而易见，这绝非良策。 　　方法2：更改格式，再导入将表单另存为文本文件（在“另存为”对话框中选保存类型为“文本文件 *.txt”），再将数据导入（在菜单“数据/获取外部数据/导入文本文件”中按向导对话框提示点击“下一步”、“下一步”、“完成”即可）。 　　方法3：用VBA宏的方法激活进入菜单“工具/宏/Visual Basic编辑器”编写如下宏： 　　Sub 改格式并激活的宏() 　　Cells.Select 　　Selection.NumberFormatLocal = G/通用格式′改格式为常用 　　ActiveCell.SpecialCells(xlLastCell).Select′找到最后一格 　　MaxRow = ActiveCell.Row ′最大行 　　MaxCol = ActiveCell.Column′最大列 　　For i = 1 To MaxCol 　　CharOfCol = Chr(Asc(A) + (i - 1) Mod 26) ′列的字母 　　If i 26 Then CharOfCol = Chr(Asc(A) + i \ 26 - 1) CharOfCol 　　For j = 1 To MaxRow 　　 Range(CharOfCol j).Select 　　 ActiveCell.FormulaR1C1 = ActiveCell.Text ′激活单元格 　　 Next j,i 　　End Sub 　　以上这些方法均达到更改单元格格式，使之能进行计算的效果，还要多次进行排序、筛选、汇总、计数、用函数计算等操作。但由于本次统计数据复杂，运用这些方法仍需要做大量的工作，因此不能算是理想的方案。 　　 　　方案二 运用VBA编写宏，直接得出统计数据 　　 　　Excel提供了宏，可以方便地进行VBA程序编写，用机器进行计算和判断的速度与准确性是人脑所不能比拟的。根据原始表中“年级编号”在A列，分别在年级前加了个“1”,“性别”在G列，用“1”和“2”表示男女，“总分”在AG列，“等级”在AH列的特点，结合统计表所需数据，本人编写了VBA宏。您可以将之拷贝下来，放入宏中运行即可得出所需各项数据。为使之对大家有参考与借鉴意义，方便大家在另外工作中需要时进行修改，加入了较多注释。（由于篇幅原因，这里讲一下关键代码，完整示例在我的个人网站中，点击/体质健康统计示例.rar可进行下载）主要步骤如下。 　　定义标题、各种计数数组、数组始化关键代码如