利用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(VisuailBasicForApplications)的電子表格計(jì)算功能，利用ExcelVBA的功能制作體育成績(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ī)

引言：隨著國(guó)家對(duì)體育的重視，我省中考體育的成績(jī)達(dá)到了60分，接近物理70分，超過(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ìn)行匯總，而且大多時(shí)候評(píng)分標(biāo)準(zhǔn)也不相同，有國(guó)家體質(zhì)監(jiān)測(cè)的，也有體育課的，還有各年級(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ī)專業(yè)人員的專利，具有一般計(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)

體育成績(jī)不同于學(xué)科成績(jī)，徑賽都是以時(shí)間來(lái)記錄成績(jī)的，比如1000m跑步，學(xué)生的成績(jī)是3’50”，如果這樣錄入會(huì)花費(fèi)大量錄入成績(jī)的時(shí)間，我們可以把3’50”錄入成3.50，這樣就會(huì)節(jié)省很多時(shí)間。 2．參考標(biāo)準(zhǔn)的序列

體育成績(jī)分為田賽成績(jī)和徑賽成績(jī)，對(duì)于田賽來(lái)說(shuō)，數(shù)值成績(jī)?cè)酱蟮梅衷礁?而對(duì)于徑賽來(lái)說(shuō)，數(shù)值成績(jī)?cè)酱蟮梅址炊降?，因此，?duì)徑賽成績(jī)進(jìn)行降序排列處理可以有效地解決這個(gè)田賽和徑賽的問(wèn)題。還有既不是田賽也不是徑賽的項(xiàng)目，我們根據(jù)其特點(diǎn)是成績(jī)?cè)酱蟮梅衷礁哌€是成績(jī)?cè)酱蟮梅址炊“阉鼩w為田賽還是徑賽。再有一點(diǎn)就是需要設(shè)置上下閾值，一般參考標(biāo)準(zhǔn)并沒(méi)有對(duì)成績(jī)的上限和下限進(jìn)行設(shè)置，當(dāng)體育成績(jī)不在標(biāo)準(zhǔn)成績(jī)的范圍內(nèi)時(shí)就會(huì)出現(xiàn)得分返回錯(cuò)誤的信息，所以應(yīng)設(shè)置上下限的數(shù)值，超過(guò)標(biāo)準(zhǔn)范圍時(shí)給予最高或最低的得分。3．男女參考標(biāo)準(zhǔn)的識(shí)別

在體育考試中，同一項(xiàng)目男女生的評(píng)分標(biāo)準(zhǔn)是不同的，而且有的項(xiàng)目只有男生有或者只有女生有，這就要求我們?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’55的最大值，3'55介于“3’53～3’56”之間，對(duì)應(yīng)分值為21～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)有高于滿分“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米跑，滿分為24分;選考項(xiàng)目為50米跑、跳繩、擲實(shí)心球、立定跳遠(yuǎn)、足球運(yùn)球、籃球運(yùn)球，考生須從中任選兩項(xiàng)，每項(xiàng)滿分18分?？忌w育考試成績(jī)按照三項(xiàng)累計(jì)得分，其成績(jī)既按其原始考試成績(jī)計(jì)入中考總分，又作為學(xué)生綜合素質(zhì)評(píng)價(jià)“身心健康”的實(shí)證材料。通過(guò)對(duì)以上關(guān)鍵因素的分析，體育成績(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)容。3．建立VBA，實(shí)現(xiàn)自動(dòng)得分。首先打開(kāi)剛才處理過(guò)的EXCEL文件，用ALT+F11打開(kāi)VBA設(shè)計(jì)界面,然后新建“模塊1”，其代碼如下：Sub成績(jī)轉(zhuǎn)換()Dimr%,i%

Dimarr,brr

DimdAsObject

Setd=CreateObject("scripting.dictionary")

WithWorksheets("評(píng)分標(biāo)準(zhǔn)")brr=.Range("a1:v2")

Forj=6ToUBound(brr,2)

IfLen(brr(1,j))<>0Then

xb=brr(1,j)

EndIf

IfNotd.exists(brr(2,j))Then

Setd(brr(2,j))=CreateObject("scripting.dictionary") EndIf32022年安徽省中小學(xué)教育教學(xué)論文評(píng)選 d(brr(2,j))(xb)=j

Next

r=.Cells(.Rows.Count,1).End(xlUp).Row

brr=.Range("a3:v"&r)

EndWith

tt=d.items

WithWorksheets("匯總")r=.Cells(.Rows.Count,1).End(xlUp).Row

arr=.Range("a2:ab"&r)

Forj=5To17Step2

Ifj=5Then

Fori=3ToUBound(arr)

n=Application.Match(arr(i,5),Application.Index(brr,0,IIf(arr(i,4)="男",2,3)))

arr(i,6)=brr(n,1)

Next

Else

Ifd.exists(arr(1,j))Then

Fori=3ToUBound(arr)

Ifd(arr(1,j)).exists(arr(i,4))Then

y=d(arr(1,j))(arr(i,4))

n=Application.Match(arr(i,j),Application.Index(brr,0,y)) IfNotIsError(n)Then

arr(i,j+1)=brr(n,5)

EndIf

EndIf

Next

EndIf

EndIf

Next

Fori=3ToUBound(arr)

Forj=6To18Step2

arr(i,19)=arr(i,19)+arr(i,j)42022年安徽省中小學(xué)教育教學(xué)論文評(píng)選 Next

arr(i,20)=Round(arr(i,19)/7,2)

Next

.Range("a2:ab"&r)=arr

EndWith

EndSub

通過(guò)上述操作，一個(gè)自動(dòng)轉(zhuǎn)換成績(jī)并匯總的模板就建立了，為了防止操作失誤，對(duì)工作表進(jìn)行了加密處理，對(duì)工作簿中的“評(píng)分標(biāo)準(zhǔn)”進(jìn)行了隱藏處理，此外還可以根據(jù)需要進(jìn)行適當(dāng)?shù)恼{(diào)整美化，如更改字體顏色、“成績(jī)轉(zhuǎn)換”按鈕的美化等。三、小結(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ó)慶.基于Excel