基于Excel VBA的高校教師工作量統計系統的設計與實現

摘 要：針對當前高校教師工作量統計工作數據量大，操作繁瑣，易于出錯的問題，基于Excel VBA二次開發了教學工作量統計系統，軟件新穎獨特，精巧實用，大大簡化常規統計工作，減輕了教學管理人員的工作負擔，提高了工作效率，在實際中得到了較好的運用。

關鍵詞：Excel VBA；教師工作量；統計系統

引言

高校教師工作量統計是教學管理中一項重要的工作，需考慮教師職稱、崗位、授課班級人數、課程性質、定額工作量、超額工作量等諸多因素，若用人工一項一項統計計算，不但費時費力，效率低下，還容易出錯。運用Excel VBA強大的功能二次開發定制軟件可實現高效準確地完成教師工作量統計工作，使此項工作逐步完善和規范。

1 需求分析

由于各所高職院校的情況千差萬別，教師工作量計算辦法也不盡相同。該系統以常州建東學院的教師工作量計算辦法為依據，進行了系統的設計與開發。教師工作量包括教學工作量、管理工作量和科研工作量，各項工作的計算均設置了分項指標和計算辦法，并根據崗位和職稱設定了不同的額定工作量和工作量高限。學年結束時，根據教學、管理和科研三方面工作的完成情況統一結算教師工作量，同時教學工作量超過高限部分按50%計算。

2 設計思路及工具

本系統的設計思想是利用大家熟知和常用的Excel 辦公軟件，基于VBA 簡便的二次開發功能，做出一個實用的計算機輔助教師工作量統計工具。

VBA，是Visual Basic for Application的縮寫，是微軟Office辦公軟件中各套件 （Excel、Access等）內嵌的編程語言，采用Visual Basic的語言和面向對象技術。VBA與其他程序開發語言相比有獨特優勢，用其他語言開發應用程序，一半的工作是編寫一些基本功能的模塊，包括文件的打開、保存、打印、復制等，而VBA直接在人們熟悉的Excel界面上進行開發，通過編程控制這些具有強大功能的軟件，實現用戶個性定制化的功能。

3 具體設計

系統的設計主要包括以下幾個要素：界面設計、數據表設計、邏輯運算設計、關聯數據設計、報表設計、模板導出、文件導入、文件合并、一鍵清空數據等相關功能、使繁瑣、重復操作自動化，實現了工作量統計的信息化、標準化、規范化，提高工作效率和應用水平，同時又不改變 Excel 原有的界面、風格和操作方式，符合人們的習慣，易于使用和推廣。

3.1 個人工作量計算模板設計

教師工作量統計的工作流程是由教師個人填報一個工作量申報表文件，交由系部匯總審核，最后由教務處對系上報的數據進行匯總審核。通過分析總結教師工作量各項指標以及數據的相互關系，從而設計出個人工作量申報模板。個人工作量申報表分三個部分設計，分別是教學工作量（第一和第二學期）、管理工作量和科研工作量。表1 為個人第一學期教學工作量申報表的設計。

（1）表格中的一些內容在輸入時可通過鍵盤輸入或者下拉列表輸入，通過下拉列表的設置可規范教師自身工作量的填報。

（2）在一些重要工作量統計的指標中都設置了提示信息，如課程類別系數、人數修正系數的計算等，幫助教師按照學院規范來準確填報。

（3）在需要計算的單元格中都進行函數的編寫，實現自動計算，避免個別錯誤和遺漏。

同樣，管理工作量和科研工作量申報表的設計依照調研結果中的各項計算指標和辦法進行相關設計，完成個人工作量申報模板的設計。

3.2 個人工作量模板導入、導出設計

教師根據模板申報自己的工作量后，基礎工作即告完成，將個人工作量模板文件命名為“自己的名字”，然后交由系部秘書匯總。過去人工匯總時，教學秘書需要將單個教師工作量統計表文件的數據，都復制到一個總的系部教師工作量統計表文件，這個簡單重復的粘貼復制的操作，往往是最容易出錯的環節。系統有必要實現由計算機自動提取數據，減少管理人員進行人工操作的繁瑣以及可能出現的差錯。

在系統首頁封面上設計了三個按鈕，分別是“導入文件”、“導出模板”、“清空數據”。

（1）系部秘書通過點擊封面上的“文件導入”按鈕，選擇需要導入的教師工作量文件，或者按住Shift鍵選擇多個教師的工作量申報文件，實現一鍵導入，減少了復制、粘貼等重復性操作，減低了操作的失誤和遺漏等問題。

此代碼在VBA環境下編寫，實現一鍵匯總系部教師工作量統計表，提高了工作效率和準確性。

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 \"沒有選中文件\"

GoTo ExitHandler

End If

x = 1

While x <= UBound（FilesToOpen）

Workbooks.Open Filename：=FilesToOpen（x）

' Sheets（1）.Move After：=ThisWorkbook.Sheets（ThisWorkbook.Sheets.Count） '只要每個文件的第一張表，否則把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） \"個文件數據已經導入第\" Str（i - 7） \"張表\"

ActiveWorkbook.Close

Exit For

End If

Next i

x = x + 1

Wend

MsgBox \"數據合并成功完成！\"

ExitHandler：

Application.ScreenUpdating = True

Exit Sub

（2）點擊封面上的“導出模板”按鈕，可實現導出空白的模板讓教師進行自身工作量申報。

（3）點擊封面上的“清除數據”按鈕，可實現將表中數據清空，從而進行下一年度工作量的申報及匯總。

3.3 系部工作量匯總及薪酬發放表設計

將每位教師的個人工作量文件都導入之后，就是進行各項工作量的匯總和審核。系部工作量匯總主要設計了四張表格，分別是“系部教學工作量匯總”、“系部管理工作量匯總”和“系部科研工作量匯總”及“系部教師超工作量匯總及酬金發放表”，統計出系部教師各項工作量明細。

在這幾張表中主要是設置數據的相互關聯，實現從個人申報表到匯總表的綁定和自動更新，列出各項明細。另外就是根據教師職稱、崗位等不同有各自的工作量指標和要求，按照學院的計算辦法編寫函數，實現超課時數的統計和課時酬金按月不同比例的發放，然后保存為“系部工作量匯總”文件。表2為系部教師各項工作量明細統計、超課時數及超課時酬金支付報表設計。

3.4 審核操作

最后將“系部工作量匯總”文件提交教務處審核，教務處負責老師可點擊系統封面上對應的項目進入系部各項工作量匯總中查看，對某位老師的工作量申報有疑問時點擊序號進入到該教師個人申報表中進行明細查詢，有問題可在匯總表中進行手動修改和標注。

4 結束語

該系統通過Excel函數和VBA功能等開發的本院教師工作量統計系統，實現了文件導入導出、工作表合并、數據統計匯總、報表輸出等功能，操作簡單方便、穩定高效，大大減少了教務處、院（系）部教學秘書和教師核對計算的工作量，使得計算更科學化、人性化、規范化，具有一定地推廣實用價值。