基于Excel VBA的高校教师工作量统计系统的设计与实现
开篇：润墨网以专业的文秘视角，为您筛选了一篇基于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
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功能等开发的本院教师工作量统计系统，实现了文件导入导出、工作表合并、数据统计汇总、报表输出等功能，操作简单方便、稳定高效，大大减少了教务处、院（系）部教学秘书和教师核对计算的工作量，使得计算更科学化、人性化、规范化，具有一定地推广实用价值。