如何根据学校总课表和教师任课表自动生成各班课表、各老师的课表

szqhb · 发表于 2010-7-11 14:03

自明排课系统是不错的，到网上去下一个来试一试吧

slywtj123 · 发表于 2010-7-11 14:15

用excel排课也很实用的，期待有傻瓜式的排课系统，这样能方便学校教务处的工作人员

szqhb · 发表于 2010-7-11 19:22

原帖由 xuexi8 于 2010-7-11 18:15 发表
我到网上下载一个“自明排课系统”看看

这个排课系统是很好用的

xuexi8 · 发表于 2010-7-11 18:15

我到网上下载一个“自明排课系统”看看

whyddd · 发表于 2012-3-2 00:04

{:soso_e113:}

李桥贵 · 发表于 2016-3-18 10:47

hupanshan 发表于 2010-7-10 17:07

hupanshan老师能否再辛苦一下，把剩下的程序编写完。谢谢！

chxw68 · 发表于 2016-3-18 15:28

本帖最后由 chxw68 于 2016-3-18 15:30 编辑

详见附件。

dyzx · 发表于 2016-3-21 10:23

szqhb 发表于 2010-7-11 14:03
自明排课系统是不错的，到网上去下一个来试一试吧

但排出的效果不理想，还要人工调整

一指禅62 · 发表于 2016-3-23 10:11

思路如此，结果请楼主自己检验

课表.png

打印课表.zip (28.77 KB, 下载次数: 193)

一指禅62 · 发表于 2016-3-23 10:13

Sub 编辑教师课表()
Dim Rng As Range, key As Variant, Temp(1 To 9 * 2, 1 To 6), x%, Km$, a
Range("D2:G2").FormulaR1C1 = "=VLOOKUP(R2C2,C12:C13,2,0)"
a = Split(Range("D2"), ";")
On Error GoTo 123
For k = 0 To UBound(a)
key = Split(a(k), "-")(0) '班级
Km = Split(a(k), "-")(1) '科目
x = 0
Set Rng = Sheet1.Range("A:A").Find(key, lookat:=xlWhole)
If Not Rng Is Nothing Then
With Sheet1
For i = 2 To 55 Step 9
x = x + 1
For j = 0 To 8
If Trim(.Cells(Rng.Row, i + j)) = Km Then
Temp(j * 2 + 1, x) = myVLOOKUP(key, Km, 1) '科目
Temp(j * 2 + 2, x) = IIf(Temp(j * 2 + 2, x) = "", key, Temp(j * 2 + 2, x) & "+" & key) '班级
End If
Next
Next
End With
End If
Next
Sheet3.Range("B4").Resize(9 * 2, 6) = Temp
Exit Sub
123:
MsgBox Err.Description
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 如何根据学校总课表和教师任课表自动生成各班课表、各老师的课表