分页合计(小计)的建立与撤消！

szyuanyq · 发表于 2005-6-28 13:56

感谢的话我就不想多说了，看来很久以来困扰我的问题也是公众所面对的问题，以前总是每个月做表格时为这个问题犯愁。。。今天终于解决了

venuse · 发表于 2005-10-24 20:22

果然不错！一试见分晓！

sgj18 · 发表于 2005-10-25 22:18

to zhangzhang

为什么第一页要比其他页在少三行?

把我的宏修改一下，我宏中变量太多了，能否用2，3个变量做个循环代替。另外要指定对哪些列进行汇总？只要选择输入相对应的列号就可以计算了。这样可以应用到各种式样的表格了。谢谢！

InVdMtEl.rar (38.89 KB, 下载次数: 77)

[此贴子已经被作者于2005-10-25 22:20:03编辑过]

多元互动 · 发表于 2005-10-25 23:17

能否做到在A列插入一行进行小计,再分页小计.

多元互动 · 发表于 2005-10-25 23:18

能否做到在A列插入一行进行小计,再分页小计.

mWO80z99.rar (6.15 KB, 下载次数: 44)

kezhiye · 发表于 2005-11-11 08:24

zhangzhang兄: 你的"分页小计的建立与撤消"给我们的工作带来很大的方便.在此有一个问题再行请教: 52楼和38楼的附件增加了一项功能——关闭工作表前自动撤消分页合计，这一点很重要（因为没有这一功能的其他附件当保存后再删除合计会使工作表数据紊乱）。但还有一点求教：当工作薄有多个工作表时，关闭其他工作表后再来合计再来删除则代码会出错。如在原附件插入sheet2、sheet3，关闭sheet1时会自动撤消合计，但当关闭sheet2或sheet3后，再回到sheet1点击合计或删除按钮时就会提示代码出错（52楼和38楼附件的工作薄均只有一个工作表，一个工作表的时候代码是可以正常运行的）。

请如何修改代码以完善此问题？

kezhiye · 发表于 2005-11-11 18:12

知道的都可以出手哟

黄玉宏 · 发表于 2005-11-11 22:48

换一种思维编写的删除分页程序：

Sub 删除分页() ActiveSheet.ResetAllPageBreaks Dim rng As Range For Each rng In ActiveSheet.UsedRange If rng = "小计" Then N = rng.Row: Rows(N).Delete Next rng For Each rng In ActiveSheet.UsedRange If rng = "合计" Then M = rng.Row: Rows(M).Delete Next rng End Sub

黄玉宏 2005.11.11

kezhiye · 发表于 2005-11-12 09:01

楼上的删除分页代码是放在哪的呀?我以52楼的附件进行更改,运行时出错.

请问能否以52楼附件为基础,帮忙调试一下,最好能上传附件.

kezhiye · 发表于 2005-11-12 16:09

没人关注吗

		自动登录	找回密码
密码			免费注册

[求助] 分页合计(小计)的建立与撤消！