如何将学校的总课表中提取出教师分课表！跪求！

桃花大卫

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

临沂-枸杞

显示文件已损坏,无法打开

yooha

测试
总课程表及教师课表.zip (15.06 KB, 下载次数: 67)

2019-8-23 09:14 上传

点击文件名下载附件

Sub test()
Sheet2.Range(Sheet2.Cells(6, 2), Sheet2.Cells(17, 6)) = ""
Dim aa1, aa2, bb1
For aa1 = 4 To 14 Step 2
For aa2 = 2 To 181
If Sheet2.Cells(2, 2) = Sheet1.Cells(aa1, aa2) Then
Select Case aa2
Case Is < 38
bb1 = 2
Case Is < 152
bb1 = 3
Case Is < 188
bb1 = 4
Case Is < 224
bb1 = 5
Case Is < 260
bb1 = 6
End Select
Sheet2.Cells(aa1 + 3, bb1) = Sheet1.Cells(2, aa2)
Sheet2.Cells(aa1 + 2, bb1) = Sheet1.Cells(aa1 - 1, aa2)
End If
Next
Next
End Sub

桃花大卫

临沂-枸杞 发表于 2019-8-22 23:22
显示文件已损坏,无法打开

老师，能打开啊

桃花大卫

yooha 发表于 2019-8-23 09:14
测试

Sub test()

老师，什么意思啊，我看不懂，不懂程序，好像说可以用EXCEL的抓取功能，比如什么IF语句等就能实现吗？

yooha

桃花大卫 发表于 2019-8-23 11:27
老师，什么意思啊，我看不懂，不懂程序，好像说可以用EXCEL的抓取功能，比如什么IF语句等就能实现吗？

你启用宏,点一下表里那个按钮就懂了

panda306

在B6单元格输入： =IFERROR(INDEX(OFFSET(总课表!$B3:$AK3,,(COLUMN()-2)*36),MATCH($B$2,OFFSET(总课表!$B4:$AK4,,(COLUMN()-2)*36),)),"")

在B7单元格输入：=IFERROR(INDEX(OFFSET(总课表!$B$2:$AK$2,,(COLUMN()-2)*36),MATCH($B$2,OFFSET(总课表!$B4:$AK4,,(COLUMN()-2)*36),)),"")

然后同时选中B6和B7单元格，用填充柄下拉填充，完成周一课表，再右拉填充完成整周课表

桃花大卫

panda306 发表于 2019-8-23 15:23
在B6单元格输入： =IFERROR(INDEX(OFFSET(总课表!$B3:$AK3,,(COLUMN()-2)*36),MATCH($B$2,OFFSET(总课表!$B ...

老师，你好感谢你，但是下载不下来，说损坏了，能重新传个吗

桃花大卫

yooha 发表于 2019-8-23 09:14
测试

Sub test()

谢谢了老师，但我试验了一下，比如我设置了星期三，1号老师一节课，怎么在教师课表里却出现在了星期二呢？星期五的课又出现在了星期三，是哪儿的语句有误吗？麻烦你了，能看看嘛？

panda306

桃花大卫 发表于 2019-8-23 18:55
老师，你好感谢你，但是下载不下来，说损坏了，能重新传个吗

没带电脑，你复制公式粘贴到相应单元格，按照操作步骤操作就可以了。很简单的。还有，你这个表格稍微改进，把编号和任教科目对应起来，用合适的条件格式，自动显示空堂或冲突，可以成为不错的排课模板。附件可以正常下载啊！附件已经重新上传，增加自动显示老师姓名。