吉林师范大学计算机学院VBA电子教案课件10.pptVIP

第十章 教学工作量统计模板 10.1 设计目标 10.2 “总表”工作表结构设计 10.3 工作簿代码设计 10.4“总表”工作表代码 10.5 “院课”工作表设计 10.6 “系课”工作表设计 10.7 “实验课”工作表设计 10.8 使用说明 10.1 设计目标 本章介绍一个针对于高等学校的教学工作量统计模板，它用来统计教师各教学环节的课时数和课时费等。其设计目标为： 1．以系为单位，按学期或学年，输入或修改每位教师各门课各教学环节的教学工作量基本数据。 2．对各教学环节按一定算法写出计算公式并计算出结果。 3．求出每位教师的教学工作量总学时，并根据不同职称的课时费标准计算出课时费。 4．求出整个单位的工作量合计、课时费合计等数据。 5．在“总表”基础上，产生出“系内课”、“学院课”和“实验课”教学工作量分表。 6．工作量算法在线提示。 7．打印输出。 只需在“总表”中输入基本数据，公式自动填入，计算自动完成，分表自动产生。 10.2 “总表”工作表结构设计 整个教学工作量统计模板是一个工作簿，包含“信息”、“总表”、“院课”、“系课”和“实验课”五个工作表。“信息”工作表内容比较简单，只有各级职称课时费标准和使用说明。“总表”是核心，是信息的基础。“院课”、“系课”和“实验课”在总表的基础上由系统生成 “总表”的格式如图10.1所示 页面设置：定义纸张大小为A4，横向。上下左右页边距分别为1、1、0.9、0.9。 单元格格式设置：学时、课时费的数值为1位小数，其余列数字作为文字处理。学时、课时费水平靠右，其余居中。垂直居中。标题为“宋体”16号字，其余为“宋体”9号字。字体控制设置为缩小字体充。 行高度设置：5-200行，用“格式|行|行高”菜单，设置行高为12，其余行按实际情况手动调整。列宽度参照图10.1手动调整。宽度的调整要保证AB列在页边距之内，而AC列在页边距之外（以使打印时将其排除在页外）。 表格项目的填写说明和工作量算法说明等信息以批注的形式给出，查阅方便，形式直观。图10.2、图10.3是关于理论课总学时和实验课总学时的批注。表头右上角中带三角标记的均有批注信息。 打开“控件工具箱”工具栏，在工作表的右侧添加两个命令按钮，命令按钮的caption属性分别设置为“排序求和”和“清除汇总”。 10.3 工作簿代码设计 工作簿中“总表”以及其它各工作表单元格内容发生变化时，系统应自动填写或计算相应值。为此，我们应对当前工作簿Workbook的SheetChange事件编写代码： 编写代码首先求出当前表名、当前单元格地址，并从当前单元格地址中分解出列名和行号。 “总表”中输入基本信息和系统自动填入的结果如图10.4所示。 各级职称的课时费 标准在“信息”工作 表中设置情况如图 10.5所示。 10.4“总表”工作表代码 前面提到，“总表”工作表上定义了两个命令按钮：“排序求和”和“清除汇总 “ “排序求和”命令按钮的Click事件代码如下： Private Sub CommandButton1_Click() Call sort_sum End Sub 它调用通用模块（模块1）中的过程sort_sum对当前工作表按“教师”排序、求各教师工作量小计和总计信息。 通用模块的建立方法是：在当前工程VBAProject中，选择“插入”菜单的“ 模块”项，插入一个通用模块，用默认名“模块1”。 sort_sum是在模块1中定义的过程之一，编写代码在这个过程中。 首先判断“A5”单元格是否有值，若无值则提示“无数据”并 退出。再查找A列中是否有“总工作量”字样，若有，说明该表已经进行了 “排序求和”，也退出。 其次，按教师姓名排序,设置教师总学时边框横线（因为有的可能被删除过）。求各位教师工作量小计和课时费。方法是从5行到“教师名为空”循环，若教师未改变，则教师学时累加，否则，累加教师人数、填写教师 总学时、总课时费、删除教师总学时和教师总课时费边框中间横线。 最后，插入一个汇总行，填入总工作量、教授工作量、副教授工作量、 讲师工作量、助教工作量、总课时费、教师人数等汇总信息，并插入符。 “总表”中“排序求和”代码执行后的情形如图10.6所示。 总表中“清除汇总”命令按钮的Click事件代码如下： Private Sub CommandButton2_Click() Call dele_r End Sub 它调用通用模块（模块1）中的过程dele_r清除当前工作表中汇总行和分页符。以便增删教师教学工作量信息。 对过程dele_r