自动分页小计合计问题

sanson4760 · 发表于 2014-5-26 08:17

大师们你们好：这个问题是我在论坛里面找的觉得很好，假如我的表格只有12列即A至L列，并且只要求F、I、J列需要合计和总计数，请教大师这个代码怎么改。谢谢大家！

LangQueS · 发表于 2014-5-26 10:22

" 楼主在设计数据表时，未考虑到充分发挥Excel软件的内置功能，为以后对数据的积累、修改、引用和汇总造成了很大困难……
建议楼主参考下帖附件中的文字说明，修改工作表的设置，首先建立好记录日常所发生数据的“一维数据表”。我们的目的是使用好Excel，实现对数据的管理，而不是制作软件。因此要充分发挥 Excel 自带的强大功能，例如“高级筛选”、“数据透视表”等等，再用函数和代码等方法作为补充，以降低制作和修改难度，提高工作效率。
以上浅见是个人观点，不代表论坛立场。{:soso_e10"

★Excel数据管理的一般规律★ http://club.excelhome.net/thread-287461-1-1.html

sanson4760 · 发表于 2014-5-26 11:44

LangQueS 发表于 2014-5-26 10:22
" 楼主在设计数据表时，未考虑到充分发挥Excel软件的内置功能，为以后对数据的积累、修改、引用和汇总造 ...

意思是建立分页小计后只有F、I、J才进行小计和总计的。

yaozong · 发表于 2014-5-26 19:48

'Set rSubArea = Range("b" & rCurrentCell.Row, "V" & rCurrentCell.Row)  ' 需要填充分页小计公式的区域V列''B至V列的区域（共21列）
上句改用下一句
  Set rSubArea = Union(Range("f" & rCurrentCell.Row), Range("i" & rCurrentCell.Row), Range("j" & rCurrentCell.Row)) ''其中3列（f\i\j)

sanson4760 · 发表于 2014-5-27 08:15

yaozong 发表于 2014-5-26 19:48
'Set rSubArea = Range("b" & rCurrentCell.Row, "V" & rCurrentCell.Row) ' 需要填充分页小计公式的区域 ...

这个代码是解决了只有三列小计和总计的问题，保是这三列的本页小计值不对呀！

yaozong · 发表于 2014-5-27 11:34

参考附件。。。。。。。。。。。。

sanson4760 · 发表于 2014-5-27 16:02

yaozong 发表于 2014-5-27 11:34
参考附件。。。。。。。。。。。。

这回非常完美了。谢谢大师！

kxzxw · 发表于 2015-7-28 16:55

奇怪，附件不能下载？

kxzxw · 发表于 2015-7-28 16:57

汗，浏览器的问题，能够下载了。

godtale · 发表于 2015-11-24 14:00

请问能教教我编辑一个吗？

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

[求助] 自动分页小计合计问题

评分