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

第九章 排课摸版  9.1 功能特点 9.2 “信息”工作表 9.3“总表”工作表 9.4 “教师”工作表  9.5 “教室”工作表 9.6 “班级”工作表 9.7 “空节”提示 9.8 使用方法 功能特点 用计算机排课表，一方面可以减轻教学管理人员的工作负担，同时也可以避免冲突，减少差错，提高效率。特别是多教室统一排课，同一教师上多门课，班级、课程较多，以及需要串课的情况，用计算机排课就更显示出优越性。 本排课模板的基本指导思想是利用已有的、大家都熟悉的办公软件，做出一个实用的计算机辅助排课工具，而不是做一个庞大的、完全自动的专用排课软件。设计的目标是实用。本排课模板正是基于这样一种思想设计的 主要特点 1．直接利用Excel环境，使用Excel的所有功能。 2．直接对课程总表的内容进行人工输入、修改、编 排，系统此时作用是自动进行教师、教室冲突检查和提醒。 3．总表排好后，接下来每位教师的课表、每个教室 的课表、每个班级的课表由系统自动生成，课表的修饰、复制、打印也由计算机来做。 4．最后，当某位教师、某个班级或教室需要串课时，可利用系统的空闲课节自动标识、在线提示功既准确，又迅速。 9.2 “信息”工作表 整个排课模板是一个工作簿， 工作簿由如下工作表组成： 信息、教师、教室、班级、总表1、总表2、总表3、……。　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　 “信息”工作表的A列将所有任课教师名列于此处，B列列出所有教室名称，便于查看和选择，C2单元格是实际使用的总表数。 “信息”工作表的A、B、 C三列如图9.1所示。 9.3“总表”工作表 模板中预定义了“总表1”、“2”、……、 “总表10”十个总表工作表（如果需要可 增 删）每个总表可排四个班级的课表， 各 个总表的结构和格式完全一样，因此我们只 需设计一个，其余的通过复制产生。 9.4.1 工作表设计 9.4.2 “刷新课表”代码 9.4.3“模块1”定义 9.4.4 “清除颜色”命令按钮代码 9.4.5 “复制副本”命令按钮代码 9.4.1 工作表设计 用“插入”菜单的“工作表”项在工作簿中插入一个工作表，重命名为“教师”。这个工作表用来生成每位教师的课程表。 定义纸型、设置页边距、设置表格样式、设置单元格格式、设置列宽度、设置行高度。得到如图９.２所示的效果。　　　　　　　　　　　　　　　 打开“控件工具箱”工具栏，在教师课表的右侧添加一个标签、一个组合框和三个命令按钮，标签的名称设置为“教师”，命令按钮的caption属性分别设置为“刷新课表”、“清除颜色”和“复制副本”，组合框的内容在工作簿Workbook的Open事件中通过代码添加。 9.4.2 “刷新课表”代码 单击“教师”工作表中“刷新课表”按钮，产生Click事件，编写代码。 该过程首先从组合框中取出当前选择的教师名，送到教师课表的左上角作为提示。然后，将教师课表原有的内容清除。接下来，在所指定的总表中，有哪些信誉好的足球投注网站指定的教师名，并把开课班级、课程名称、教室按星期和节次填入教师课表特定的单元格。 9.4.3“模块1”定义 在当前工程VBAProject中，选择“插入”菜单的“模块”项，插入一个通用模块，用默认名“模块1”。 在“模块1”中，首先用下面语句声明两个全局变量： Public msg As String 可利用课节提示 Public zbs As String 实际使用的总表数 然后，定义四个过程： fc——设置空闲单元格为蓝色背景并将提示信息送全局变量msg。 sc——设置“教师”工作表“实验课”单元格为绿色背景。 cc——清除单元格蓝色背景。 f_last——从右边开始在字符串s1中查找单个字符s2第二次出现的位置。 1．过程fc fc的功能是将指定教师、教室、班级课表同时为“空节”单元格置成蓝色背景，同时将提示信息送全局变量msg，供另一个过程引用。 首先置msg初值，然后分别取出“教师”、“教室”、“班级”三个工作表对应单元格的值，如果三个工作表对应的单元格均为空，则置蓝色背景，同时添加相应的提示信息。如果三个工作表对应的单元格不全为空，则置白色背景。这样，“空节”一目了然。编写代码。 2．过程sc sc的作用是设置“教师”工作表“实验课”单元格的背景为绿色，使实验课与理论课有直观的区别。它对教师课表的格单元格内容进行判断，如果含有“实验”字样,则置浅绿色背景，否则置白色背景。编码 3．过程cc cc用来清除单元格蓝色背景颜色。它对教师课程表的内容进行检查，如果教师课表单元格为空白，