利用EcelVBA构建体育成绩自动转换模型 论文

2022年安徽省中小学教育教学论文评选利用ExcelVBA构建体育成绩自动转换模型摘 要：Excel是Office办公软件的一个组件,它是内置了VBA(VisuailBasicForExcelVBA的功能制作体育成绩自动得分模型，从此模型的建立我们能够延伸到其他模型标准的建立，比如运动会的成绩统计、国家体质测试等，从而达到事半功倍的效果。关键词：EXCEL，VBA，体育，成绩引 6070分，超过化学40分，各个学校也从初一开始就非常重视体育的教学，而且每个学期除了正常的文化课监测，体育每学期也进行测试并计入学生的总成绩，但是体育成绩与文化成绩不同，原因在于体育测试以后直接得到的是一个成绩而不是一个分数，体育教师要根据这个成绩去查阅相关的评分标准才能得出某一项目的测试得分，最后根据每一项目的还有各年级的，男女等各个标准，对于同时任教多个班级的体育教师来说，对每位学生的数据进行统计分析是非常繁琐而庞大的工作量，那么我们可不可以利用Excel强大的功能进行体育成绩的自动得分和汇总呢?Excel是Office办公软件的一个组件,它是内置了VBA(VisuailBasicForApplications)的电子表格计算功能，拥有同其它编程软件一样的可视化的数据管理功能。但同其它开发软件相比，它内置了丰富的工作表函数和灵活多样的表格的输出功能，令其它软件难以相提并论。有了它编程不再是计算机专业人员的专利，具有一般计算机知识的人也可利用它制作出复杂而实用的管理系统，可以不写一行代码，组装出一个管理系统，如果懂得一点VB的编程方法，可以制作出功能强大、应用广泛的管理程序，从而解决我们实际工作、生活中的许多问题。本文就如何利用ExcelVBA的功能制作体育成绩自动得分模型的方法进行探讨。一、制作模板的几个关键因素通过查阅资料和体育教师的交流发现，制作体育成绩自动得分模板需要解决以下几个关键要素：成绩录入的标准，参考标准的序列，男女项目的识别和男女标准的识别，体育成绩“就低不就高”原则。12022年安徽省中小学教育教学论文评选1．成绩录入的标准1000m的成绩是成3.50，这样就会节省很多时间。2．参考标准的序列范围时给予最高或最低的得分。3．男女参考标准的识别者只有女生有，这就要求我们在制作模型时针对男女生要有准确的参考标准进行查找。4．体育成绩“就低不就高”原则在与体育教师的交流中得知，体育成绩有个原则就是“就低不就高”，例如，为3’55进行评分时，如果找不到“男生标准”表A列1000m评分标准对应的值，则自动查找小于或等于的最大值，3'5521～20.5分，所以3’55对应的分值是20.5分，若不增加这一新的评分标准，则会自动查到到“3'53"，对应的分值为21分，就会产生错误的评分。另外，当有高于满分“3’40的成绩出现时，为防止运算出错，在相同分值中增加一个不可能达到的“0’00”标准，以用于此类成绩的运算。二、以马鞍山市体育中考为例制作的模型马鞍山市中考必考项目为男生1000米跑，女生800米跑，满分为24分;选考项目为50米跑、跳绳、掷实心球、立定跳远、足球运球、篮球运球，考生须从中任选两项，每项满分18分。考生体育考试成绩按照三项累计得分，其成绩既按其原始考试成绩计的分析，体育成绩自动得分模型制作的基本步骤可分为以下三步：22022年安徽省中小学教育教学论文评选1．首先要建立“评分标准”的工作表。此表格中应包括各个项目成绩及相对应的得分标准，男女项目分开，男女生分开。2．建立“汇总”的工作表。此表格中需包含学生基本信息、体育考核项目、各项目得分和最后总分等内容。EXCELALT+F11打开VBA设计界面,然后新建“模块Sub成绩转换()Dimr%,i%Dimarr,brrDimdAsObjectSetd=CreateObject("scripting.dictionary")WithWorksheets("评分标准")brr=.Range("a1:v2")Forj=6ToUBound(brr,2)IfLen(brr(1,j))<>0Thenxb=brr(1,j)EndIfIfNotd.exists(brr(2,j))ThenSetd(brr(2,j))=CreateObject("scripting.dictionary")EndIf32022年安徽省中小学教育教学论文评选2,3)))

d(brr(2,j))(xb)=jNextr=.Cells(.Rows.Count,1).End(xlUp).Rowbrr=.Range("a3:v"&r)EndWithtt=d.itemsWithWorksheets("汇总")r=.Cells(.Rows.Count,1).End(xlUp).Rowarr=.Range("a2:ab"&r)Forj=5To17Step2Ifj=5ThenFori=3ToUBound(arr)n=Application.Match(arr(i,5),Application.Index(brr,0,IIf(arr(i,4)="男",arr(i,6)=brr(n,1)NextElseIfd.exists(arr(1,j))ThenFori=3ToUBound(arr)Ifd(arr(1,j)).exists(arr(i,4))Theny=d(arr(1,j))(arr(i,4))n=Application.Match(arr(i,j),Application.Index(brr,0,y))IfNotIsError(n)Thenarr(i,j+1)=brr(n,5)EndIfEndIfNextEndIfEndIfNextFori=3ToUBound(arr)Forj=6To18Step2arr(i,19)=arr(i,19)+arr(i,j)42022年安徽省中小学教育教学论文评选Nextarr(i,20)=Round(arr(i,19)/7,2)Next.Range("a2:ab"&r)=arrEndWithEndSub三、小结通过中考体育成绩自动转换模型的建立，体育教师可以很方便地获得学生的项目得分，掌握学生日常的练习情况，随时对练习内容和强度等进行调整，对帮助学生获得更高得分提供了强有力的数据支持。Excel在体育统计中的不止于此，从此模型的建立我们能够延伸到其他模型标准的建立，比如运动会的成绩统计、国家体质测试等，有了这些模型，体育教师可以轻松地掌控学生的练习数据，了解学生的练习情况，可以有针对性地安排内容，一方面减轻了体育教师的工作量，另一方面也能给体育教师留下更多的时间进行课程内容的改革创新和思考，相信Excel在体育统计中的应用会越来越广泛。参考文献[1]宋国庆.基于ExcelVBA编程的办公自动化表格的设计与开发[].电子技术与软件工程,2015,1