如何根据原始数据录入进行分页汇总并打印明细？

作者：绿色风分类：时间：2022-08-18 浏览：138

楼主
lrlxxqxa

Q：如何根据原始数据录入进行分页汇总并打印明细？

A：序号

=INDEX(原始数据录入!$A$6:$A$500,15*$U$2+ROW()-20)

人数小计

=COUNT(--INDIRECT("原始数据录入!r"&(A6+5)&"c1:r"&(A20+5)&"c1",))&"人"

人数总计

=COUNT(--INDIRECT("原始数据录入!r6c1:r"&(A20+5)&"c1",))&"人"

各项明细总计

=SUM(INDIRECT("原始数据录入!r6c:r"&(打印!$A20+5)&"c",))

右拖填充
打印

Private Sub CommandButton1_Click()
For i = 1 To Range("U2")
Range("U2") = i
ActiveSheet.PrintOut
Next
MsgBox "OK"
End Sub

黄色部分如何根据U2页码来累计？谢谢！数据源在原始数据录入lr6.rar

2楼
海洋之星

函数+VBA,学习了

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表