TO:XTL:自动分页小计示例

shihuil · 发表于 2004-4-14 10:59

如何把该代码运用到我的工作表中去？复制吗？

yellowhawk · 发表于 2004-9-14 09:58

我是yellowhawk,上次发了话题的那个，对于您的设计，我看是很好，但用在我的工资表中，就把我总合计加了一倍，因为我的总合计为=sum(A3:A40)，增加小计后，它把这些数又加了一遍的，所以就增加了一倍。另外，我在这个表中已经利用了“工资条打印”的方法，是用的数组公式：=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,工资汇总!A$1,INDEX(工资汇总!$A:A,(ROW()+4)/3,COLUMN())))

但加了这行后，就出现了一系列问题，那个小计行也会打印出来。请解决

tianlin · 发表于 2004-9-14 21:58

Rowen 总版主，你真是太伟大了，我们要好好想你学习。

小奔 · 发表于 2004-9-15 07:48

不错，非常好使！有个想法，这个方法能不能用在打印底部标题行上呢，微软没有提供这个功能，有好多朋友都需要这个功能。

tianlin · 发表于 2004-9-15 19:34

我觉得这个建议很好，相信版主能搞定的

lj1226189 · 发表于 2004-9-16 21:25

这个功能一设哪就更完美了!

mgqijun · 发表于 2004-9-19 10:27

请问可以解释下面这句的意思吗？

rSubArea.Formula = "=SUBTOTAL(9," & r1stSubCell.Offset(0, 1).Address(1, 0) & ":" & .Offset(-1, 1).Address(1, 0) & ")" 谢谢

Rowen · 发表于 2004-9-19 12:35

TO 10 楼: 本页小计插入一行改插入二行, 加一连前合计, 其计算仍可用类似公式

= "=SUBTOTAL(9," & range("A5").Offset(0, 1).Address(1, 0) & ":" & .Offset(-1, 1).Address(1, 0) & ")"

TO 19 楼: 本公式中, r1stSubCell.Offset(0, 1).Address(1, 0) 就第一页而言相当于 A5 右移一格即 B5 的列相对地址 B$5, 用于构建区域填充公式以节省代码. 相当于选中某区域, 输入一公式, 然后按 Ctrl+Enter 键的效果.

mgqijun · 发表于 2004-9-19 16:24

谢谢

mgqijun · 发表于 2004-9-23 18:45

48WVZcwO.rar (245 KB, 下载次数: 74)

to Rowen

我借用你的代码，运行出现错误，请帮忙看看行吗？祥见附件。

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

TO:XTL:自动分页小计示例

请再改进一下!

强列建议版主在每页再设一个至本页总计!