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

hdcwm · 发表于 2003-6-6 14:54

我为什么运行不了？实时错误“1004” 类Range的Insert方法无效请指教。（Excel97)

lpjxx · 发表于 2003-6-6 16:21

很好

pbcwn2002 · 发表于 2003-6-7 14:52

谢谢楼主，这个东东我找了很久了，辛苦你了！我有事相求，请您帮忙。您做的例子，求和公式是从工作表的第2行开始的，我想从第4行开始计算，请问如何修改？谢谢！

zhangzhang · 发表于 2003-6-7 17:21

to pbcwn2002 你好：我想你所要求的从第4行开始计算，是指第一页从第4行开始计算，其余不变。我认为只要前几行不是数字，而是文本，不用修改公式，不会影响结果。请试一试。

pbcwn2002 · 发表于 2003-6-7 17:33

谢谢！可是我第2行有数据，而且还需要利用这个数字运算。按照你的公式，有2处错误：一是第一页用counta()统计的数字不准，比如要求本来18条记录，统计结果却为20；二是最后的合计公式是从第一行开始的，也出现了错误。如果方便的话，请楼主给与修改提示。谢谢！

zhangzhang · 发表于 2003-6-7 23:26

第一个问题，修改VBA代码，比较麻烦。建议：将counta()的单元格移至C或D列，并修改相应的参数。第二个问题比较简单，在VBA的代码中在下面的语句中去除 +1 即可。修改前 Cells(l + 2, 2).FormulaR1C1 = "=SUM(R[-" + CStr(l + 1) + "]C:R[-1]C)/2" 修改后 Cells(l + 2, 2).FormulaR1C1 = "=SUM(R[-" + CStr(l ) + "]C:R[-1]C)/2"

wyy · 发表于 2003-6-10 16:56

这个方法真好，在工作上能帮到我，谢谢zhangzhang

aab_36 · 发表于 2003-6-11 13:31

正是我所要的

tcm · 发表于 2003-6-11 15:23

能在本页合计的后面增加一个累计就更完善了。

zhangzhang · 发表于 2003-6-11 23:05

to tcm 据要求，试着修改了一下，每页有小计，也有累计数，请试用。试用过程中发现问题，敬请提出，以便改进。

ttYkIpYB.rar (17.01 KB, 下载次数: 1069)

[此贴子已经被作者于2003-9-13 8:04:47编辑过]

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

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

请教楼主？

分页小计（累计）的建立与撤消！