请各位老师帮忙写代码，非常感谢！！！

hu-123456789

如何使用VBA编制，如张三、李四.....N人输入数量，总表根据对应的款号、名字和日期自动汇总填充红色部分的数量，小计的数量只要手动公式

3190496160

汇总表这样设计，既不方便打印，也不方便查看

liulang0808

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "总表" Then Exit Sub
    Set d = CreateObject("scripting.dictionary")
    Application.ScreenUpdating = False
    arr = Sh.UsedRange
    For j = 2 To UBound(arr)
        d(arr(j, 2) & arr(j, 1) & arr(j, 3)) = d(arr(j, 2) & arr(j, 1) & arr(j, 3)) + arr(j, 16)
    Next j
    c = 0
    With Sheets("总表")
        For j = 7 To .Cells(1, Columns.Count).End(xlToLeft).Column
            If Cells(1, j) = Sh.Name Then
                c = j
                Exit For
            End If
        Next j
   
        If c <> 0 Then
            For j = 3 To .Cells(Rows.Count, 1).End(3).Row
                For i = c To .Cells(1, Columns.Count).End(xlToLeft).Column
                    If .Cells(1, i) = "小计" Then Exit For
                    str1 = .Cells(1, c) & .Cells(2, i) & .Cells(j, 1)
                    If d.exists(str1) Then
                        .Cells(j, i) = d(str1)
                    End If
                Next i
            Next j
        End If
    End With
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。。

luikias

liulang0808 发表于 2024-4-12 08:03
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    If Sh.Name = "总表" Then Exit Sub
...

版主辛苦了，一大早就帮大家解决问题

chxw68

参与一下，汇总表中的姓名要合并居中。

LIUZHU

最怕这种设计

hu-123456789

谢谢各位老师