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

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

放在需要删除分页的工作表中，程序是将含有“小计”和“合计”的行全部删除。有时可能要运行2次。其实这与删除分页无关，只是删除符合条件的行。

当然你的分页程序中要有“小计”或“合计”，可能与之类似，请将上述程序修改为你的分页程序中的具体内容。这是我自己编写的，我试验过很好用的哟！

黄玉宏　　2005.11.12

kezhiye · 发表于 2005-11-13 08:44

烦请将试验文件上传,让俺学习学习呀

完美主义者 · 发表于 2005-12-9 21:47

挺好用的！谢谢！

青山依旧 · 发表于 2006-3-10 14:10

不错的东东,学习.

nawong · 发表于 2006-3-10 14:24

兩年前的東東現在才看到,謝謝樓主,也謝謝青山 MM 把它找出來讓我看到,謝謝 !

黄玉宏 · 发表于 2006-3-11 21:10

删除分页方法之二(假设小计及合计在第一列)

Sub 删除分页()

ActiveSheet.ResetAllPageBreaks　

For i = [A65536].End(xlUp).Row To 1 Step -1　

If Cells(i, 1).Value Like "*计" Then Rows(i).Delete　　　

黄玉宏　2006.3.11

fokus · 发表于 2006-4-14 12:50

好东西收藏

顶起来。

制作一个全面的例子：

一、从总表查询需要的数据，

比如本月的数据，可以选择需要的列，其他的不选。

二、加入表头，表尾，分页汇总，小计

三、打印，打印预览

这些都是大家比较关心的，希望楼主奉献以下！！

多谢！！！！！！！！！！！！！

[em10][em10][em10]

qinyun · 发表于 2006-4-15 12:13

haodongdong

andysky · 发表于 2006-4-15 12:49

附件为分页小计之加载宏。我根据大家的一些需求，对原代码了修改，增加了以下功能： 1.可以通过对话框选择对哪一列进行小计。 2.可以选择2列，程序默认为第四、第五列进行合计。修改数据即达成您的需要。 3.若你想仅对一列合计，可以两次输入同样的序号。 4.若您输入非数据在对话框中，程序将提示错误并退出。 5.安装此加载宏可以对任何文件进行分页小计。不足之处请再提出。

jz8kDrmY.rar (24.07 KB, 下载次数: 299)

kailee · 发表于 2006-4-15 23:41

好东西，下载了再慢慢学习！！

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

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