基于教務(wù)系統(tǒng)表格及Excel VBA的學(xué)生平時(shí)成績(jī)換算研究與實(shí)現(xiàn)

李旭東

摘 要：隨著本科課程考核方式改革的深化，許多高等院校已紛紛改變了傳統(tǒng)的只注重一次性結(jié)果評(píng)價(jià)的形態(tài)并向注重過(guò)程評(píng)價(jià)的形態(tài)轉(zhuǎn)變。教師在教學(xué)過(guò)程中加強(qiáng)了課程的過(guò)程考核。當(dāng)前，任課教師對(duì)學(xué)生課程平時(shí)成績(jī)的換算，主要還是靠手工進(jìn)行的。因而，當(dāng)多種形式的考核方式被采用，又當(dāng)學(xué)生平時(shí)考核次數(shù)比較多的時(shí)候，任課教師對(duì)學(xué)生課程平時(shí)成績(jī)的換算將非常耗時(shí)費(fèi)力。為此，本文基于教務(wù)管理系統(tǒng)中的學(xué)生平時(shí)成績(jī)登記表格，利用Excel VBA實(shí)現(xiàn)了教師對(duì)學(xué)生課程平時(shí)成績(jī)的自動(dòng)化換算，將任課教師從繁重的學(xué)生課程平時(shí)成績(jī)換算的手工勞動(dòng)中解放出來(lái)，大大提高了工作效率。

關(guān)鍵詞：學(xué)生成績(jī)；平時(shí)成績(jī)；成績(jī)換算；Excel表格；VBA

中圖分類號(hào)：TP311.1 文獻(xiàn)標(biāo)志碼：A 文章編號(hào)：1673-8454（2014）20-0081-04

一、 引言

隨著本科課程考核方式改革的深化，許多高等院校紛紛改變傳統(tǒng)的只注重一次性結(jié)果評(píng)價(jià)的形態(tài)并向注重過(guò)程評(píng)價(jià)的形態(tài)轉(zhuǎn)變。[1-2] 教師在教學(xué)過(guò)程中加強(qiáng)了課程的過(guò)程考核，通過(guò)平時(shí)考核，對(duì)學(xué)生日常學(xué)習(xí)情況及效果進(jìn)行評(píng)定。通過(guò)教師加強(qiáng)日?？己耍偈箤W(xué)生轉(zhuǎn)變學(xué)習(xí)方式，調(diào)動(dòng)學(xué)生學(xué)習(xí)主動(dòng)性，培養(yǎng)良好的學(xué)習(xí)習(xí)慣，促進(jìn)教師根據(jù)日常考核結(jié)果及時(shí)調(diào)整完善教學(xué)內(nèi)容與方式，提高課堂教學(xué)效果與人才培養(yǎng)質(zhì)量。

對(duì)學(xué)生的平時(shí)考核可采用多種考核方式，如課堂提問(wèn)、課堂辯論、課堂測(cè)驗(yàn)、隨堂作業(yè)、課后作業(yè)、大型作業(yè)、階段測(cè)試、專題研討、讀書報(bào)告、小論文、文獻(xiàn)綜述、調(diào)查報(bào)告、項(xiàng)目設(shè)計(jì)、實(shí)踐操作技能情況等形式。當(dāng)多種形式的考核方式被采用，又當(dāng)學(xué)生平時(shí)考核次數(shù)比較多的時(shí)候，學(xué)期末任課教師對(duì)學(xué)生課程平時(shí)考核登記結(jié)果的整理和換算將是讓教師非常頭痛的事，特別是當(dāng)學(xué)生數(shù)量較多的時(shí)候，因?yàn)楫?dāng)前教師對(duì)學(xué)生課程平時(shí)成績(jī)的換算主要還是靠手工進(jìn)行的。

為了將任課教師從繁重的學(xué)生課程平時(shí)成績(jī)換算的手工勞動(dòng)中解放出來(lái)，本文將基于教務(wù)管理系統(tǒng)中的學(xué)生平時(shí)成績(jī)登記表格（Excel表格），利用Excel VBA[3]開(kāi)發(fā)環(huán)境及其強(qiáng)大功能來(lái)實(shí)現(xiàn)教師對(duì)學(xué)生課程平時(shí)成績(jī)的自動(dòng)化換算。

二、 學(xué)生課程平時(shí)成績(jī)自動(dòng)換算的基礎(chǔ)

1.學(xué)生課程平時(shí)考核結(jié)果的電子化登記

為能利用Excel VBA來(lái)實(shí)現(xiàn)教師對(duì)學(xué)生課程平時(shí)成績(jī)的自動(dòng)化換算，首先，教師對(duì)學(xué)生課程平時(shí)考核結(jié)果須采用Excel電子表格文檔的形式進(jìn)行登記。

一般的，各個(gè)高校各自的教務(wù)管理信息系統(tǒng)均有帶學(xué)生名單的平時(shí)考核登記表提供給課程任課教師，其中，以Excel電子表格的形式居多。倘若校方?jīng)]有Excel形式的學(xué)生課程平時(shí)考核登記表提供，則任課教師須自己制作一份Excel形式的平時(shí)考核登記表。

2.量化或可量化登記

對(duì)學(xué)生課程平時(shí)考核結(jié)果的登記，最為直接的形式就是采用百分制或十分制等的分?jǐn)?shù)，也就是量化登記。但更多的，教師會(huì)選擇采用等級(jí)制的方式進(jìn)行登記，如：優(yōu)秀、良好、中等、及格、不及格，甲、乙、丙、丁、戊，A、B、C、D、E，等等。由于等級(jí)制的每種等級(jí)均可以對(duì)應(yīng)特定的分?jǐn)?shù)，因此，采用等級(jí)制的方式進(jìn)行登記，就稱之為可量化登記。

量化或可量化的登記方式，均適用于本文利用Excel VBA實(shí)現(xiàn)的對(duì)學(xué)生課程平時(shí)成績(jī)的自動(dòng)化換算。

三、對(duì)學(xué)生課程平時(shí)成績(jī)自動(dòng)換算的實(shí)現(xiàn)

本文以“正方教務(wù)管理系統(tǒng)”導(dǎo)出的Excel形式的學(xué)生課程平時(shí)成績(jī)記錄表為例，來(lái)描述利用Excel VBA實(shí)現(xiàn)對(duì)學(xué)生課程平時(shí)成績(jī)的換算。本文所使用的Excel軟件的版本為Excel 2003。

1.學(xué)生課程平時(shí)成績(jī)記錄表的格式

圖1所示為正方教務(wù)管理系統(tǒng)導(dǎo)出的Excel形式的學(xué)生課程平時(shí)成績(jī)記錄表。表格的前4行分別給出了表頭信息、學(xué)期信息、課程名稱、學(xué)分?jǐn)?shù)、任課教師信息。表格的第5、6行，分別給出了表格的標(biāo)題信息：班級(jí)名稱、學(xué)號(hào)、姓名、幾項(xiàng)平時(shí)考核名稱（課堂紀(jì)律、課堂問(wèn)答和討論、作業(yè)和測(cè)試、期中考試、實(shí)驗(yàn)成績(jī)）；其中課堂紀(jì)律6次、課堂問(wèn)答和討論5次、作業(yè)和測(cè)試10次，其余均為單次。表格從第7行開(kāi)始，就是學(xué)生具體的班級(jí)名稱、學(xué)號(hào)、姓名等，課程有多少學(xué)生修讀就有多少行。表格中的關(guān)鍵是，有多次平時(shí)考核的項(xiàng)（課堂紀(jì)律、課堂問(wèn)答和討論、作業(yè)和測(cè)試）的最右側(cè)有個(gè)“成績(jī)”子項(xiàng)，本文就是針對(duì)此項(xiàng)進(jìn)行多次平時(shí)考核的成績(jī)換算。

2.Excel動(dòng)態(tài)菜單的設(shè)計(jì)與實(shí)現(xiàn)

欲實(shí)現(xiàn)對(duì)學(xué)生課程平時(shí)成績(jī)的自動(dòng)換算，須有執(zhí)行該任務(wù)命令的入口和途徑。為此，本文采用Excel動(dòng)態(tài)菜單[4]的形式來(lái)實(shí)現(xiàn)，實(shí)現(xiàn)的效果如圖2所示，其詳細(xì)實(shí)現(xiàn)步驟如下：

（1）在打開(kāi)學(xué)生課程平時(shí)成績(jī)記錄表的狀態(tài)下，依次點(diǎn)擊Excel的菜單“工具”、“宏”、“Visual Basic 編輯器”，進(jìn)入Excel VBA設(shè)計(jì)界面。

（2）在Excel VBA設(shè)計(jì)界面的工程資源管理器中找到ThisWorkbook對(duì)象，雙擊其以進(jìn)入對(duì)其進(jìn)行VBA編程的環(huán)境。

（3）在VBA編程環(huán)境中，選取Workbook的Open事件，并在系統(tǒng)生成的Workbook_Open空事件處理過(guò)程中鍵入如下代碼：

Dim NewMenu As CommandBarPopup

Dim MenuItem As CommandBarControl

Set NewMenu = Application.CommandBars（1）.Controls.Add （msoControlPopup， ， ， ， True）

NewMenu.Caption = "成績(jī)換算（&C）"

Set MenuItem = NewMenu.Controls.Add（msoControlButton）