王翔

摘 要：使用VBA在Excel2010環(huán)境下設(shè)計(jì)和開(kāi)發(fā)信息處理系統(tǒng)，具有通俗易操作，易用易推廣和維護(hù)的特點(diǎn)。中職校運(yùn)會(huì)信息處理系統(tǒng)分六個(gè)模塊進(jìn)行了功能設(shè)計(jì)，系統(tǒng)設(shè)計(jì)了個(gè)性化系統(tǒng)界面，直接在Excel工作表中進(jìn)行操作，符合大多數(shù)人的使用習(xí)慣，合理的設(shè)計(jì)工作表，簡(jiǎn)化操作流程，展示部分關(guān)鍵功能的代碼，對(duì)系統(tǒng)運(yùn)行做了說(shuō)明，并對(duì)系統(tǒng)的開(kāi)發(fā)做了展望。系統(tǒng)的實(shí)現(xiàn)大大減輕了校運(yùn)會(huì)的組織管理工作量，系統(tǒng)的運(yùn)行能即時(shí)對(duì)競(jìng)賽成績(jī)進(jìn)行計(jì)分、排名統(tǒng)計(jì)，及時(shí)發(fā)送到相關(guān)部門(mén)處理，使校運(yùn)會(huì)的節(jié)奏更融洽。

關(guān)鍵詞：Excel VBA 校運(yùn)會(huì) 信息處理系統(tǒng) 中職

中圖分類號(hào)：TP311 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1674-098X（2015）09（b）-0050-02

中等職業(yè)學(xué)校學(xué)生精力旺盛，為豐富校園文化生活，強(qiáng)健學(xué)生體魄，每年舉行一次校園運(yùn)動(dòng)會(huì)，對(duì)促進(jìn)學(xué)生身體鍛煉，活躍校園文化氛圍具有重要意義。然而從報(bào)名到成績(jī)錄入統(tǒng)計(jì)等都需要大量的人力物力配合，怎樣快速的統(tǒng)計(jì)及安排賽事、錄入統(tǒng)計(jì)成績(jī)，就顯得尤為重要，采用VBA（Visual Basic for Applications）在Excel下設(shè)計(jì)及開(kāi)發(fā)校運(yùn)會(huì)信息處理系統(tǒng)可以很好地解決上述問(wèn)題，由于Excel的環(huán)境為大多數(shù)師生所熟悉，所以通俗易操作，易用易推廣，并且系統(tǒng)也易于維護(hù)。

1 系統(tǒng)設(shè)計(jì)

1.1 功能設(shè)計(jì)

系統(tǒng)設(shè)計(jì)功能主要分為六個(gè)模塊：系統(tǒng)設(shè)置及維護(hù)模塊、報(bào)名信息處理模塊、賽事分組道模塊、預(yù)賽管理模塊、成績(jī)錄入統(tǒng)計(jì)模塊、記錄更新輸出模塊。

系統(tǒng)設(shè)置及維護(hù)模塊主要用來(lái)設(shè)置競(jìng)賽的項(xiàng)目、進(jìn)入決賽的人數(shù)、徑賽的道數(shù)、年級(jí)組別、名次得分設(shè)置以及系統(tǒng)相關(guān)的密碼和相應(yīng)維護(hù)設(shè)置；報(bào)名信息處理模塊需配合FTP服務(wù)器使用，各班級(jí)通過(guò)報(bào)名表選擇需要報(bào)選的項(xiàng)目和學(xué)生姓名，完成后點(diǎn)擊上傳按鈕則可以自動(dòng)檢測(cè)是否有錯(cuò)，無(wú)錯(cuò)后自動(dòng)上傳到FTP服務(wù)器，不用人工干預(yù)，報(bào)名表收集完成后進(jìn)行匯總，生成序號(hào)<唯一>；賽事分組道模塊需先設(shè)置分組道的一些設(shè)置，比如單項(xiàng)每組分多少道，成績(jī)?nèi)∏岸嗌倜?，然后分年?jí)分性別進(jìn)行隨機(jī)分組道，分組時(shí)（徑賽）按照同一班盡量不安排同一組，分道時(shí)（徑賽）同一班盡量不安排同一道的原則，以盡量做到分組道的公平；預(yù)賽管理模塊主要實(shí)現(xiàn)需要預(yù)賽項(xiàng)目的信息處理，包括成績(jī)錄入統(tǒng)計(jì)、決賽分組道情況匯入總表等；成績(jī)錄入統(tǒng)計(jì)模塊則包括所有決賽項(xiàng)目的成績(jī)錄入、按項(xiàng)目統(tǒng)計(jì)排名、按班級(jí)進(jìn)行統(tǒng)計(jì)排名，分年級(jí)統(tǒng)計(jì)總分排名等功能；記錄處理模塊將根據(jù)當(dāng)前屆比賽情況自動(dòng)更新校運(yùn)會(huì)新記錄、并可將記錄輸出等。

1.2 窗體設(shè)計(jì)

為了簡(jiǎn)潔系統(tǒng)操作界面，使用Custom UI Editor For Microsoft Office軟件將原Excel2010界面上默認(rèn)功能區(qū)全部取消隱藏，另行創(chuàng)建系統(tǒng)相關(guān)功能區(qū)，如圖1所示。

系統(tǒng)工作界面則采用直接在工作表中完成，通過(guò)主工作表（總表）衍生出一系列相關(guān)工作表，在相應(yīng)的工作表中放置相應(yīng)功能的按鈕，通過(guò)設(shè)置項(xiàng)，選擇或輸入數(shù)據(jù)，通過(guò)點(diǎn)擊相應(yīng)的按鈕來(lái)實(shí)現(xiàn)相應(yīng)的功能，如圖2（錄入成績(jī)）就是一個(gè)典型的工作界面。

1.3 工作流程

按照校運(yùn)會(huì)進(jìn)行的邏輯順序，整個(gè)系統(tǒng)的運(yùn)行分為三個(gè)階段，第一階段為各班報(bào)名，完成報(bào)名后系統(tǒng)進(jìn)行匯總，然后進(jìn)行分組、分道的處理，將分好組道的數(shù)據(jù)生成秩序冊(cè)下發(fā)到各相關(guān)工作人員和各班；第二階段則是組織預(yù)賽，并將預(yù)賽成績(jī)進(jìn)行處理后生成決賽信息匯總到數(shù)據(jù)總表；第三階段是進(jìn)行決賽的數(shù)據(jù)處理，這個(gè)階段要求決賽的數(shù)據(jù)能錄入進(jìn)系統(tǒng)后能即時(shí)進(jìn)行排名和計(jì)算得分，并生成相應(yīng)的報(bào)表和輸出打印，分別交相關(guān)小組進(jìn)行處理，最后所有賽事完成后，能分年級(jí)進(jìn)行匯總排名計(jì)算獎(jiǎng)勵(lì)班級(jí)，并生成各班的成績(jī)報(bào)表便于各班核查成績(jī)，最后更新校運(yùn)會(huì)記錄和輸出優(yōu)勝者名單，具體工作流程如圖3所示。

2 系統(tǒng)實(shí)現(xiàn)

2.1 工作表設(shè)計(jì)

系統(tǒng)包含的工作表主要有：總表、分組道、成績(jī)錄入、統(tǒng)計(jì)、預(yù)賽總表、預(yù)賽處理、班級(jí)信息、記錄、導(dǎo)航、系統(tǒng)設(shè)置等10個(gè)工作表。班級(jí)信息、記錄、系統(tǒng)設(shè)置三個(gè)表用來(lái)存放班級(jí)的男女生人數(shù)、基本分等基本信息，上屆校運(yùn)會(huì)的各項(xiàng)記錄，項(xiàng)目設(shè)置、名次得分等；總表是各班報(bào)名表的匯總處理，里面存放了各個(gè)項(xiàng)目的信息，是整個(gè)系統(tǒng)最關(guān)鍵的表，而預(yù)賽總表、分組道等表是從此表衍生而出的；分組道、成績(jī)錄入、統(tǒng)計(jì)、預(yù)賽處理則是對(duì)總表和預(yù)賽總表根據(jù)賽程推進(jìn)而進(jìn)行的操作，其中生成了一些文檔性數(shù)據(jù)，如秩序冊(cè)、班級(jí)成績(jī)報(bào)表、班級(jí)成績(jī)排名、單項(xiàng)成績(jī)報(bào)表等；導(dǎo)航表用來(lái)選擇進(jìn)入系統(tǒng)的相應(yīng)功能。

2.2 系統(tǒng)的關(guān)鍵功能

系統(tǒng)實(shí)現(xiàn)的功能較多，而較為關(guān)鍵的有報(bào)名表自動(dòng)上傳、分組道、成績(jī)錄入、成績(jī)得分統(tǒng)計(jì)、記錄更新等。對(duì)于運(yùn)動(dòng)會(huì)來(lái)說(shuō)，打破記錄是一項(xiàng)令人歡欣鼓舞的事情，所以每一屆校運(yùn)會(huì)記錄的更新也顯得尤為重要，更新記錄按鈕CommandButton2的代碼如下（篇幅所限，其他代碼不一一列舉）：

（1）Private Sub CommandButton2_Click（）

（2）Dim i， j， k， m As Integer'更新記錄

（3）For i = 1 To Sheet9.Range（"I19"） 'sheet9是記錄表，I19存放破紀(jì)錄人次

（4）For j = 1 To 12 '循環(huán)項(xiàng)目

（5）If Sheet9.Cells（20 + i， 5） = Sheet9.Cells（4 + j， 1） And Sheet9.Cells（20 + i， 9） = 1 Then '按破紀(jì)錄的項(xiàng)目進(jìn)行更新

（6）For k = 1 To 2 '循環(huán)年級(jí)

（7）For m = 1 To 2 '循環(huán)性別

（8）If Sheet9.Cells（20 + i， 4） = Sheet6.Cells（m + 7， 2） And Sheet9.Cells（20 + i， 6） = Sheet6.Cells（k + 1， 2） Then '更新記錄

（9）Sheet9.Cells（4+j，2+（k-1）*8+ （m - 1） * 4） = Sheet9.Cells（20 + i， 7） '成績(jī)

（10）Sheet9.Cells（4 + j， 3 + （k - 1） * 8 + （m - 1） * 4） = Sheet9.Cells（20 + i， 1） '姓名

（11）Sheet9.Cells（4 + j， 4 + （k - 1） * 8 + （m - 1） * 4） = Sheet9.Cells（20 + i， 2） '班級(jí)

（12）Sheet9.Cells（4 + j， 5 + （k - 1） * 8 + （m - 1） * 4） = Sheet9.Range（"B2"） + 1986.11 '日期

（13）GoTofindnext '記錄已更新，跳轉(zhuǎn)到下一條記錄

（14） End If

（15） Next m

（16）Next k

（17）End If

（18）Next j

（19）findnext： '跳轉(zhuǎn)

（20）Next i

（21）Sheet9.Range（"b2"） = Sheet9.Range（"b2"） + 1 '屆數(shù)增加1

（22）Sheet9.Range（"L2"） = Sheet9.Range（"X1"） '改寫(xiě)更新日期

（23）End Sub

3 系統(tǒng)運(yùn)行

（1）由于該程序的開(kāi)發(fā)涉及到了宏的使用，所以第一打開(kāi)該文件，會(huì)彈出“安全警告”，如下圖4所示，點(diǎn)擊“啟用內(nèi)容”即可。

（2）收集報(bào)名表時(shí)需用到FTP服務(wù)器，所以需架設(shè)FTP服務(wù)器，使用Serv-u很容易實(shí)現(xiàn)，只需要在Serv-u的用戶項(xiàng)中新建一個(gè)用戶，名稱和密碼與報(bào)名表系統(tǒng)設(shè)置中一致即可。需要注意的是，建立用戶時(shí)一定要賦予用戶目錄具有“寫(xiě)”的權(quán)限。

（3）系統(tǒng)運(yùn)行中為降低系統(tǒng)數(shù)據(jù)丟失的風(fēng)險(xiǎn)，系統(tǒng)設(shè)置了每隔五分鐘以“系統(tǒng)文件名+系統(tǒng)時(shí)間”另存一次當(dāng)前數(shù)據(jù)的功能，而保存時(shí)，如果路徑中出現(xiàn)中文字符則容易出錯(cuò)，所以，系統(tǒng)文件建議放到D：＼sport或E：＼sport下，并在其中建立bak文件夾用來(lái)保存另存的數(shù)據(jù)。

（3）目前該系統(tǒng)已經(jīng)在筆者所在學(xué)校兩屆的校運(yùn)會(huì)中運(yùn)行，從運(yùn)行的過(guò)程和結(jié)果來(lái)看，完全滿足了校運(yùn)會(huì)的需要，能夠?qū)斎氲某煽?jī)即時(shí)進(jìn)行計(jì)分、排名統(tǒng)計(jì)、輸出，獲得了校運(yùn)會(huì)組織部門(mén)的高度評(píng)價(jià)。

4 系統(tǒng)展望

系統(tǒng)中，報(bào)名部分是獨(dú)立的，為保證報(bào)名數(shù)據(jù)中姓名、班別以及姓名的一致性，需要在報(bào)名表中事先預(yù)存全校參賽班級(jí)及學(xué)生的信息，這就要求管理員在報(bào)名之前先將這些信息存放進(jìn)去，工作量也較為繁雜，所以進(jìn)一步的打算是開(kāi)發(fā)一個(gè)接口程序?qū)⑿@網(wǎng)與報(bào)名表對(duì)接，直接從校園網(wǎng)中獲取最新信息，免去人工操作的繁雜和出錯(cuò)。

系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，總是與需求相關(guān)的，所以在使用過(guò)程中，根據(jù)實(shí)際情況，系統(tǒng)也會(huì)進(jìn)一步的升級(jí)和增加功能。比如有一年學(xué)校要選拔學(xué)生參加市運(yùn)動(dòng)會(huì)，需要將每個(gè)項(xiàng)目前三名的男女生姓名、成績(jī)等輸出，這個(gè)功能系統(tǒng)之前是沒(méi)有的，接到需求后，很快系統(tǒng)就添加了這個(gè)功能。

5 結(jié)語(yǔ)

VBA 易于學(xué)習(xí)掌握，可以使用宏記錄器記錄用戶的各種操作并將其轉(zhuǎn)換為VBA 程序代碼，這樣用戶可以容易地將日常工作轉(zhuǎn)換為VBA 程序代碼，使工作自動(dòng)化。因此，對(duì)于在工作中需要經(jīng)常使用Office軟件的用戶，學(xué)用VBA 有助于使工作自動(dòng)化，提高工作效率。作為中職信息技術(shù)教師，使用office軟件是及其頻繁是平常的，平時(shí)多觀察多研究，利用專業(yè)知識(shí)和技能開(kāi)發(fā)信息系統(tǒng)，可以使自己和同事從教學(xué)、生活中哪些繁瑣，重復(fù)性的工作中解脫出來(lái)，以利于更好的學(xué)習(xí)和生活。當(dāng)然信息系統(tǒng)的開(kāi)發(fā)不是一朝一夕的事，需要靜下心來(lái)，溝通需求，尋找方法，仔細(xì)研究，才能逐步實(shí)現(xiàn)。

參考文獻(xiàn)

[1] 羅剛君.Excel2010VBA編程與實(shí)踐[M].北京：電子工業(yè)出版社，2012.

[2] 羅剛君.ExcelVBA程序開(kāi)發(fā)自學(xué)寶典[M].北京：電子工業(yè)出版社，2011.

[3] 劉洪花.基于VBA的Excel考試系統(tǒng)的制作[J].電腦編程技巧與維護(hù)，2012（18）：42-44.

[4] 劉本斌.基于Excel VBA的考試系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)[J].現(xiàn)代計(jì)算機(jī)，2012（17）：78-80.

[5] 畢克書(shū).基于Excel VBA開(kāi)發(fā)干部管理信息系統(tǒng)[J].中國(guó)管理信息化，2012， 15（5）：51-52.