第十一章 教学计划辅助制订模板 VBA电子教案 Visual Basic for Applications

高等学校教学单位，在增加新专业或原有教学方案不适应形势开展需要时，要制订或重新修改教学方案。在此过程中，根本数据〔如某门课的周学时、开课学期等〕每做一次调整，都要重新计算各门课的讲授学时、实验学时和总学时，同时还要求小计、总计。用EXCEL辅助处理，可以使我们从大量繁杂重复的计算、抄写工作中解脱出来，使工作变得轻松、高效，甚至变成一种享受。从整体上说，Excel教学方案制订辅助模板是一个带有VBA程序的工作簿。在工作簿中我们建立五个工作表：“比例结构〞、“开课学期〞和三个“方案表〞。第十一章教学方案辅助制订模板1

第十一章教学方案辅助制订模板

11.1“方案表〞工作表的设计

11.2“比例结构〞工作表的设计

11.3“开课学期〞工作表的设计

2

11.1“方案表〞工作表的设计

11.1.1结构与格式设计

11.1.2代码设计

11.1.3应用

311.1.1结构与格式设计“方案表1〞、“方案表2〞、“方案表3〞分别为公共课、专业课和方向必修课的课程设置与教学时间方案表。它们的结构和格式根本相同。以“方案表1〞为例说明制作要点。定义纸型为B5、纵向，上下左右页边距分别为1、1、0.9、0.9。设置如图１所示的表格样式。标题为“宋体〞、12号字、加粗，其余局部为“宋体〞10号字。单元格格式设置：数字作为文本处理，水平居中，垂直居中，文本控制设置为缩小字体填充。列宽度参照图１按实际情况手动调整。注意使Q、R两列在不同页内。行高度可设置为“最适宜的行高〞，也可设置为固定行高。根据整个页面布局而定。翻开“控件工具箱〞工具栏，在工作表的右侧添加一个命令按钮，命令按钮的caption属性设置为“数据统计〞。“课程类别〞列的内容根据实际情况设置，每一类行数可多可少，可任意增删，但最后一行的“课程编号〞应为“小计〞。“方案表1〞制作完成后，通过复制、修改课程类别和局部文字得到“方案表2〞和“方案表3〞。其结构与“方案表１〞结构根本相同。4图1511.1.2代码设计“方案表1〞、“方案表2〞、“方案表3〞工作表都定义了一个命令按钮“数据统计〞。用来根据周学时和授课周数求每门课的“共计〞、“讲授〞、“实验〞学时和同一类课的周学时小计。三个工作表上命令按钮的Click事件代码都是一样的：PrivateSubCommandButton1_Click()CallcalcEndSub它调用通用模块〔模块1〕中的过程calc对当前工作表根据周学时和授课周数求每门课的“共计〞、“讲授〞、“实验〞学时和同一类课的周学时小计。通用模块的建立方法是：在当前工程VBAProject中，选“插入〞菜单的“模块〞项，插入一个通用模块，用默认名“模块1〞。6

calc是在模块1中定义的过程，其中有具体的代码。在calc过程中，定义了一个数组zxs(8)，用来存放每一类课1至8学期周学时小计。从当前工作表第7行开始循环直至“课程编号〞为空。如果未遇到“小计〞行，那么每行1到8学期的周学时和对应的授课周数〔在第6行〕相乘得到课程学时，填写到该课程的“共计〞、“讲授〞、“实验〞单元格，累加到相应的下标变量，同时累加“共计〞、“讲授〞、“实验〞学时以及“学分〞和课程门数。课程学时分为讲授、实验和总共三列。如果周学时仅为一个数，那么为讲授学时；如果周学时中含有“+〞号，那么“+〞号左边的数值为讲授学时，右边的数值为实验学时；如果周学时中有括号，那么括号里面的数值不计入课程学时。如果遇到“小计〞行，那么分别填写各学期的周学时小计，“共计〞、“讲授〞、“实验〞学时小计，学分小计和课程门数小计.7

11.1.3应用

“方案表1〞、“方案表2〞和“方案表3〞的结构和代码设计完成之后，就可以输入或修改各门课的编号、名称、学分、各学期的周学时以及考试考查所在学期这样一些根本信息。8图２为公共课方案表输入根本信息后的情形。图29在“方案表1〞中单击“数据统计〞命令按钮，得到结果如图３所示。图310“方案表1〞的打印结果如图4所示：11同样，我们在“方案表2〞中输入专业课的有关根本信息如图５所示。图512在“方案表2〞中单击“数据统计〞命令按钮，得到结果如图６所示。图613在“方案表3〞中输入方向必修课的根本信息，单击“数据统计〞按钮得到统计结果，打印出来的表格如以下图所示。1411.2“比例结构〞工作表的设计11.2.1结构与格式设计11.2.2代码设计1511.2.1结构与格式设计“比例结构〞工作表包含各类课程门数、学时数、学时比例、学分数、学分比例、各学期课程门数和周学时等信息。工作表设计成如图９所示的样式。定义纸型为B5、纵向，上下左右页边距分别为2、1、1.4、1.4。1617标题为“宋体〞14号字、加粗，其余局部为“宋体〞12号字。学时比例、学分比例列的数值设置为2位小数。数值单元格对齐方式为水平靠右、垂直居中。列宽度参照图９按实际情况调整。注意使H、I两列在不同页内。在B10单元格定义公式“=SUM(B4:B9)〞，然后用填充柄向右填充到G10单元格，并删除F10单元格的公式。在F4单元格定义公式“=C4*100/$C$10〞，然后用填充柄向下填充到F9单元格。在H4单元格定义公式“=G4*100/$G$10〞，然后用填充柄向下填充到H9单元格。在C16单元格定义公式“=D16+E16〞，然后用填充柄向下填充到C23单元格。在F16单元格定义公式“=G16+H16〞，然后用填充柄向下填充到F23单元格。翻开“控件工具箱〞工具栏，在工作表的右侧添加一个命令按钮，命令按钮的caption属性设置为“数据统计〞。1811.2.2代码设计“比例结构〞工作表定义了一个命令按钮“数据统计〞。用来根据三个“方案表〞统计出有关结果并填入表格。对命令按钮的Click事件编写代码。19程序分两局部：第一局部的功能是在每个方案表中，从第7行开始查找“课程编号〞中的“小计〞。如果是“小计〞行，那么提取小计中的“共计〞、“讲授〞、“实验〞学时、学分和课程门数，填入“比例结构〞工作表特定的单元格。第二局部，按学期在每个工作表中累加各学期考试、考查课程数和周学时，并填入“比例结构〞工作表特定的单元格。2011.3“开课学期〞工作表的设计

11.3.1结构与格式设计

11.3.2代码设计

2111.3.1结构与格式设计

“开课学期〞工作表是将三个方案表的开设课程按学期重新排列，同时列出学分、总学时、讲授学时、实验学时、周学时和考核方式等信息。工作表的样式如下页图所示。2223定义纸型为B5、纵向，上下左右页边距分别为1、1、0.9、0.9。标题为“宋体〞11号字、加粗，其余局部为“宋体〞9号字。单元格格式设置：数字作为文本处理，水平居中，垂直居中，文本控制设置为自动换行。列宽度参照图１０按实际情况调整。注意使I、J两列在不同页内。行高度可设置为“最适宜的行高〞。设置A2:I130区域表格线〔表格的行数留有充分余地〕。在工作表的右侧添加一个命令按钮，命令按钮的caption属性设置为“刷新数据〞。

2411.3.2代码设计

“开课学期〞工作表定义的命令按钮“刷新数据〞。用来从三个“方案表〞按开课学期提取课程及其相关信息填入表格。对命令按钮的Click事件编写代25该程序段包括两局部：

第一局部：生成按学期排列的教学方案表。首先去除3-100行原有的内容，然后按学期从三个方案表中提取每门课的课程