自习安排次数统计

阿Jk

根据自习下班安排，汇总各人员的自习安排次数！

ykcbf1100

这个，真没看懂。

阿Jk

ykcbf1100 发表于 2024-9-1 16:57
这个，真没看懂。

根据左边的安排，汇总出右边的周量统计表

quqiyuan

参与一下，仅供参考。。。
跟楼主模拟数据有出入，不知道问题所在。。。

quqiyuan

代码如下。。。
仅供参考，供楼主测试。。。
Sub test()
    Set d = CreateObject("scripting.dictionary")
    Set dic = CreateObject("scripting.dictionary")
    With Sheet1
        arr = .Range(.[a4], .Cells(.Cells(Rows.Count, 2).End(3).Row, "m"))
        brr = .Range("o4:w" & .Cells(6, "o").End(4).Row)
        brr(1, 8) = "培优班"
    End With
    For i = 2 To UBound(arr)
        If arr(i, 2) = Empty Then arr(i, 2) = arr(i - 1, 2)
    Next
    For i = 2 To UBound(arr, 2)
        If arr(1, i) = Empty Then arr(1, i) = arr(1, i - 1)
    Next
    For i = 3 To UBound(brr)
        d(brr(i, 1)) = i
    Next
    For i = 2 To UBound(brr, 2)
        If brr(1, i) <> Empty Then dic(brr(1, i)) = i Else dic("管  理") = 3
    Next
    ReDim crr(1 To UBound(brr) - 2, 1 To 8)
   
    For i = 3 To UBound(arr)
        For j = 3 To UBound(arr, 2)
            s = arr(i, j)
            If d.exists(s) Then
                If arr(i, 2) = "下午延时服务" Then
                    If dic.exists(arr(1, j)) Then
                        crr(d(s) - 2, dic(arr(1, j)) - 1) = crr(d(s) - 2, dic(arr(1, j)) - 1) + 1
                    Else
                        crr(d(s) - 2, 1) = crr(d(s) - 2, 1) + 1
                    End If
                ElseIf arr(i, 2) = "晚3" Then
                    crr(d(s) - 2, 4) = crr(d(s) - 2, 4) + 1
                Else
                    crr(d(s) - 2, 3) = crr(d(s) - 2, 3) + 1
                End If
                crr(d(s) - 2, 8) = "=sum(rc[-7]:rc[-1])"
            End If
        Next
    Next
    Sheet1.[p6:w39] = Empty
    Sheet1.[p6].Resize(UBound(crr), 8) = crr
    Set d = Nothing
    Set dic = Nothing
    Beep
End Sub

阿Jk

quqiyuan 发表于 2024-9-1 18:14
代码如下。。。
仅供参考，供楼主测试。。。
Sub test()

数据仅仅是参考的。提一个想法：统计时姓名可以自动填写吗？如果还要先给出姓名才能汇总，有时候比较麻烦

lsc900707

阿Jk 发表于 2024-9-1 23:25
数据仅仅是参考的。提一个想法：统计时姓名可以自动填写吗？如果还要先给出姓名才能汇总，有时候比较麻烦

初中的教导主任都这么任性的吗？

quqiyuan

阿Jk 发表于 2024-9-1 23:25
数据仅仅是参考的。提一个想法：统计时姓名可以自动填写吗？如果还要先给出姓名才能汇总，有时候比较麻烦

可以，但是非常麻烦，你那个区域这么多数值，需要把那些关键字都要排除（例如晚1、晚2。管理。。。等等），比你把老师的名字复制过来麻烦多了，老师的名字你们肯定有吧，你把名字都写在姓名那一列多简单，我写的代码就是读取那一列，然后右边的数值就可以计算了。

阿Jk

感谢各位老师帮助指导

阿Jk

老师，如果要汇总哪几周的自习情况，要如何实现呢？