吉林师范大学：《VBA》课程电子教案（PPT教学课件）第九章 排课摸版

第九章排漂摸版 91功能特点 9.5“教室”工作表 9.2“信息”工作表9.6“班级”工作表 9.3“总表”工作表■9.7“空节”提示 9.4“教师”工作表9.8使用方法

第九章 排课摸版 ◼ 9.1 功能特点 ◼ 9.2 “信息”工作表 ◼ 9.3“总表”工作表 ◼ 9.4 “教师”工作表 ◼ 9.5 “教室”工作表 ◼ 9.6 “班级”工作表 ◼ 9.7 “空节”提示 ◼ 9.8 使用方法

功能特点 用计算机排课表,一方面可以减轻教学管理人员的工 作负担,同时也可以避免冲突,减少差错,提高效率。 特别是多教室统一排课,同一教师上多门课,班级 课程较多,以及需要串课的情况,用计算机排课就更 显示出优越性。 本排课模板的基本指导思想是利用已有的、大家都熟 悉的办公软件,做出一个实用的计算机辅助排课工具, 而不是做一个庞大的、完全自动的专用排课软件。设 计的目标是实用。本排课模板正是基于这样一种思想 设计的

功能特点 ◼ 用计算机排课表，一方面可以减轻教学管理人员的工 作负担，同时也可以避免冲突，减少差错，提高效率。 特别是多教室统一排课，同一教师上多门课，班级、 课程较多，以及需要串课的情况，用计算机排课就更 显示出优越性。 ◼ 本排课模板的基本指导思想是利用已有的、大家都熟 悉的办公软件，做出一个实用的计算机辅助排课工具， 而不是做一个庞大的、完全自动的专用排课软件。设 计的目标是实用。本排课模板正是基于这样一种思想 设计的

主要特点 1.直接利用εxce环境,使用EXce的所有功能。 2.直接对课程总表的内容进行人工输入、修改、编 排,系统此时作用是自动进行教师、教室冲突检査和 提醒 3.总表排好后,接下来每位教师的课表、每个教室 的课表、每个班级的课表由系统自动生成,课表的修 饰、复制、打印也由计算机来做。 4.最后,当某位教师、某个班级或教室需要串课时, 可利用系统的空闲课节自动标识、在线提示功既准确, 又迅速 结束返回

主要特点 1．直接利用Excel环境，使用Excel的所有功能。 2．直接对课程总表的内容进行人工输入、修改、编 排，系统此时作用是自动进行教师、教室冲突检查和 提醒。 3．总表排好后，接下来每位教师的课表、每个教室 的课表、每个班级的课表由系统自动生成，课表的修 饰、复制、打印也由计算机来做。 4．最后，当某位教师、某个班级或教室需要串课时， 可利用系统的空闲课节自动标识、在线提示功既准确， 又迅速。 结束返回

92“信息”工作表 令整个排课模板是一个工作簿 工作簿由如下工作表组成: 2教师A1612 3教师B 4教师c2338 令信息、教师、教室、班级、总 5教师D5101 6教师E5109 表1、总表2、总表3 5201 教师G多媒体室 “信息”工作表的A列将所有 9教师H机房 10教师I软件室 11教师丁系纾 任课教师名列于此处,B列列 12教师硬件室 13教师L阶梯 出所有教室名称,便于查看和 14教师M 15教师 选择,C2单元格是实际使用的 6教师0 17教师P 总表数。“信息”工作表的A 18教师Q 19教师R B、C三列如图9.1所示 20教师S 21教师r 22教师U 返回

9.2 “信息”工作表 ❖ 整个排课模板是一个工作簿， 工作簿由如下工作表组成： ❖ 信息、教师、教室、班级、总 表1、总表2、总表3、……。 ❖ “信息”工作表的A列将所有 任课教师名列于此处，B列列 出所有教室名称，便于查看和 选择，C2单元格是实际使用的 总表数。 “信息”工作表的A、 B、 C三列如图9.1所示。 返回

93“总表”工作表 令模板中预定义了“总表1”、“2” “总表10”个总表工作表(如果需要可 增删)每个总表可排四个班级的课表, 各个总表的结构和格式完全一样,因 此我们只需设计一个,其余的通过复制 产生 返回

9.3“总表”工作表 ❖ 模板中预定义了“总表1”、“2”、……、 “总表10”十个总表工作表（如果需要可 增 删）每个总表可排四个班级的课表， 各 个总表的结构和格式完全一样，因 此我们只 需设计一个，其余的通过复制 产生。 返回

9.4.1工作表设计 9.4.2“刷新课表”代码 9.4.3“模块1”定义 9,44“清除颜色”命令按钮代码 94.5“复制副本”命令按钮代码 章目录

❖ 9.4.1 工作表设计 ❖ 9.4.2 “刷新课表”代码 ❖ 9.4.3“模块1”定义 ❖ 9.4.4 “清除颜色”命令按钮代码 ❖ 9.4.5 “复制副本”命令按钮代码 章目录

9.4.1工作表设计 ●●● ●●●●● ●●●● 用“插入”菜单的“工作表”项在工作簿中插入一个工作 ●●●●● 表,重命名为“教师”。这个工作表用来生成每位教师的° 课程表。 定义纸型、设置页边距、设置表格样式、设置单元格格式、 设置列宽度、设置行高度。得到如图9.2所示的效果。 打开“控件工具箱”工具栏,在教师课表的右侧添加一个 标签、一个组合框和三个命令按钮,标签的名称设置为 “教师”,命令按钮的 caption属性分别设置为“刷新课 表”、“清除颜色”和“复制副本”,组合框的内容在工 作簿 Workbook的Open事件中通过代码添加 9.2 教师 计算机科学系课程表 即吉b 刷新课表 3-4 7-8 9-10 清除颜色」 复制副本

9.4.1 工作表设计 ⚫ 用“插入”菜单的“工作表”项在工作簿中插入一个工作 表，重命名为“教师”。这个工作表用来生成每位教师的 课程表。 ⚫ 定义纸型、设置页边距、设置表格样式、设置单元格格式、 设置列宽度、设置行高度。得到如图９.２所示的效果。 ⚫ 打开“控件工具箱”工具栏，在教师课表的右侧添加一个 标签、一个组合框和三个命令按钮，标签的名称设置为 “教师”，命令按钮的caption属性分别设置为“刷新课 表”、“清除颜色”和“复制副本”，组合框的内容在工 作簿Workbook的Open事件中通过代码添加。 ９.2

94.2“刷新课表”代码 单击“教师”工作表中“刷新课表”按 钮,产生cick事件,编写代码 该过程首先从组合框中取出当前选择的 教师名,送到教师课表的左上角作为提 示。然后,将教师课表原有的内容清除 接下来,在所指定的总表中,搜索指定 的教师名,并把开课班级、课程名称、 教室按星期和节次填入教师课表特定的 单元格。 节目录 返回

9.4.2 “刷新课表”代码 • 单击“教师”工作表中“刷新课表”按 钮，产生Click事件，编写代码。 • 该过程首先从组合框中取出当前选择的 教师名，送到教师课表的左上角作为提 示。然后，将教师课表原有的内容清除。 接下来，在所指定的总表中，搜索指定 的教师名，并把开课班级、课程名称、 教室按星期和节次填入教师课表特定的 单元格。 节目录 返回

94.3“模块卩”定义 在当前工程Ⅶ BAProject中,选择“插入”菜单的“模块”项, 插入一个通用模块,用默认名“模块1”。 在“模块1中,首先用下面语句声明两个全局变量: Public msg As String"可利用课节提示 Public Zbs As String'实际使用的总表数 然后,定义四个过程: fo——设置空闲单元格为蓝色背景并将提示信息送全局变量 msg sc—设置“教师”工作表“实验课”单元格为绿色背景 cc—清除单元格蓝色背景。 ast—从右边开始在字符串s1中查找单个字符s2第二次 出现的位置

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 f的功能是将指定教师、教室、班级课表同时为“空节”单元格置 成蓝色背景,同时将提示信息送全局变量msg,供另一个过程引用 首先置msg初值,然后分别取出“教师”、“教室”、“班级” 三个工作表对应单元格的值,如果三个工作表对应的单元格均为空, 则置蓝色背景,同时添加相应的提示信息。如果三个工作表对应的 单元格不全为空,则置白色背景。这样,“空节”一目了然。编写 代码 2.过程sc sc的作用是设置“教师”工作表“实验课”单元格的背景为绿色 使实验课与理论课有真观的区到m对教师误表的格单厂格内进 景。编码 3.过程CC cc用来清除单元格蓝色背景颜色。它对教师课程表的内容进行检査, 如果教师课表单元格为空白,则设置“教师”、“教室”、“班级 三个仝作表对应单元格为白色背景。编穹代码。 4.过程 f ast f last是一个自定义函数,功能是从右边开始在字符串s1中查找单 不字符s2第二次出现的位置,如s1申中没有s2,则返回0。编写编码

1．过程fc ◼ fc的功能是将指定教师、教室、班级课表同时为“空节”单元格置 成蓝色背景，同时将提示信息送全局变量msg，供另一个过程引用。 首先置msg初值，然后分别取出“教师”、“教室”、“班级” 三个工作表对应单元格的值，如果三个工作表对应的单元格均为空， 则置蓝色背景，同时添加相应的提示信息。如果三个工作表对应的 单元格不全为空，则置白色背景。这样，“空节”一目了然。编写 代码。 2．过程sc sc的作用是设置“教师”工作表“实验课”单元格的背景为绿色， 使实验课与理论课有直观的区别。它对教师课表的格单元格内容进 行判断，如果含有“实验”字样,则置浅绿色背景，否则置白色背 景。编码 3．过程cc ◼ cc用来清除单元格蓝色背景颜色。它对教师课程表的内容进行检查， 如果教师课表单元格为空白，则设置“教师”、“教室”、“班级” 三个工作表对应单元格为白色背景。编写代码。 4．过程f_last ◼ f_last是一个自定义函数，功能是从右边开始在字符串s1中查找单 个字符s2第二次出现的位置，如s1中没有s2，则返回0。编写编码