如何用vba从总课表提取个人课表

quqiyuan

代码如下。。。

Sub test()
    Dim brr
    arr = Sheet1.UsedRange
    For j = 2 To UBound(arr, 2)
        If arr(1, j) = Empty Then arr(1, j) = arr(1, j - 1)
    Next
    Set d = CreateObject("scripting.dictionary")
    With Sheet2
        s = .[c1] & "|"
        brr = .Range("a1").Resize(.Cells(.Rows.Count, 1).End(3).Row, 6)
        n = 0
        For i = 3 To UBound(brr)
            n = n + 1
            d(brr(i, 1)) = n
        Next
        n = 0
        For i = 2 To UBound(brr, 2)
            n = n + 1
            d(brr(2, i)) = n
        Next
        ReDim brr(1 To UBound(brr) - 2, 1 To UBound(brr, 2) - 1)
        For i = 3 To UBound(arr)
            For j = 2 To UBound(arr, 2)
                If InStr(arr(i, j) & "|", s) Then
                    If arr(i, 1) = "早读" Or arr(i, 1) = "延时服务" Then
                        brr(d(arr(i, 1)), d(arr(1, j))) = arr(2, j)
                    Else
                        brr(d(arr(i, 1)), d(arr(1, j))) = arr(2, j) & vbCrLf & Split(arr(i, j), Chr(10))(0)
                    End If
                End If
            Next
        Next
        .Range("a1").Offset(2, 1).Resize(.Cells(.Rows.Count, 1).End(3).Row - 2, 5) = brr
    End With
    Set d = Nothing
    Beep
End Sub

wang-way

gnmxzzx

quqiyuan 发表于 2024-9-19 19:15
代码如下。。。

Sub test()

感谢，太厉害了！！！

gnmxzzx

wang-way 发表于 2024-9-19 19:38

新思路，新方法，学到知识了，不过我刚学，只能一个一个百度解释学！谢谢了

zxhathust

确实不错，学了不少东西

wengjl

在数据库中，表的结构设计是非常重要的一环，把它转换到EXCEL中作个简单的理解就是：E表的二维结构
由行和列组成，行在数据库中称为记录（一行即一条记录），列在数据库中称为字段（字段即为记录的各种属性），记录是可变的，字段是不可变的，字段变即称为表结构变了。
同理
你的总课表设计，如果下一学年招新生3个班，你的表结构就变了。所以，表应该是一个班级周一到周五的50节课为一行，每天10节课一周共50节课的节次，作为字段，这样不管招生多少，表的结构是不会变的。

你现在的表结构，由于招生多少的变化，表结构一变，代码的修改量是很大的，将成为你学习的障碍！

gnmxzzx

wengjl 发表于 2024-9-20 08:37
在数据库中，表的结构设计是非常重要的一环，把它转换到EXCEL中作个简单的理解就是：E表的二维结构
由行和 ...

感谢指导，受益匪浅！！！

cai2532

这个实例学习下。

lcluck2002

来晚了，敲都敲了，还是发一下吧。