摘要本文介紹了應(yīng)用Excel VBA(Visual Basic for Alication)編制的教師教學(xué)工作量統(tǒng)計(jì)模板,其形式為Excel工作簿文件,新穎獨(dú)特,精巧實(shí)用,操作簡(jiǎn)便,功能較強(qiáng),大大簡(jiǎn)化常規(guī)工作統(tǒng)計(jì)工作,對(duì)提高教學(xué)管理水平和工作效率有重要作用。
關(guān)鍵詞Excel VBA 工作量統(tǒng)計(jì)
中圖分類號(hào):G420文獻(xiàn)標(biāo)識(shí)碼:A
在學(xué)校教學(xué)管理中,統(tǒng)計(jì)工作量是每學(xué)期的必要工作之一。教師教學(xué)工作量的計(jì)算是否科學(xué),將在一定程度上影響教師對(duì)教學(xué)工作的態(tài)度,最終將會(huì)影響學(xué)校的教學(xué)質(zhì)量的提高??陀^評(píng)價(jià)教師教學(xué)質(zhì)量的基礎(chǔ)上,教學(xué)工作量的計(jì)算應(yīng)體現(xiàn)公平、公正,讓絕大多數(shù)的教師感覺到勞動(dòng)價(jià)值的合理性。從而有利于穩(wěn)定教學(xué)秩序,提高教學(xué)質(zhì)量,有利于加強(qiáng)師資隊(duì)伍的建設(shè)與管理,為科學(xué)化、規(guī)范化教學(xué)管理提供依據(jù)。因此,設(shè)計(jì)教學(xué)工作量表應(yīng)較全面,并且分類清晰。
1 需求分析
(1)直接利用Excel環(huán)境,盡可能利用Excel的已有功能,特別是它的編輯、表格、打印等功能。既可以使繁瑣、重復(fù)操作自動(dòng)化,提高工作效率和應(yīng)用水平,同時(shí)又不改變Excel原有的界面、風(fēng)格和操作方式。因此符合人們的習(xí)慣,易于使用和推廣。
(2)工作量總表中教師、教室、班級(jí)、課程信息既可直接用鍵盤輸入,也可從組合框選擇輸入,總表內(nèi)容輸入后,基礎(chǔ)工作即告完成,接下來(lái)每位教師的工作量、每個(gè)學(xué)院的工作量、每個(gè)學(xué)期的工作量以及實(shí)習(xí)、課程設(shè)計(jì)等各種分類的工作量由系統(tǒng)自動(dòng)生成,課表的修飾、復(fù)制、打印也由計(jì)算機(jī)實(shí)現(xiàn)。
(3)當(dāng)某位教師對(duì)自己的工作量提出異議,可利用系統(tǒng)的在線標(biāo)識(shí)功能,得以反應(yīng)到教學(xué)管理人員那里,既準(zhǔn)確又迅速。
2 實(shí)現(xiàn)方法
本模板的設(shè)計(jì)思想是利用已有的大家都熟悉的excel辦公軟件,做出一個(gè)實(shí)用的計(jì)算機(jī)輔助工作量統(tǒng)計(jì)工具。“宏”是Microsoft Office 軟件包中自帶的模塊,“VBA (Visual Basic for Alications )”是 Microsoft Office 軟件包自帶的應(yīng)用程序開發(fā)環(huán)境。同時(shí)VBA是一種強(qiáng)大的開發(fā)技術(shù),將“宏”與“VBA”結(jié)合,就能開發(fā)具有個(gè)性化的輔助軟件。且開發(fā)過(guò)程用時(shí)較少,效率較高,能滿足教學(xué)管理員高效化、簡(jiǎn)單化的需要。
選定一個(gè)工作表,然后按所需格式建立輸入相關(guān)格式,再在表格輸入標(biāo)題等文字,表格應(yīng)反映教師姓名、職稱、課程性質(zhì)、授課班級(jí)、班級(jí)系數(shù)等,最后應(yīng)分課程顯示總的學(xué)時(shí)。在Office 中提供的VBA 開發(fā)界面稱為VBE( Microsoft Visual Basic Editor) 窗口,在該窗口中用戶可以實(shí)現(xiàn)應(yīng)用程序的編寫。在Excel 的菜單欄中執(zhí)行“工具→宏→Visual Basic 編輯器”命令,可以打開VBE界面,再單擊“視圖”的“代碼窗口”即可以輸入“程序示例”→調(diào)試→保存→運(yùn)行即可。在錄入基礎(chǔ)數(shù)據(jù)之后,表格相應(yīng)單元格可以自動(dòng)進(jìn)行填充。
利用Excel 表格、函數(shù)、VBA 編程,設(shè)計(jì)三個(gè)工作表:參數(shù)設(shè)定工作表、授課情況工作表、查詢與匯總工作表。其中,參數(shù)設(shè)定工作表設(shè)計(jì)了三類參數(shù):職稱參數(shù)、課程參數(shù)、班級(jí)參數(shù)。同時(shí)在菜單條上創(chuàng)制一個(gè)新菜單項(xiàng):統(tǒng)計(jì)(S) ,并設(shè)置其相應(yīng)子菜單。讓復(fù)雜的計(jì)算工作在程序后臺(tái)進(jìn)行,操作者只需導(dǎo)入基本數(shù)據(jù)后,點(diǎn)擊相應(yīng)菜單即可實(shí)現(xiàn)以下功能:計(jì)算工作量、匯總工作量、查詢工作量等。
3 程序示例
利用Excel VBA開發(fā)窗體和宏,可以在較大的自由度下實(shí)現(xiàn)數(shù)據(jù)查詢和匯總。以下這段程序是結(jié)合Excel 電子表格,采用VBA編寫程序代碼,添加菜單項(xiàng)(統(tǒng)計(jì)S),利用宏和菜單完成程序功能,便于教學(xué)管理員查詢、匯總和打印,也便于教師們查對(duì)核實(shí),其他程序部分不再給出。
首先,利用VBA 語(yǔ)言,編寫5個(gè)宏:SKCX、YXCX、JSCX、XZHZ、QKJL 。其次,ThisWorkbook 里編寫程序代碼,在Excel 菜單條上添加一個(gè)新的下拉菜單項(xiàng):“統(tǒng)計(jì)(S)”,將5個(gè)宏整合到該菜單中。程序代碼如下:
統(tǒng)計(jì)工作表激活時(shí),將五個(gè)宏添加到菜單
Private Sub Worksheet_Activate ()
Dim items As Variant
menuindex = Application. CommandBars (1) .
Cont rol s (10) . Index
Set 自定義菜單= Application. CommandBar s
(1) . Cont rol s. Add ( Type : = msoCont rolPop up ,be2
fore : = menuindex ,temporary : = True)
自定義菜單. Caption = “統(tǒng)計(jì)( S) ”
Set item1 = Application. CommandBar s (1) .
Cont rol s (“統(tǒng)計(jì)( S) ”) . Cont rol s. Add
item1. Caption = “刷新記錄(1-2-3-4)”
item1. OnAction = “刷新記錄”
Set item1 = Application. CommandBar s (1) .
Cont rols (“統(tǒng)計(jì)( S) ”) . Cont rol s. Add
item1. Caption =”1-按授課性質(zhì)查詢”
item1. OnAction = “SKCX”
Set item1 = Application. CommandBar s (1) .
Cont rols (“統(tǒng)計(jì)( S) ”) . Cont rol s. Add
item1. Caption = “2-按院系查詢”
item1. OnAction = “YXCX”
Set item1 = Application. CommandBar s (1) .(下轉(zhuǎn)第34頁(yè))(上接第32頁(yè))
Cont rols (“統(tǒng)計(jì)( S) ”) . Cont rol s. Add
item1. Caption = “3-按教師查詢”
item1. OnAction = “JSCX”
Set item1 = Application. CommandBar s (1) .
Cont rols (“統(tǒng)計(jì)( S) ”) . Cont rol s. Add
item1. Caption = “4-選擇性匯總”
item1. OnAction = “XZHZ”
Set item1 = Application. CommandBar s (1) .
Cont rols (“統(tǒng)計(jì)( S) ”) . Cont rol s. Add
item1. Caption = “清空原記錄”
item1. OnAction = “QKJL”
End Sub
4 結(jié)論
本系統(tǒng)實(shí)現(xiàn)了對(duì)工作量計(jì)算的輔助統(tǒng)計(jì)功能,具有很好的實(shí)用價(jià)值,已在我院的實(shí)際排課中得到應(yīng)用,取得了較好的效果。不僅大大減少人工計(jì)算和核對(duì)的工作量,而且讓工作量的計(jì)算統(tǒng)計(jì)更加具有人性化和科學(xué)性,提高了工作效率,適應(yīng)教育現(xiàn)代化的要求。
參考文獻(xiàn)
[1]韓澤坤.Excel VBA高效辦公范例應(yīng)用[M].北京:中國(guó)青年電子出版社,2004.
[2]夏強(qiáng).Excel VBA 應(yīng)用開發(fā)與實(shí)例精講[M].北京:科學(xué)出版社.
[3]李政.VBA 應(yīng)用基礎(chǔ)及實(shí)例教程[M].國(guó)防工業(yè)出版社,2005.
[4]何兵.基于VBA 的AutoCAD 圖塊屬性提取與Excel輸出[J].瀘州職業(yè)技術(shù)學(xué)院學(xué)報(bào),2004(2).