摘 要：針對(duì)當(dāng)前高校教師工作量統(tǒng)計(jì)工作數(shù)據(jù)量大，操作繁瑣，易于出錯(cuò)的問(wèn)題，基于Excel VBA二次開發(fā)了教學(xué)工作量統(tǒng)計(jì)系統(tǒng)，軟件新穎獨(dú)特，精巧實(shí)用，大大簡(jiǎn)化常規(guī)統(tǒng)計(jì)工作，減輕了教學(xué)管理人員的工作負(fù)擔(dān)，提高了工作效率，在實(shí)際中得到了較好的運(yùn)用。

關(guān)鍵詞：Excel VBA；教師工作量；統(tǒng)計(jì)系統(tǒng)

引言

高校教師工作量統(tǒng)計(jì)是教學(xué)管理中一項(xiàng)重要的工作，需考慮教師職稱、崗位、授課班級(jí)人數(shù)、課程性質(zhì)、定額工作量、超額工作量等諸多因素，若用人工一項(xiàng)一項(xiàng)統(tǒng)計(jì)計(jì)算，不但費(fèi)時(shí)費(fèi)力，效率低下，還容易出錯(cuò)。運(yùn)用Excel VBA強(qiáng)大的功能二次開發(fā)定制軟件可實(shí)現(xiàn)高效準(zhǔn)確地完成教師工作量統(tǒng)計(jì)工作，使此項(xiàng)工作逐步完善和規(guī)范。

1 需求分析

由于各所高職院校的情況千差萬(wàn)別，教師工作量計(jì)算辦法也不盡相同。該系統(tǒng)以常州建東學(xué)院的教師工作量計(jì)算辦法為依據(jù)，進(jìn)行了系統(tǒng)的設(shè)計(jì)與開發(fā)。教師工作量包括教學(xué)工作量、管理工作量和科研工作量，各項(xiàng)工作的計(jì)算均設(shè)置了分項(xiàng)指標(biāo)和計(jì)算辦法，并根據(jù)崗位和職稱設(shè)定了不同的額定工作量和工作量高限。學(xué)年結(jié)束時(shí)，根據(jù)教學(xué)、管理和科研三方面工作的完成情況統(tǒng)一結(jié)算教師工作量，同時(shí)教學(xué)工作量超過(guò)高限部分按50%計(jì)算。

2 設(shè)計(jì)思路及工具

本系統(tǒng)的設(shè)計(jì)思想是利用大家熟知和常用的Excel 辦公軟件，基于VBA 簡(jiǎn)便的二次開發(fā)功能，做出一個(gè)實(shí)用的計(jì)算機(jī)輔助教師工作量統(tǒng)計(jì)工具。

VBA，是Visual Basic for Application的縮寫，是微軟Office辦公軟件中各套件 （Excel、Access等）內(nèi)嵌的編程語(yǔ)言，采用Visual Basic的語(yǔ)言和面向?qū)ο蠹夹g(shù)。VBA與其他程序開發(fā)語(yǔ)言相比有獨(dú)特優(yōu)勢(shì)，用其他語(yǔ)言開發(fā)應(yīng)用程序，一半的工作是編寫一些基本功能的模塊，包括文件的打開、保存、打印、復(fù)制等，而VBA直接在人們熟悉的Excel界面上進(jìn)行開發(fā)，通過(guò)編程控制這些具有強(qiáng)大功能的軟件，實(shí)現(xiàn)用戶個(gè)性定制化的功能。

3 具體設(shè)計(jì)

系統(tǒng)的設(shè)計(jì)主要包括以下幾個(gè)要素：界面設(shè)計(jì)、數(shù)據(jù)表設(shè)計(jì)、邏輯運(yùn)算設(shè)計(jì)、關(guān)聯(lián)數(shù)據(jù)設(shè)計(jì)、報(bào)表設(shè)計(jì)、模板導(dǎo)出、文件導(dǎo)入、文件合并、一鍵清空數(shù)據(jù)等相關(guān)功能、使繁瑣、重復(fù)操作自動(dòng)化，實(shí)現(xiàn)了工作量統(tǒng)計(jì)的信息化、標(biāo)準(zhǔn)化、規(guī)范化，提高工作效率和應(yīng)用水平，同時(shí)又不改變 Excel 原有的界面、風(fēng)格和操作方式，符合人們的習(xí)慣，易于使用和推廣。

3.1 個(gè)人工作量計(jì)算模板設(shè)計(jì)

教師工作量統(tǒng)計(jì)的工作流程是由教師個(gè)人填報(bào)一個(gè)工作量申報(bào)表文件，交由系部匯總審核，最后由教務(wù)處對(duì)系上報(bào)的數(shù)據(jù)進(jìn)行匯總審核。通過(guò)分析總結(jié)教師工作量各項(xiàng)指標(biāo)以及數(shù)據(jù)的相互關(guān)系，從而設(shè)計(jì)出個(gè)人工作量申報(bào)模板。個(gè)人工作量申報(bào)表分三個(gè)部分設(shè)計(jì)，分別是教學(xué)工作量（第一和第二學(xué)期）、管理工作量和科研工作量。表1 為個(gè)人第一學(xué)期教學(xué)工作量申報(bào)表的設(shè)計(jì)。

（1）表格中的一些內(nèi)容在輸入時(shí)可通過(guò)鍵盤輸入或者下拉列表輸入，通過(guò)下拉列表的設(shè)置可規(guī)范教師自身工作量的填報(bào)。

（2）在一些重要工作量統(tǒng)計(jì)的指標(biāo)中都設(shè)置了提示信息，如課程類別系數(shù)、人數(shù)修正系數(shù)的計(jì)算等，幫助教師按照學(xué)院規(guī)范來(lái)準(zhǔn)確填報(bào)。

（3）在需要計(jì)算的單元格中都進(jìn)行函數(shù)的編寫，實(shí)現(xiàn)自動(dòng)計(jì)算，避免個(gè)別錯(cuò)誤和遺漏。

同樣，管理工作量和科研工作量申報(bào)表的設(shè)計(jì)依照調(diào)研結(jié)果中的各項(xiàng)計(jì)算指標(biāo)和辦法進(jìn)行相關(guān)設(shè)計(jì)，完成個(gè)人工作量申報(bào)模板的設(shè)計(jì)。

3.2 個(gè)人工作量模板導(dǎo)入、導(dǎo)出設(shè)計(jì)

教師根據(jù)模板申報(bào)自己的工作量后，基礎(chǔ)工作即告完成，將個(gè)人工作量模板文件命名為“自己的名字”，然后交由系部秘書匯總。過(guò)去人工匯總時(shí)，教學(xué)秘書需要將單個(gè)教師工作量統(tǒng)計(jì)表文件的數(shù)據(jù)，都復(fù)制到一個(gè)總的系部教師工作量統(tǒng)計(jì)表文件，這個(gè)簡(jiǎn)單重復(fù)的粘貼復(fù)制的操作，往往是最容易出錯(cuò)的環(huán)節(jié)。系統(tǒng)有必要實(shí)現(xiàn)由計(jì)算機(jī)自動(dòng)提取數(shù)據(jù)，減少管理人員進(jìn)行人工操作的繁瑣以及可能出現(xiàn)的差錯(cuò)。

在系統(tǒng)首頁(yè)封面上設(shè)計(jì)了三個(gè)按鈕，分別是“導(dǎo)入文件”、“導(dǎo)出模板”、“清空數(shù)據(jù)”。

（1）系部秘書通過(guò)點(diǎn)擊封面上的“文件導(dǎo)入”按鈕，選擇需要導(dǎo)入的教師工作量文件，或者按住Shift鍵選擇多個(gè)教師的工作量申報(bào)文件，實(shí)現(xiàn)一鍵導(dǎo)入，減少了復(fù)制、粘貼等重復(fù)性操作，減低了操作的失誤和遺漏等問(wèn)題。

此代碼在VBA環(huán)境下編寫，實(shí)現(xiàn)一鍵匯總系部教師工作量統(tǒng)計(jì)表，提高了工作效率和準(zhǔn)確性。

Private Sub CommandButton1_Click（）

Dim FilesToOpen

Dim x As Integer

' On Error GoTo ErrHandler

Application.ScreenUpdating = False

FilesToOpen = Application.GetOpenFilename（FileFilter：=\"MicroSoft Excel文件（*.xls），*.xls\"， MultiSelect：=True， Title：=\"要合并的文件\"）

If TypeName（FilesToOpen） = \"Boolean\" Then

MsgBox \"沒(méi)有選中文件\"

GoTo ExitHandler

End If

x = 1

While x <= UBound（FilesToOpen）

Workbooks.Open Filename：=FilesToOpen（x）

' Sheets（1）.Move After：=ThisWorkbook.Sheets（ThisWorkbook.Sheets.Count） '只要每個(gè)文件的第一張表，否則把Sheets（1）改成sheets（）

for i = 8 To 37

If IsEmpty（ThisWorkbook.Sheets（i）.[E2].Value） Then

Sheets（1）.UsedRange.Copy ThisWorkbook.Sheets（i）.[A1]

MsgBox \"第\" Str（x） \"個(gè)文件數(shù)據(jù)已經(jīng)導(dǎo)入第\" Str（i - 7） \"張表\"

ActiveWorkbook.Close

Exit For

End If

Next i

x = x + 1

Wend

MsgBox \"數(shù)據(jù)合并成功完成！\"

ExitHandler：

Application.ScreenUpdating = True

Exit Sub

（2）點(diǎn)擊封面上的“導(dǎo)出模板”按鈕，可實(shí)現(xiàn)導(dǎo)出空白的模板讓教師進(jìn)行自身工作量申報(bào)。

（3）點(diǎn)擊封面上的“清除數(shù)據(jù)”按鈕，可實(shí)現(xiàn)將表中數(shù)據(jù)清空，從而進(jìn)行下一年度工作量的申報(bào)及匯總。

3.3 系部工作量匯總及薪酬發(fā)放表設(shè)計(jì)

將每位教師的個(gè)人工作量文件都導(dǎo)入之后，就是進(jìn)行各項(xiàng)工作量的匯總和審核。系部工作量匯總主要設(shè)計(jì)了四張表格，分別是“系部教學(xué)工作量匯總”、“系部管理工作量匯總”和“系部科研工作量匯總”及“系部教師超工作量匯總及酬金發(fā)放表”，統(tǒng)計(jì)出系部教師各項(xiàng)工作量明細(xì)。

在這幾張表中主要是設(shè)置數(shù)據(jù)的相互關(guān)聯(lián)，實(shí)現(xiàn)從個(gè)人申報(bào)表到匯總表的綁定和自動(dòng)更新，列出各項(xiàng)明細(xì)。另外就是根據(jù)教師職稱、崗位等不同有各自的工作量指標(biāo)和要求，按照學(xué)院的計(jì)算辦法編寫函數(shù)，實(shí)現(xiàn)超課時(shí)數(shù)的統(tǒng)計(jì)和課時(shí)酬金按月不同比例的發(fā)放，然后保存為“系部工作量匯總”文件。表2為系部教師各項(xiàng)工作量明細(xì)統(tǒng)計(jì)、超課時(shí)數(shù)及超課時(shí)酬金支付報(bào)表設(shè)計(jì)。

3.4 審核操作

最后將“系部工作量匯總”文件提交教務(wù)處審核，教務(wù)處負(fù)責(zé)老師可點(diǎn)擊系統(tǒng)封面上對(duì)應(yīng)的項(xiàng)目進(jìn)入系部各項(xiàng)工作量匯總中查看，對(duì)某位老師的工作量申報(bào)有疑問(wèn)時(shí)點(diǎn)擊序號(hào)進(jìn)入到該教師個(gè)人申報(bào)表中進(jìn)行明細(xì)查詢，有問(wèn)題可在匯總表中進(jìn)行手動(dòng)修改和標(biāo)注。

4 結(jié)束語(yǔ)

該系統(tǒng)通過(guò)Excel函數(shù)和VBA功能等開發(fā)的本院教師工作量統(tǒng)計(jì)系統(tǒng)，實(shí)現(xiàn)了文件導(dǎo)入導(dǎo)出、工作表合并、數(shù)據(jù)統(tǒng)計(jì)匯總、報(bào)表輸出等功能，操作簡(jiǎn)單方便、穩(wěn)定高效，大大減少了教務(wù)處、院（系）部教學(xué)秘書和教師核對(duì)計(jì)算的工作量，使得計(jì)算更科學(xué)化、人性化、規(guī)范化，具有一定地推廣實(shí)用價(jià)值。