怎么批量打印63个班级的费用明细

DFWZP

怎么将数据源里面的63个班级的数据分班级批量打印到，确认签字里面，每个班级打印在一页上面。
确认签字是不用管的，要手写的。其他的数据要对应的填进去。金额是填入（9、10、11、12月）4个月的数据，就是要将每个班级的每月的数据，分别打印到一张纸上，如果麻烦，可以先填入9月一个月的，都可以。

3190496160

确认签字中的   确认签字 ，究竟是指数据表中的哪一列数据？？？？合计？？

DFWZP

3190496160 发表于 2022-12-22 11:40
确认签字中的   确认签字 ，究竟是指数据表中的哪一列数据？？？？合计？？

确认签字是不用管的，要手写的。其他的数据要对应的填进去。金额是分4个月来填入（9、10、11、12月），如果麻烦，可以先填入9月一个月的，都可以。

3190496160

Sub 拆分()
Application.ScreenUpdating = False
Dim ar As Variant
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    If r < 3 Then MsgBox "数据为空！": End
    ar = .Range("a2:h" & r)
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 3)) <> "" Then
        d(Trim(ar(i, 3))) = ""
    End If
Next i
With Sheets("确认签字")
    rs = .Cells(Rows.Count, 8).End(xlUp).Row
    If rs > 37 Then .Rows("38:" & rs).Delete
    .Range("b4:d36") = Empty
    .Range("h4:j36") = Empty
    gs = d.Count
    m = 38
    For i = 1 To gs - 1
        .Rows("1:37").Copy .Cells(m, 1)
        m = m + 37
    Next i
    m = 4
    For Each k In d.keys
        n = 0: tt = 0
        ReDim arr(1 To UBound(ar), 1 To 3)
        For i = 2 To UBound(ar)
            If Trim(ar(i, 3)) = k Then
                n = n + 1
                For j = 2 To 4
                    arr(n, j - 1) = ar(i, j)
                Next j
            End If
        Next i
        .Cells(m - 2, 2) = "总人数：" & n
        If n <= 33 Then
            .Cells(m, 2).Resize(n, 3) = arr
        Else
            For i = 1 To n Step 33
                tt = tt + 1
                xh = m - 1
                If tt = 1 Then
                    lh = 2
                Else
                    lh = 8
                End If
                For s = i To i + 32
                    If s <= n Then
                        xh = xh + 1
                        .Cells(xh, lh).Resize(1, 3) = Application.Index(arr, s, 0)
                    End If
                Next s
            Next i
        End If
        m = m + 37
    Next k
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

超5元签字册.rar (173.21 KB, 下载次数: 12)

2022-12-22 13:08 上传

点击文件名下载附件

zjnfxxh

数据导入access，设置一下报表。   再点一下就生成63张表了。  要么VBA

DFWZP

3190496160 发表于 2022-12-22 13:08

非常感谢，还是不知道怎么弄的，原理是什么，有相关的教程吗？

DFWZP

zjnfxxh 发表于 2022-12-22 13:15
数据导入access，设置一下报表。   再点一下就生成63张表了。  要么VBA

非常感谢，还是不知道怎么弄的，原理是什么，有相关的教程吗？怎么做出来的。

3190496160

DFWZP 发表于 2022-12-22 13:42
非常感谢，还是不知道怎么弄的，原理是什么，有相关的教程吗？

这是vba代码完成的，已经给你写好了代码，画好按钮 了，你不至于点击按钮都不会吧

DFWZP

3190496160 发表于 2022-12-22 13:47
这是vba代码完成的，已经给你写好了代码，画好按钮 了，你不至于点击按钮都不会吧

我是说这个代码的教程，实现的方法。