[下载]EXCEL自动分页求和工具

3969 · 发表于 2007-2-2 09:31:52

经常使用EXCEL的朋友可能都有这种感觉:

在打印一个页数非常多的文件的时候,需要在每一页的后面都有一个小计,在最后的那一页就是把前面所有的小计都汇总成一个总计,如果该文件某列的字段都相同,还可以使用EXCEL中的"分类汇总"功能,但列的字段都不相同,又不会VBA编程时,就需要一页一页地进行汇总小计,最后再总计了,呵呵~~

如果你有以上的感觉,那这个工具就是最好不过的助手了!

该文件里面有详细说明,家人下载后打开看后就可,如有不明白之处,发短消息给我,我尽力解答...

[upload=zip]down60102.asp?ID=68418[/upload]
[em01][em01][em01][em01]

gowindpop · 发表于 2007-2-2 22:17:10

不错啊,谢谢!

xtepi001 · 发表于 2007-2-4 09:32:48

很好,用VBA编的.

wzh2004abc · 发表于 2007-2-4 18:15:37

好东东，解决了我的大问题，狂顶！

3969 · 发表于 2007-2-5 10:01:28

有家人问,要在EXCEL中固定分页打印,假设只需打印20行/页,要如何实现呢?

刚试了一下EXCEL中分页预览的功能,发现只能一页一页地设定,如果有100页,那就要分100次!实在是太麻烦了!

现找到了这个宏,是每页打印20行,如果需打印30行/页,则只需更改21为31,20更改为30即可,再如需打印28行/页,则只需将21更改为29,20更改为28即可,依此类推.

Sub AddHPageBreak()
ActiveSheet.ResetAllPageBreaks
For i = 21 To ActiveSheet.UsedRange.Rows.Count Step 20
ActiveWindow.SelectedSheets.HPageBreaks.add Before:=Cells(i, 1)
Next
End Sub

希望对家人有所帮助!

[em01][em01][em01]

wzh2004abc · 发表于 2007-2-5 17:17:39

我用了后，体会很深，原来要每页手动分页，现在几秒钟搞定了，原来花几个小时做的事就这么轻松做好了。非常感谢！狂顶!

wawj0113 · 发表于 2007-2-17 00:03:44

好东西,谢谢

yunli · 发表于 2007-2-25 16:15:00

不错啊,谢谢!

lvyanfu · 发表于 2007-3-3 08:20:56

谢谢了，楼主你太有才了！

坤儿 · 发表于 2007-3-3 13:33:46

感谢楼主的分享，请问有关EXCEL的学习资料还有吗？ 

[其它分类] [下载]EXCEL自动分页求和工具

本帖子中包含更多资源

使用高级回帖 (可批量传图、插入视频等)快速回复