会计科目逐级汇总

laughingsun · 发表于 2021-5-7 11:19

老师们上午好！通常有一些特殊需要，将会计凭证导出来进行调整，然后生成新的报表。如何对调整后的科目表按科目代码逐级汇总呢？数据多的时候，用公式有些麻烦，而且一不小心就弄错了。能否用VBA汇总呢？附件中黄色部分是需要的结果。谢谢！

hongshan2019 · 发表于 2021-5-7 11:26

留下2朵花，等大神来拿

fanyoulin · 发表于 2021-5-7 11:40

你要把你的原始数据发出来，然后再把你需要的结果列示出来，别人才知道要怎么汇总；
你现在发出来的是原始数据+手工汇总的结合体，唯一的标识是“黄色”。颜色不是好的标识，而且我估计你也没标完整；

zpy2 · 发表于 2021-5-7 12:41

select *,(SELECT SUM(借方金额) FROM 银行存款余额明细表 WHERE 科目代码 LIKE a.科目代码||'%' ) 借方金额2 from 银行存款余额明细表 a

fanyoulin · 发表于 2021-5-7 12:42

用我想当然的方式给你做了一个，在sheet2中汇总。
也是用颜色来标记的，什么额颜色都行，只要底色不是“无填充”，都会被视同有颜色标记；

代码也不算长，如果你是想把汇总嵌套在原始数据中，你需要自己修改；
我还是建议你用新表来汇总，因为这样很方便整体复制粘贴汇总数据，代码也会简单些，在原表中嵌套汇总要非常小心，代码写起来更费劲；

fanyoulin · 发表于 2021-5-7 12:43

刚才忘记上传附件了，补上；

fanyoulin · 发表于 2021-5-7 12:46

第一行代码有错误，你自己改下，我不想再上传附件
Range("a2:d1000").ClearContents
清除区域从原来的 a2:c1000 改成 a2:d1000，之前我以为只要汇总借方余额，实际上贷方余额也要汇总的

laughingsun · 发表于 2021-5-7 15:49

本帖最后由 laughingsun 于 2021-5-7 15:52 编辑

fanyoulin 发表于 2021-5-7 12:46
第一行代码有错误，你自己改下，我不想再上传附件
Range("a2:d1000").ClearContents
清除区域从原来的 a2 ...

谢谢老师，辛苦了！我在你代码基础上做了些许改动，已达到目的。目前看来似乎有些慢，老师能否帮我再看看？

少如 · 发表于 2021-5-7 19:15

laughingsun 发表于 2021-5-7 15:49
谢谢老师，辛苦了！我在你代码基础上做了些许改动，已达到目的。目前看来似乎有些慢，老师能否帮我再看看 ...

确实很慢, 帮顶一下!

zpy2 · 发表于 2021-5-7 20:21

laughingsun 发表于 2021-5-7 15:49
谢谢老师，辛苦了！我在你代码基础上做了些许改动，已达到目的。目前看来似乎有些慢，老师能否帮我再看看 ...

你要把你的原始数据发出来，

用sql应该不慢的

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

[求助] 会计科目逐级汇总

评分