多工作簿对应工作表汇总

学不完用不尽

KCFONG 发表于 2013-7-29 10:04
sorry,
bug fixed. please test

基本正确。
谢谢！


补充内容 (2013-8-16 23:51):
完全正确！特此更正！！

学不完用不尽

LIUZHU 发表于 2013-7-29 10:10
如果楼主需要汇总的表比较多，估计有够呛，汇总容易把汇总表中的公式覆盖掉

存在此问题，覆盖了公式，就不易判断是否平衡了，即使有问题，也不易发现。有好的办法吗？望分项。谢谢！

excel好玩

学不完用不尽 发表于 2013-7-29 22:32
正确！
有个不情之请，可否分享一下财务指标分析表的代码，也就是说，将三大主表汇总完后，再新建一个 ...

财务指标无非就是加减乘除，应该不需要代码了吧，就几个公式，我之前在坛子下了一个比较标准的财务报表模板，我在上面输入了一个书上的例子作演练，里面有一些常见的财务指标如存货周转天数等，有兴趣见附件。至于你说的判断，有一个是错的，净利润加上资产负债表中的期初未分配利润是不等于资产负债表中的期末未分配利润的，因为净利润还需经过提取弥亏，提取盈余公积等等才进入未分配利润。即使是年末所有者权益与年初所有者权益之差，也不等于净利润，比如收到投资就直接加所有者权益了。至于另外两个条件倒毋庸置疑，但实在太基本了，编表那个人不大可能编完一份表，连资产负债不相等都没发现吧。。。。。确实需要的话就加上这两个判断吧

If Wb.Sheets("资产负债表").Range("c6") <> Wb.Sheets("现金流量表").Range("c29") Then
    MsgBox Wb.Name
    Exit Sub
End If
If Wb.Sheets("资产负债表").Range("d36") <> Wb.Sheets("资产负债表").Range("h36") Then
    MsgBox Wb.Name
    Exit Sub
End If

你想加多少判断都可以

学不完用不尽

excel好玩 发表于 2013-7-30 10:48
财务指标无非就是加减乘除，应该不需要代码了吧，就几个公式，我之前在坛子下了一个比较标准的财务报表模 ...

有道理！但就怕万一，另外，报表中的利润不一定都是正数，有可能是负数（亏损）。哈哈，不纠结此事了，此为题外话。
谢谢提示！

学不完用不尽

excel好玩 发表于 2013-7-29 09:49
........................................

应用中发现一个问题：
貌似小数点以后的数据被忽略了，怎样才能把小数点以后的数据都计算在内呢？
请修改！谢谢！

补充内容 (2013-8-16 23:47):
数据汇总错误！！

补充内容 (2013-8-24 23:09):
正确程序见24楼。

学不完用不尽

KCFONG 发表于 2013-7-29 10:04
sorry,
bug fixed. please test

应用中发现一个问题：
小数点以后的数据被忽略了，能否再完善一下代码？谢谢！

补充内容 (2013-8-16 23:49):
是我查看的不仔细，程序运行结果正确！！特此更正！！！

补充内容 (2013-8-24 23:08):
正确程序见24楼。

缔造者

excel好玩 发表于 2013-7-29 09:49
........................................

这个程序，数据汇总错误！
请检查！

缔造者

KCFONG 发表于 2013-7-29 10:04
sorry,
bug fixed. please test

完全正确！
若把0值隐藏，使其不显示，就更完美了。
赞一个！

KCFONG

缔造者 发表于 2013-8-16 18:05
完全正确！
若把0值隐藏，使其不显示，就更完美了。
赞一个！

see if fit your request

学不完用不尽

KCFONG 发表于 2013-8-16 22:24
see if fit your request

谢谢版主！
您的这个程序，在实际应用中是正确的！
能否把它设计为通用程序，也就是说，不直接引用工作表名称，而是使用变量代替工作表名称，因为有时不止“资产负债表”、“利润表”、“现金流量表”这三个表，可能还有其他表（比如，自定义的报表等），如果使用变量代替工作表名称，就可以不用手动修改代码了（我是代码菜鸟，所以有此要求，如果有难度，请忽略此要求）。