ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 9157|回复: 17

[原创] 中小学排课系统 (VBA一键秒排)

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-12-25 09:33 | 显示全部楼层 |阅读模式
本帖最后由 秋天的一米阳光 于 2019-12-25 10:11 编辑

      本排课系统是手工版和自动版的结合体,免费供大家学习使用。
本系统只需要输入学校的原年级总课表和对应的《人事安排》工作表,人事表中只要标记科任教师新任课班级,按VBA一键排课就可以将原课表换成新班级、新教师、新课表。
      因为原年级总课表中已经包括了课程设置、教研活动时间、学校开会、教师的上课习惯等各种数据,软件将对这些设置作自动匹配,不需要人工设置。自动排完课后,你只需要关注跨年级教师上课是否冲突,个别教师上课有什么特殊要求,再作少量调整。
      本软件排课原理来源于传统排课(使用课程磁牌在铁黒板上手工排课),不需要排课算法,是传统排课方法的一种现代化提升。排课时软件自动对照原班级总课表,将新的任课教师和新的班级绑定,上午冲突的课优先换上午,下午的课冲突优先换下午。从每天第1节开始排课到第8节,对于无法排除冲突的课节暂时存放在第9节,经过排课实践,被存放到第9节课的基本上没有。可以说是一种快速有效的排课,单个排课VBA代码达到3000条左右,全部在内存数组中运行,排完后再输出到工作表中,全过程不超过1秒时间。
     《一键秒排》还具有工作表写入单元格函数公式与条件格式和各项统计公式的功能,能自动修复排课系统。排完课后,不会因为你无意中按下排课按钮使你的课表面目全非,排课系统检查到你排的课没有冲突,完全符合要求后不会进入换课程序,只会重新写入单元格公式与条件格式,保证手工版调课显示冲堂或空堂。

排课、调课步骤:
1.将你校使用过的原年级总课表复制到年级总课表处
2.填好对应的人事安排表,要求人事安排与对应的班课表完全匹配。
3.按一键排课将原课表换成新班级、新教师,系统会自动写出相应的教师课表。
4.手工调整课表,把教师课表中的班级号左右拖动是调整课节,上下拖动是调整学科课节数。
   例如:将1701班数学老师的带班级号单元格拖到该班的化学老师处,则总课表中该节数学课会自动变为化学,手工调整时,其它各工作表都会自动调整。
5.平时临时调课与代课时只要点击相应的班级号,根据同班级号单元格变色可以很快地找到可以代课或调课的老师。   



中小学排课系统(一键秒排).zip

298.09 KB, 下载次数: 2265

VBA一键排课

评分

4

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-12-25 09:58 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-25 14:37 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
中小学排课系统(VBA一键秒排)和新高考VBA自动分班走班排课系统最新版
https://pan.baidu.com/s/1J3bdiW1AQW9G_qJTggxMQg 提取码:6z3c

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2020-3-7 12:05 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2020-4-18 14:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
谢谢大神分享,学习学习

TA的精华主题

TA的得分主题

发表于 2020-8-24 10:04 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
谢谢楼主分享

TA的精华主题

TA的得分主题

 楼主| 发表于 2020-10-12 10:51 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
中小学排课系统10.1与以前的版本的区别如下:
1.《一键秒排》采用的是多人课程轮换调课方式,
   《智能仿真课时分布》采用的是多日课程轮换调整方式。
10.1版本对分布课时的半天课向前或向后进行二次集中排课,并对打散的连排课再调整。10.1版在排课10.0的基础上减少90%的手工调整量。
   《一键秒排》将原来的精准的繁杂的手工排课,变成了粗放的总体排课布局。
   《智能课时分布》将原来对各班的手工课时分布简化为对一个班的课时分布。
   同一天内的调课由《一键秒排》程序处理,不同天的课调整由《智能课时分布》程序处理。
2.将工作表中的动态课表改成VBA,优化了VB代码程序和工作表VBA程序。排课10.0的集中半天课排课率比以前版本大大提高,(走班排课除外)能达到100%的半天课排课率,极大地让排课老师得到更好的排课体验。
3.将《智能仿真课时分布》分为普通排课、特殊排课、早晚自习排课。
  当某教师平均每天的课节数小于或等于半天课时数时,自动进入半天课排课程序。
当某教师平均每天的课节数大于半天课时数时,自动进入非半天课均衡排课程序。
当某年级某班平均每天的课节数小于或等于4时,自动进入早晚自习排课模式。
当某年级的教学科目数大于7时,自动进入普通排课模式。
例如:高一、高二、小学。
当某年级的教学科目数小于或等于7时,自动进入特殊排课模式。
例如:高三、高二走班制行政班教学。
4.因为三个年级的混合在一个系统中,以全校为单位进行排课,所以跨年级教师不会出现冲突的现象。
5.中小学排课系统10.1版本强化了禁排功能,在总课表中所有的空格和人事表中没有具体安排任课教师的科目,总课表中无法与人事表中的新班级、新教师进行匹配的科目,都会自动变成禁排区域。这样在智能排课时,走班课时段不会占用,自习、班会活动等课的公共时段不会占用,从而彻底解决走班排课问题。
6.可以直接在总课表上进行宏观调课,总课表中的任意两节课可以直接对调,然后按一键排课,就可以把调课搞定,非常繁杂的课表调整交给换课程序自动完成。
7.10.1版中的《科目》可以是任意多个字符串。例如:可以使用《研究性学习》等为教学科目。班级名称也可以是多个字符,这样适合任何学校的排课。只有教师ID是三位数,PID是一位数。
8.人事安排表中三个年级的教师ID都不能重复,如果是跨年级的教师,那么将教师ID设置为相同。
例如:某体育老师在两个年级均有课,可设置为同号教师ID。有的教师同时任教两门科目的,也需设置为相同ID。夫妻二人都是教师,需一人上课时另一人休息,也需设置相同的ID,相同的ID的教师的课是互斥的。增加PID项,主要用于两位教师的课不能同堂并且不能在同一天上课。可以将两位信息老师的教师ID设置为同号(上课不同时),PID分别设置为1或2,这样两人的课程不会出现在同一天。
9.课表中的节次名称可以修改,例如:可以原第1节改为早自习,原第2节开始分别标记为第1至9节,排课程序只认单元格位置,其他条件对排课不受影响。
10.软件中的工作表名称可以任意修改名称,程序不受影响。
11.10.1版排课时,教师半天课的成功率一般在100%,并且授课的进度同步。
12.每班每周一节的科目(如:信息、音乐等)和体育课在课时智能分布时已经限制了被调整到上午。如果需要排在上午,可以先在原始课表时安排在上午,再开始智能分布。
13.增加同一节课单双周课表功能,例如,音美课单周上音乐、双周上美术。
14.默认每天排课节数上午5节、下午5节。
如果需要排上午4节、下午5节,只要将第1节空格,改为早自习好即可。
如果需要排上午4节、下午4节,只要将多余的单元格空格就可以排课。
可以详细看附件中的《空格法排课技巧》。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2021-4-12 11:23 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不错

TA的精华主题

TA的得分主题

发表于 2021-8-19 21:37 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2021-12-30 15:45 | 显示全部楼层
秋天的一米阳光 发表于 2019-12-25 14:37
中小学排课系统(VBA一键秒排)和新高考VBA自动分班走班排课系统最新版
https://pan.baidu.com/s/1J3bdiW1 ...

非常感谢!
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-26 18:40 , Processed in 0.039721 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表