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

一指禅62

1. Sub 编辑班级课表()
   
2.     Dim Rng As Range, key As Variant, Km$, Temp(1 To 9 * 2, 1 To 6), x%
   
3.     key = Sheet3.Range("B2") '班级
   
4.     On Error GoTo 123
   
5.     Set Rng = Sheet1.Range("A:A").Find(key, lookat:=xlWhole)
   
6.     If Not Rng Is Nothing Then
   
7.         With Sheet1
   
8.             For i = 2 To 55 Step 9
   
9.                 x = x + 1
   
10.                 For j = 0 To 8
    
11.                     Km = Trim(.Cells(Rng.Row, i + j))  '科目
    
12.                     If Km <> "" Then
    
13.                         Temp(j * 2 + 1, x) = myVLOOKUP(key, Km, 1) '科目
    
14.                         Temp(j * 2 + 2, x) = myVLOOKUP(key, Km, 2) '教师
    
15.                     End If
    
16.                 Next
    
17.             Next
    
18.         End With
    
19.         Sheet3.Range("B4").Resize(9 * 2, 6) = Temp
    
20.         Sheet3.Range("D2") = myVLOOKUP(key, Km, 3) '班主任
    
21.     End If
    
22.     Exit Sub
    
23. 123:
    
24.     MsgBox Err.Description
    
25. End Sub

复制代码

jdw草长鹰飞

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

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

桃花大卫

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

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

txswhm

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