开学了，请把总表分成教师表和班级表（设计好了）

banjinjiu

各位大侠好，求助把学校课程总表分出教师表和班级表，我感觉设计的比较合理，用公式或VBA都行。其中，教师表和班级表，教师表每节课有2个单元格，上面放课程，下面放班级；班级表，每节课有2个单元格，上面放课程，下面放教师。
在线急等，已经上课了，拜托拜托。

老谭酸菜

很合理了？看不明白。

banjinjiu

老谭酸菜 发表于 2013-9-2 13:11
很合理了？看不明白。

我的帖子内容和课程表已经更新了，麻烦你看下，谢谢

云朵中的民族

http://club.excelhome.net/thread-552779-1-1.html

老谭酸菜

楼上发了个链接，说不定正是楼主想要的。

banjinjiu

老谭酸菜 发表于 2013-9-2 14:02
楼上发了个链接，说不定正是楼主想要的。

太难了，我还没学到，有请老兄帮忙改下，教师表和班级表，各改一个，感谢

蓝桥玄霜

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Count > 1 Then Exit Sub
   
3. If Target = "" Then Exit Sub
   
4. If Target.Address <> "$C$3" Then Exit Sub
   
5. Dim bj$, r1, Arr, col%, c%, m&, i&
   
6. bj = Target.Value
   
7. Set r1 = Sheet3.[c17:c500].Find(bj, , , 1)
   
8. [g3] = Sheet3.Cells(r1.Row, 4).Value
   
9. Arr = Sheet3.[a1].CurrentRegion
   
10. Set r1 = Sheet3.Rows(3).Find(bj, , , 1)
    
11. col = r1.Column: c = 2
    
12. For j = col To UBound(Arr, 2) Step 13
    
13.     c = c + 1: m = 5
    
14.     For i = 4 To UBound(Arr) Step 2
    
15.         Cells(m, c) = Arr(i, j)
    
16.         Cells(m + 1, c) = Arr(i + 1, j)
    
17.         m = m + 3
    
18.     Next
    
19. Next
    
20. End Sub
    

复制代码

蓝桥玄霜

教师表填写一个看看。
班级表改变C3单元格的值即可。
请见附件。

banjinjiu

蓝桥玄霜 发表于 2013-9-2 15:41
教师表填写一个看看。
班级表改变C3单元格的值即可。
请见附件。

感谢蓝桥玄霜版主，忙的来不及来，教师等着上课。帮忙帮到底，麻烦你把教师表，打印代码搞下，抽空我也研究VBA excel，我前段时间搞VBA PPT的，再次感谢，在线等。

蓝桥玄霜

不明白教师表是怎么填写的？只填写一个班级的课程？所以要你填一个看看效果。