基于excelvba的高校教师工作量统计系统的设计与实现

《基于excelvba的高校教师工作量统计系统的设计与实现》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、基于ExcelVBA的高校教师工作量统计系统的设计与实现摘要：针对当前高校教师工作量统计工作数据量大，操作繁琐，易于出错的问题，基于ExcelVBA二次开发了教学工作量统计系统，软件新颖独特，精巧实用，大大简化常规统计工作，减轻了教学管理人员的工作负担，提高了工作效率，在实际中得到了较好的运用。关键词：ExcelVBA；教师工作量；统计系统引言高校教师工作量统计是教学管理中一项重要的工作，需考虑教师职称、岗位、授课班级人数、课程性质、定额工作量、超额工作量等诸多因素，若用人工一项一项统计计算，不但费时费力，效率低下，还容易出错。运用ExcelVBA强大的功能二次开发定制软件

2、可实现高效准确地完成教师工作量统计工作，使此项工作逐步完善和规范。1需求分析由于各所高职院校的情况千差万别，教师工作量计算办法也不尽相同。该系统以常州建东学院的教师工作量计算办法为依据，进行了系统的设计与开发。教师工作量包括教学工作量、管理工作量和科研工作量，各项工作的计算均设置了分项指标和计算办法，并根据岗位和职称设定了不同的额定工作量和工作量高限。学年结束时，根据教学、管理和科研三方面工作的完成情况统一结算教师工作量，同时教学工作量超过高限部分按50%计算。2设计思路及工具本系统的设计思想是利用大家熟知和常用的Excel办公软件，基于VBA简便的二次开发功能，做出一个实

3、用的计算机辅助教师工作量统计工具。VBA,是VisualBasicforApplication的缩写，是微软Office办公软件中各套件（Excel、Access等）内嵌的编程语言，采用VisualBasic的语言和面向对象技术。VBA与其他程序开发语言相比有独特优势，用其他语言开发应用程序，一半的工作是编写一些基本功能的模块，包括文件的打开、保存、打印、复制等，而VBA直接在人们熟悉的Excel界面上进行开发，通过编程控制这些具有强大功能的软件，实现用户个性定制化的功能。3具体设计系统的设计主要包括以下几个要素：界面设计、数据表设计、逻辑运算设计、关联数据设计、报表设计、

4、模板导出、文件导入、文件合并、一键清空数据等相关功能、使繁琐、重复操作自动化，实现了工作量统计的信息化、标准化、规范化，提高工作效率和应用水平，同时又不改变Excel原有的界面、风格和操作方式，符合人们的习惯，易于使用和推广。3.1个人工作量计算模板设计教师工作量统计的工作流程是由教师个人填报一个工作量申报表文件，交由系部汇总审核，最后由教务处对系上报的数据进行汇总审核。通过分析总结教师工作量各项指标以及数据的相互关系，从而设计出个人工作量申报模板。个人工作量申报表分三个部分设计，分别是教学工作量(第一和第二学期)、管理工作量和科研工作量。表1为个人第一学期教学工作量申报表

5、的设计。(1)表格中的一些内容在输入时可通过键盘输入或者下拉列表输入，通过下拉列表的设置可规范教师自身工作量的填报。(2)在一些重要工作量统计的指标中都设置了提示信息，如课程类别系数、人数修正系数的计算等，帮助教师按照学院规范来准确填报。(3)在需要计算的单元格中都进行函数的编写，实现自动计算，避免个别错误和遗漏。同样，管理工作量和科研工作量申报表的设计依照调研结果中的各项计算指标和办法进行相关设计，完成个人工作量申报模板的设计。3.2个人工作量模板导入、导出设计教师根据模板申报自己的工作量后，基础工作即告完成，将个人工作量模板文件命名为“自己的名字”，然后交由系部秘书汇总

6、。过去人工汇总时，教学秘书需要将单个教师工作量统计表文件的数据，都复制到一个总的系部教师工作量统计表文件，这个简单重复的粘贴复制的操作，往往是最容易出错的环节。系统有必要实现由计算机自动提取数据，减少管理人员进行人工操作的繁琐以及可能出现的差在系统首页封面上设计了三个按钮，分别是“导入文件”、“导出模板”、“清空数据”。(1)系部秘书通过点击封面上的“文件导入”按钮，选择需要导入的教师工作量文件，或者按住Shift键选择多个教师的工作量申报文件，实现一键导入，减少了复制、粘贴等重复性操作，减低了操作的失误和遗漏等问题。此代码在VBA环境下编写，实现一键汇总系部教师工作量统计

7、表，提高了工作效率和准确性。PrivateSubCommandButtonlClick()DimFilesToOpenDimxAsInteger‘OnErrorGoToErrHandlerApplication.ScreenUpdating=FalseFilesToOpenApplication.GetOpenFilename(FileFilter：=“MicroSoftExcel文件(*.xls)，*•xls”，MultiSelect：二True，Title：=“要合并的文件”)IfTypeName(FilesT