应用EXCEL排课

应用EXCEL排课一.手工排出总课表如图

二．建立班课表（空表）

选中班级右侧单元格B2建立下拉菜单

（1）选点数据菜单，数据有效性，在允许中选取序列，在来源框中依次输入班级序号（在英文状态下用逗号分隔），确定

（2）在星期一第一节单元格（B5）输入函数=IF($B$2="","",VLOOKUP($B$2,总课表!$A$4:$AT$24,COLUMN(),0)) 其中$B$2是班级右边单元格的绝对引用，总课表!$A$4:$AT$24是总课表包括班级序号和课程的所有单元格绝对引用，COLUMN()是返回相应的列数，默认为班级右边一列，0和FLASE相同，意为精确查找

（3）在星期二第一节单元格（B6）输入函数=IF($B$2="","",VLOOKUP($B$2,总课表!$A$4:$AT$24,COLUMN()+8,0)) ，COLUMN()+8意为星期一已占8列，在此基础上COLUMN()再加8列（4）在星期三第一节单元格（B7）输入函数=IF($B$2="","",VLOOKUP($B$2,总课表!$A$4:$AT$24,COLUMN()+16,0))意义同上，

（5）在星期四，星期五，星期六第一节依次输入函数（同上），注意＝号开始，COLUMN()后面分别加上24，32，40

（6）同时选中六个第一节用填充炳向右拉，星期六第五节为晚輛复制到星期日晚輛处，COLUMN()后面更改为加上37，同时删除第五节处内容。这样只要在B2处点击下拉菜单中班级，相应的课程表就搞定了。三．建立教师课表（空表）

（1）在C3处设定数据有效性，方法同上，在来源处输入教师名单，可用区域选定的方法

（2）用查找替换的办法建立总课表1，一行科目一行姓名

（3）建立助表，复制总课表1，清除科目和教师姓名（只保留空表）

（4）在第一个班第一节B4单元格输入函数=IF(总课表1!B5=教师课表!$C$2,总课表1!B4,"")，其含义为总课表教师姓名＝教师课表C2时，返回总课表该教师上面的科目，否则返回空值，以此类推，查找出每班周一第一节课

（5）在第一个班第一节下一行B5单元格用类似的方法找出教师姓名，同时选中周一第一节单元格向右拉

（6）在教师课表周一第一节B5单元格输入=CONCATENATE(助表!B4,助表!B6,助表!B8,助表!B8,助表!B10,助表!B10,助表!B12,助表!B14,助表!B16,助表!B18,助表!B20,助表!B22,助表!B24,助表!B26,助表!B28,助表!B30,助表!B32,助表!B34,助表!B36,助表!B38,助表!B40,助表!B42,助表!B44)意为将各班周一第一次课科目全部内容合并到B5中，用同样的方法将周二各班第一次合并到B7中，以此类推，周三，周四，周五，周六各班第一节合并到B9,B11,B13,B15中

（7）用同样方法在B6,B8,B10,B12,B14,B16中把每天第一节各班教师合并到相应的单元格中，同时选中后向右填充，最后把周六第五节两个单元格公式复制到周末晚修单元格中并删除原单元格，（8）这样在C2下拉菜单中只要选定某位老师则相应的课务便展现有你的眼前了。

用Excel五步完成课程表编制

用Excel五步完成课程表编制 知识点：利用Excel数据关联和规则公式完成指定数据排序应用环境：学校课程表编排、企业员工任务、值班安排等每个学期，学校教务处教师最头疼的一件工作就是编制课程表。一般学校的课程表至少包括给领导的全校总课程表、学生的班级课程表和教师用的课程表三种。三种课程表数据密切相关，修改任何一张课程表都将影响到另两张表格，因此编辑时很难兼顾。但是来自福建的陈老师就利用Excel 2007轻松解决了这个问题，下面我们来看看他是怎么做的。 1.创建工作表 打开Excel 2007新建一张“教师安排”工作表，存放各班的科任教师安排(图1)，这是编课程表前必须安排好的。再建立总课程表、班级课程总表、教师课程总表等。 2.总课程表编制 切换到“总课程表”工作表设计总课程表格，表中包括全部班级的课程安排和每节课的教师。选中B4，单击“数据”选项卡的“数据有效性”图标，在“数据有效性”窗口的允许下拉列表中选择“序列”，输入来源为“=教师安排!$A$3:$A$16”(不含引号)，确定完成设置。在B5输入公式=IFERROR(VLOOKUP(B4，教师安排!$A:$M，ROW(B4)/2，FALSE)，“”)，并设置填充色为浅蓝作为与学科行的区分。然后选中B4:B5进行复制，再选中B4:AJ27区域进行粘贴即可(图2)。 现在选中B4单击下拉按钮选择学科，下面的B5单元格就会自动显示上课的教师名，其他单元格也是一样(如图2)。如此一来安排课程就简单多了吧，只要用鼠标单击选择即可。 图1

图2 3.总课程表限制提醒 编制总课程表时总有各种附加条件限制，比如：一个教师不能同时上两班的同一节课，操场太小全校只能有两班同时上体育课，电脑室只有1间不能有两班同时上电脑课等等。要在排课中兼顾这些要求显然不容易。对此可设置条件格式，让它在违反限制时自动变色提示，事情就简单多了。 选中B4:AJ27，在“开始”选项卡中单击“条件格式”选择“新建规则”，在“新建规则”窗口中选择规格类型为“使用公式确定要设置格式的单元格”，并输入公式=AND(COUNTIF(B:B，B4)>1，MOD(ROW()，2)=1)(图3)。再单击“格式”按钮，在弹出窗口中设置字体颜色为红色。确定后，当同一节课中有两班出现同一老师同时，两班中这位老师的名字都会变成红色，你可以及时决定看要更换哪班的课程。

Excel编排课程表

用Excel完成课程表编制只要五步 内容摘要：利用Excel数据关联和规则公式完成指定数据排序应用环境：学校课程表编排、企业员工任务、值班安排等每个学期，学校教务处教师最头疼的一件工作就是编制课程表。一般学校的课程表至少包括给领导的全校总课程表、学生的班级课程表和教师用的课程表三种。三种课程表数据密切相关，修改任何一张课程... 利用Excel数据关联和规则公式完成指定数据排序应用环境：学校课程表编排、企业员工任务、值班安排等每个学期，学校教务处教师最头疼的一件工作就是编制课程表。一般学校的课程表至少包括给领导的全校总课程表、学生的班级课程表和教师用的课程表三种。三种课程表数据密切相关，修改任何一张课程表都将影响到另两张表格，因此编辑时很难兼顾。但是来自福建的陈老师就利用Excel 2007轻松解决了这个问题，下面我们来看看他是怎么做的。 1.创建工作表 打开Excel 2007新建一张“教师安排”工作表，存放各班的科任教师安排(图1)，这是编课程表前必须安排好的。再建立总课程表、班级课程总表、教师课程总表等。 图1 2.总课程表编制 切换到“总课程表”工作表设计总课程表格，表中包括全部班级的课程安排和每节课的教师。选中B4，单击“数据”选项卡的“数据有效性”图标，在“数据有效性”窗口的允许下拉列表中选择“序列”，输入来源为“=教师安排!$A$3:$A$16”(不含引号)，确定完成设置。在B5输入公式=IFERROR(VLOOKUP(B4，教师安排!$A:$M，ROW(B4)/2，FALSE)，“”)，并设置填充色为浅蓝作为与学科行的区分。然后选中B4:B5进行复制，再选中B4:AJ27区域进行粘贴即可(图2)。 现在选中B4单击下拉按钮选择学科，下面的B5单元格就会自动显示上课的教师名，其他单元格也是一样(如图2)。如此一来安排课程就简单多了吧，只要用鼠标单击选择即可。

应用EXCEL排课

应用EXCEL排课一.手工排出总课表如图 二．建立班课表（空表）

选中班级右侧单元格B2建立下拉菜单 （1）选点数据菜单，数据有效性，在允许中选取序列，在来源框中依次输入班级序号（在英文状态下用逗号分隔），确定 （2）在星期一第一节单元格（B5）输入函数=IF($B$2="","",VLOOKUP($B$2,总课表!$A$4:$AT$24,COLUMN(),0)) 其中$B$2是班级右边单元格的绝对引用，总课表!$A$4:$AT$24是总课表包括班级序号和课程的所有单元格绝对引用，COLUMN()是返回相应的列数，默认为班级右边一列，0和FLASE相同，意为精确查找 （3）在星期二第一节单元格（B6）输入函数=IF($B$2="","",VLOOKUP($B$2,总课表!$A$4:$AT$24,COLUMN()+8,0)) ，COLUMN()+8意为星期一已占8列，在此基础上COLUMN()再加8列（4）在星期三第一节单元格（B7）输入函数=IF($B$2="","",VLOOKUP($B$2,总课表!$A$4:$AT$24,COLUMN()+16,0))意义同上， （5）在星期四，星期五，星期六第一节依次输入函数（同上），注意＝号开始，COLUMN()后面分别加上24，32，40 （6）同时选中六个第一节用填充炳向右拉，星期六第五节为晚輛复制到星期日晚輛处，COLUMN()后面更改为加上37，同时删除第五节处内容。这样只要在B2处点击下拉菜单中班级，相应的课程表就搞定了。三．建立教师课表（空表） （1）在C3处设定数据有效性，方法同上，在来源处输入教师名单，可用区域选定的方法 （2）用查找替换的办法建立总课表1，一行科目一行姓名

Excel VBA_排课表显示实例集锦

1，排课表显示（字典套字典） ‘https://www.sodocs.net/doc/50392965.html,/thread-1111571-1-1.html ‘求助课表中如何自动合并单元格.xls ‘2014-4-20。 Sub lqxs() Dim Arr, i&, j&, b&, xq$, x$, y$, aa, xinq, col Dim d, k, t, kk, tt, jj&, q, c, m&, m1&, bj$, n& Application.ScreenUpdating = False Set d = CreateObject("Scripting.Dictionary") xinq = Array("星期一", "星期二", "星期三", "星期四", "星期五") col = Array("1、2", "3、4", "5、6", "7、8", "9、10") Sheet3.Activate [b4:b500].ClearContents [d4:ab500].ClearContents Arr = Sheet1.[a1].CurrentRegion For j = 3 To UBound(Arr, 2) Step 5 xq = Arr(3, j) '星期 For b = j To j + 4 For i = 7 To UBound(Arr) - 1 Step 3 x = Arr(i, b) If x <> "" Then y = Arr(i - 1, b) & "," & Arr(i + 1, b) '课程和场地 If d.exists(x) = False Then Set d(x) = CreateObject("Scripting.Dictionary") d(x)(y) = d(x)(y) & Arr(i - 1, 1) & "," & xq & " " & Arr(5, b) & "|" End If Next Next Next k = d.keys: t = d.items: n = 1 For i = 0 To UBound(k) n = n + 3 Cells(n, 2) = k(i) kk = t(i).keys: tt = t(i).items For j = 0 To UBound(tt) kc = Split(kk(j), ",") tt(j) = Left(tt(j), Len(tt(j)) - 1) If InStr(tt(j), "|") Then aa = Split(tt(j), "|") For jj = 0 To UBound(aa) a = Split(aa(jj), ",") bj = a(0)

利用EXCEL中数据透视表自动生成课表

利用EXCEL中数据透视表自动生成课表 课表是学校最基本的教学管理依据，课表形成的传统方法是先安排好原始数据，再设计好表格的固定格式，一项项往表里填内容。上百张课表的形成都要人工录入或人工粘贴复制，既繁琐又容易出差错，而且不利于检索查询。笔者介绍一种方法，在原始数据录入后利用“数据透视表”，可以实现课表生成的自动化。 一、功能 1. 一张“数据透视表”仅靠鼠标移动字段位置，即可变换出各种类型的课表，例如：班级课表。每班一张一周课程表。可选框内选择不同的学院和班号，即可得到不同班的课表。按教师索引。即每位教师一周所有的信息。按时间索引，即每天每节课有哪些教师来、上什么课。按课程索引。课程带头人可能只关心和自己有关的内容。按学院索引。可能只需要两三项数据，了解概况。按

本专科索引。按楼层索引。专家组听课时顺序走过每个教室，需要随时随地查看信息。按教室或机房索引。安排房间时要随时查看。 2. 字段数量的选择是任意的，即表格内容可多可少，随时调整。 3. 任何类型的表都能够实现连续打印或分页打印。如班级课表可以连续显示，也可快速、自动生成每班一张；某部门所有教师的课表可以汇总在一张表上，也可每个老师一页纸，分别打印。 4. 遇到调课，只要更改原始表，再重新透视一次，可在瞬间完成，就意味着所有表的数据都已更新。而传统的方法必须分别去改班级表、教室表、机房表、教师表……稍有疏忽就可能遗漏。 5. 所有的表都不用设计格式，能够自动形成表格，自动调整表格大小，自动合并相同数据单元格。 二、建立数据库

规范数据库的建立是满足查询、检索、统计功能的基本要求。 1. 基本字段：班级、星期、节次、课程、地点、教师。 2. 可选字段：学院、班级人数、学生类别、金工实习周次、教师单位、地点属性、备注字段名横向排列形成了“表头”，每个字段名下是纵向排列的数据。 3. 库中的数据必须规范。如“地点”中不能出现除楼号、房间号以外的任何文字（包括空格）；“课程”中必须是规范的课程名，不允许有“单、双”等字样。建议上机课增加一个字段“上机”，而不是在课程名中增添“上机”说明，后者不利于课程检索。 4. 库中的每条数据清单的每个格 只要存在数据就必须填满。不允许因为与上一行数据相同就省略了，更不能合并单元格。 5. 增加的整条记录在库中的位置 可以任意。如规律课表的课程只有8节，