Excel宏在学生体测成绩评分与统计中应用研究.docVIP

  • 38
  • 0
  • 约3.63千字
  • 约 8页
  • 2018-08-11 发布于福建
  • 举报

Excel宏在学生体测成绩评分与统计中应用研究.doc

Excel宏在学生体测成绩评分与统计中应用研究

Excel宏在学生体测成绩评分与统计中应用研究   【摘 要】在大学生体质健康测试完成后,要将学生测试成绩从数据库中导出,进行成绩的评分与统计。通过工作方法进行分析评价,发现现有的方法程序复杂,工作重复易出错。本文结合实际工作情况和评分与统计的要求,提出利用Excel “宏”模块操作直接将数据处理成学生体质健康测试成绩打印表。研究结果表明,Excel “宏”操作简便,极大地降低了工作量,并且正确率达到100%。   【关键词】大学生 体质监测 宏技术   大学生体质健康测试工作过程中,学生成绩的管理与统计工作,历来是工作的重点之一。学生的成绩管理统计工作的工作量非常大,主要涉及学生的信息输入、成绩输入、分数评价。学生原始成绩录入电脑后,成绩的管理过程开始启动。首先对体测成绩进行标准的百分处理,这时要用到不同项目的评分表来查分,这是一个重复性的机械工作,工作量非常大。原始成绩处理结束,每年需按照教育部的具体要求进行制定,需再一次的对数据进行整理形成最终的成绩单。学生的评分项目、评分表、成绩单的制定会有一个动态的变化过程,该校每年有万余名本科生需要进行体质监测,涉及到的学生信息和数据处理的工作量非常庞大。学生的体测成绩的管理过程中涉及到很多的重复性操作,本文提出并应用Office办公软件进行辅助管理,运用Excel宏工具解决大学生体测成绩的评分与统计问题,以期提高工作效率。Excel宏是Office软件的一个重要的工具,它可以将一系列的命令和指令组合在一起,形成一个命令,以实现任务执行的自动化[1-3]。它可以替代人工进行一系列费时而重复的操作,可以提高工作效率,同时消除由于人员操作带来的数据处理错误。   一、原学生体测成绩评分方法   每年我校会按照教育部和国家体育总局的要求,针对不同年级的学生确定体质监测测试项目,并在学期末将本期学生的成绩导出。在导出学生成绩一览表中,需要将“年级编号”、“班号”、“出生日期”、“学生来源”、“家庭住址”这5列信息删除,整理如表1的格式。   表1按照学生体测成绩评分标准要求进行整理,步骤如下:   (1)在“性别”列,用“替换”的方法,将“1”替换为“男”,将“2”替换为“女” ;   (2)“身高体重分数”右侧插入一列并命名为“分值”,用“身高体重分数”乘以0.1的结果,记为“身高体重分值”,将身高体重等级列删除;   (3)同理分别将“肺活量体重分数”(乘以0.2)、“耐力类项目分数”(乘以0.3)、“柔韧、力量类项目分数”(乘以0.2)、“速度、灵巧类项目分数”(乘以0.2);分别将肺活量体重等级、耐力类项目等级、柔韧力量类项目等级、速度灵巧类项目等级列删除,排版、检查无误打印、装订。   此步骤操作繁琐、工作强度大,大量的重复工作,导致准确率不高、工作效率低。   二、新方法的运行与评价   按照学生体测成绩评分标准要求进行宏代码的设计,符合该标准要求的宏在 VB 编辑器中对应的代码为:   Private Sub CommandButton_Click()   Columns(N:N).Select   Selection.Delete Shift:=xlToLeft … ‘删除不必要的列表   Columns(N:N).Select   Selection.Insert Shift:=xlToRight   Columns(N:N).Select   Selection.NumberFormatLocal = G/通用格式   Range(N1).Select   ActiveCell.FormulaR1C1 = 分值   … ‘套用单元格式   Range(N2).Select   ActiveCell.FormulaR1C1 = =RC[-1]*0.1   … ‘根据导出表按处理要求迁移各列数据   Range(P2).Select   ActiveCell.FormulaR1C1 = =RC[-1]*0.2   … ‘迁移各列数据   Range(R2).Select   ActiveCell.FormulaR1C1 = =RC[-1]*0.3   … ‘迁移各列数据   Range(T2).Select   ActiveCell.FormulaR1C1 = =RC[-1]*0.2   … ‘迁移各列数据   Range(V2).Select   ActiveCell.FormulaR1C1 = =RC[-1]*0.2   … ‘迁移各列数据   Range(C1).Select   ActiveCell.FormulaR1C1 = 学院   … ‘套用单元格式   Range(C2).S

文档评论(0)

1亿VIP精品文档

相关文档