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

xuexi8 · 发表于 2010-7-9 16:42

原来学校里，各班的课表都是根据总课表手抄的，既不准确又不美观，我想请高手们帮忙解决这个问题。

同样各位老师的任课表也是手抄的，这个问题也想看看大家的解决方案。请各位帮忙了。

我原来也用Excel和access2007解决过，感觉麻烦，想听听大家的方法。

txswhm · 发表于 2019-9-15 16:16

高手多多,向高手们致敬!

桃花大卫 · 发表于 2019-8-23 12:48

hupanshan 发表于 2010-7-9 17:32
今天太忙了，先搞个自动填科目的

老师，你好。我们学校总课表排课习惯列出课程名后，再后面用教师的序号，比如1，2，来表示那个老师上课，因为课程安排的时候都是每个老师编了号的，我做了一个总课表的模板和一个教师分课表模板，弄好了序号，通过选择序号调出每个老师的课，但不知道如何用函数建立起关联，哪位前辈能帮我在教师分课表中把函数模板建好，等我开学把总课表填好，就能自动调出教师分课表，谢谢这是我发的贴子和附件http://club.excelhome.net/thread-1495417-1-1.html

jdw草长鹰飞 · 发表于 2017-12-10 23:05

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

大神你好这个表中为什么看不到公式呢

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

Sub 编辑班级课表()
Dim Rng As Range, key As Variant, Km$, Temp(1 To 9 * 2, 1 To 6), x%
key = Sheet3.Range("B2") '班级
On Error GoTo 123
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
Km = Trim(.Cells(Rng.Row, i + j)) '科目
If Km <> "" Then
Temp(j * 2 + 1, x) = myVLOOKUP(key, Km, 1) '科目
Temp(j * 2 + 2, x) = myVLOOKUP(key, Km, 2) '教师
End If
Next
Next
End With
Sheet3.Range("B4").Resize(9 * 2, 6) = Temp
Sheet3.Range("D2") = myVLOOKUP(key, Km, 3) '班主任
End If
Exit Sub
123:
MsgBox Err.Description
End Sub

复制代码

一指禅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

复制代码

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

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

课表.png

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

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

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

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

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

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

详见附件。

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

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

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

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

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