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

yvw · 发表于 2008-12-19 20:20

谢谢楼主，已下载。

zhangzhang · 发表于 2008-12-22 09:43

应朋友之邀，分别做了一个插入页脚；插入指定页脚、指定行及本页小计。与大家共享。

快人一步 · 发表于 2008-12-22 22:45

师傅高手，辛苦了，值得我学习。

zhangzhang · 发表于 2008-12-23 07:43

To:192楼
建议：将此2句
If ExecuteExcel4Macro("Get.Document(50)") > 1 then
i = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 1

改为
If ActiveSheet.HPageBreaks.Count > =1 Then
i = ActiveSheet.HPageBreaks(1).Location.Row - 1

请试一试。

[ 本帖最后由 zhangzhang 于 2008-12-23 07:45 编辑 ]

lxc0475 · 发表于 2008-12-26 15:00

zzkonghome · 发表于 2008-12-26 15:36

再一次谢谢zhangzhang ，我已下载。good！！！

scmsp · 发表于 2008-12-29 21:07

原帖由 zhangzhang 于 2008-12-23 07:43 发表
To:192楼
建议：将此2句
If ExecuteExcel4Macro("Get.Document(50)") > 1 then
i = Application.ExecuteExcel4Macro("INDEX(GET.DOCUMENT(64),1)") - 1

改为
If ActiveSheet.HPageBreaks.Count > =1 Then ...

谢谢您的解答。我按照您的方法修改后，仍提示：“对不起，您的文件不足一页，此功能无效。”奈何！我明明使用您的样本文件啊。

zhangzhang · 发表于 2008-12-29 23:05

To:202
建议：逐步执行一下，找出具体原因，我在我的电脑上运转正常。

qyleaf · 发表于 2008-12-30 13:17

很实用呀,谢谢了

hh12 · 发表于 2009-1-2 15:12

原来有一个黄花菜大侠编写的一个，现在不知为什么总是出现CAN'T FIND PROJECT OR LIBRARY.现在看一看这个能否用

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

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