利用EcelVBA構(gòu)建體育成績(jī)自動(dòng)轉(zhuǎn)換模型 論文

2022年安徽省中小學(xué)教育教學(xué)論文評(píng)選利用ExcelVBA構(gòu)建體育成績(jī)自動(dòng)轉(zhuǎn)換模型摘 要：Excel是Office辦公軟件的一個(gè)組件,它是內(nèi)置了VBA(VisuailBasicForExcelVBA的功能制作體育成績(jī)自動(dòng)得分模型，從此模型的建立我們能夠延伸到其他模型標(biāo)準(zhǔn)的建立，比如運(yùn)動(dòng)會(huì)的成績(jī)統(tǒng)計(jì)、國(guó)家體質(zhì)測(cè)試等，從而達(dá)到事半功倍的效果。關(guān)鍵詞：EXCEL，VBA，體育，成績(jī)引 6070分，超過(guò)化學(xué)40分，各個(gè)學(xué)校也從初一開(kāi)始就非常重視體育的教學(xué)，而且每個(gè)學(xué)期除了正常的文化課監(jiān)測(cè)，體育每學(xué)期也進(jìn)行測(cè)試并計(jì)入學(xué)生的總成績(jī)，但是體育成績(jī)與文化成績(jī)不同，原因在于體育測(cè)試以后直接得到的是一個(gè)成績(jī)而不是一個(gè)分?jǐn)?shù)，體育教師要根據(jù)這個(gè)成績(jī)?nèi)ゲ殚喯嚓P(guān)的評(píng)分標(biāo)準(zhǔn)才能得出某一項(xiàng)目的測(cè)試得分，最后根據(jù)每一項(xiàng)目的還有各年級(jí)的，男女等各個(gè)標(biāo)準(zhǔn)，對(duì)于同時(shí)任教多個(gè)班級(jí)的體育教師來(lái)說(shuō)，對(duì)每位學(xué)生的數(shù)據(jù)進(jìn)行統(tǒng)計(jì)分析是非常繁瑣而龐大的工作量，那么我們可不可以利用Excel強(qiáng)大的功能進(jìn)行體育成績(jī)的自動(dòng)得分和匯總呢?Excel是Office辦公軟件的一個(gè)組件,它是內(nèi)置了VBA(VisuailBasicForApplications)的電子表格計(jì)算功能，擁有同其它編程軟件一樣的可視化的數(shù)據(jù)管理功能。但同其它開(kāi)發(fā)軟件相比，它內(nèi)置了豐富的工作表函數(shù)和靈活多樣的表格的輸出功能，令其它軟件難以相提并論。有了它編程不再是計(jì)算機(jī)專(zhuān)業(yè)人員的專(zhuān)利，具有一般計(jì)算機(jī)知識(shí)的人也可利用它制作出復(fù)雜而實(shí)用的管理系統(tǒng)，可以不寫(xiě)一行代碼，組裝出一個(gè)管理系統(tǒng)，如果懂得一點(diǎn)VB的編程方法，可以制作出功能強(qiáng)大、應(yīng)用廣泛的管理程序，從而解決我們實(shí)際工作、生活中的許多問(wèn)題。本文就如何利用ExcelVBA的功能制作體育成績(jī)自動(dòng)得分模型的方法進(jìn)行探討。一、制作模板的幾個(gè)關(guān)鍵因素通過(guò)查閱資料和體育教師的交流發(fā)現(xiàn)，制作體育成績(jī)自動(dòng)得分模板需要解決以下幾個(gè)關(guān)鍵要素：成績(jī)錄入的標(biāo)準(zhǔn)，參考標(biāo)準(zhǔn)的序列，男女項(xiàng)目的識(shí)別和男女標(biāo)準(zhǔn)的識(shí)別，體育成績(jī)“就低不就高”原則。12022年安徽省中小學(xué)教育教學(xué)論文評(píng)選1．成績(jī)錄入的標(biāo)準(zhǔn)1000m的成績(jī)是成3.50，這樣就會(huì)節(jié)省很多時(shí)間。2．參考標(biāo)準(zhǔn)的序列范圍時(shí)給予最高或最低的得分。3．男女參考標(biāo)準(zhǔn)的識(shí)別者只有女生有，這就要求我們?cè)谥谱髂Ｐ蜁r(shí)針對(duì)男女生要有準(zhǔn)確的參考標(biāo)準(zhǔn)進(jìn)行查找。4．體育成績(jī)“就低不就高”原則在與體育教師的交流中得知，體育成績(jī)有個(gè)原則就是“就低不就高”，例如，為3’55進(jìn)行評(píng)分時(shí)，如果找不到“男生標(biāo)準(zhǔn)”表A列1000m評(píng)分標(biāo)準(zhǔn)對(duì)應(yīng)的值，則自動(dòng)查找小于或等于的最大值，3'5521～20.5分，所以3’55對(duì)應(yīng)的分值是20.5分，若不增加這一新的評(píng)分標(biāo)準(zhǔn)，則會(huì)自動(dòng)查到到“3'53"，對(duì)應(yīng)的分值為21分，就會(huì)產(chǎn)生錯(cuò)誤的評(píng)分。另外，當(dāng)有高于滿(mǎn)分“3’40的成績(jī)出現(xiàn)時(shí)，為防止運(yùn)算出錯(cuò)，在相同分值中增加一個(gè)不可能達(dá)到的“0’00”標(biāo)準(zhǔn)，以用于此類(lèi)成績(jī)的運(yùn)算。二、以馬鞍山市體育中考為例制作的模型馬鞍山市中考必考項(xiàng)目為男生1000米跑，女生800米跑，滿(mǎn)分為24分;選考項(xiàng)目為50米跑、跳繩、擲實(shí)心球、立定跳遠(yuǎn)、足球運(yùn)球、籃球運(yùn)球，考生須從中任選兩項(xiàng)，每項(xiàng)滿(mǎn)分18分?？忌w育考試成績(jī)按照三項(xiàng)累計(jì)得分，其成績(jī)既按其原始考試成績(jī)計(jì)的分析，體育成績(jī)自動(dòng)得分模型制作的基本步驟可分為以下三步：22022年安徽省中小學(xué)教育教學(xué)論文評(píng)選1．首先要建立“評(píng)分標(biāo)準(zhǔn)”的工作表。此表格中應(yīng)包括各個(gè)項(xiàng)目成績(jī)及相對(duì)應(yīng)的得分標(biāo)準(zhǔn)，男女項(xiàng)目分開(kāi)，男女生分開(kāi)。2．建立“匯總”的工作表。此表格中需包含學(xué)生基本信息、體育考核項(xiàng)目、各項(xiàng)目得分和最后總分等內(nèi)容。EXCELALT+F11打開(kāi)VBA設(shè)計(jì)界面,然后新建“模塊Sub成績(jī)轉(zhuǎn)換()Dimr%,i%Dimarr,brrDimdAsObjectSetd=CreateObject("scripting.dictionary")WithWorksheets("評(píng)分標(biāo)準(zhǔn)")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年安徽省中小學(xué)教育教學(xué)論文評(píng)選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年安徽省中小學(xué)教育教學(xué)論文評(píng)選Nextarr(i,20)=Round(arr(i,19)/7,2)Next.Range("a2:ab"&r)=arrEndWithEndSub三、小結(jié)通過(guò)中考體育成績(jī)自動(dòng)轉(zhuǎn)換模型的建立，體育教師可以很方便地獲得學(xué)生的項(xiàng)目得分，掌握學(xué)生日常的練習(xí)情況，隨時(shí)對(duì)練習(xí)內(nèi)容和強(qiáng)度等進(jìn)行調(diào)整，對(duì)幫助學(xué)生獲得更高得分提供了強(qiáng)有力的數(shù)據(jù)支持。Excel在體育統(tǒng)計(jì)中的不止于此，從此模型的建立我們能夠延伸到其他模型標(biāo)準(zhǔn)的建立，比如運(yùn)動(dòng)會(huì)的成績(jī)統(tǒng)計(jì)、國(guó)家體質(zhì)測(cè)試等，有了這些模型，體育教師可以輕松地掌控學(xué)生的練習(xí)數(shù)據(jù)，了解學(xué)生的練習(xí)情況，可以有針對(duì)性地安排內(nèi)容，一方面減輕了體育教師的工作量，另一方面也能給體育教師留下更多的時(shí)間進(jìn)行課程內(nèi)容的改革創(chuàng)新和思考，相信Excel在體育統(tǒng)計(jì)中的應(yīng)用會(huì)越來(lái)越廣泛。參考文獻(xiàn)[1]宋國(guó)慶.基于ExcelVBA編程的辦公自動(dòng)化表格的設(shè)計(jì)與開(kāi)發(fā)[].電子技術(shù)與軟件工程,2015,1