一键汇总各公司财务报表数据到总表，且汇总表每一单元格显示各公司累计过程。

AiYx

ykcbf1100 发表于 2024-2-6 16:33
参与一下。。。

非常感谢老师！！！

刚刚测试，会报” 编译错误:找不到工程或库 “。

想再请教一下老师，可以实现汇总结果不是一个最终合计数（如300,000.00），而是显示计算过程（如=100,000.00+200,000.00）吗？

ykcbf1100

cjc209 发表于 2024-2-6 16:48
他要                                 If ar(j, k)  "" Then
                                        ...

我看一下。。

ykcbf1100

AiYx 发表于 2024-2-6 16:55
非常感谢老师！！！

刚刚测试，会报” 编译错误:找不到工程或库 “。

你的office系统是03版的？
我的代码并不需要特别的库啊。

AiYx

yynrzwh 发表于 2024-2-6 16:49

  完美解决所有功能需求。非常感谢老师。

cjc209

ykcbf1100 发表于 2024-2-6 16:34
代码供参考。。。

7楼使用字典达到了要求

ykcbf1100

AiYx 发表于 2024-2-6 16:55
非常感谢老师！！！

刚刚测试，会报” 编译错误:找不到工程或库 “。

代码已改，不知道是不是你的意思。

cjc209

ykcbf1100 发表于 2024-2-6 17:42
代码已改，不知道是不是你的意思。

不是他要的形式 7楼的才是正确答案

半百

我觉得在单元格中显示公式没多大意思，你能知道哪个数字是哪个月份的吗？
另外，表中有的公式是错误的。

AiYx

ykcbf1100 发表于 2024-2-6 17:07
你的office系统是03版的？
我的代码并不需要特别的库啊。

老师，我用的是office2019，百度之后启用  “Microsoft Sorinting kuntime” 就可以用了。再次感谢老师。

AiYx

半百 发表于 2024-2-7 10:22
我觉得在单元格中显示公式没多大意思，你能知道哪个数字是哪个月份的吗？
另外，表中有的公式是错误的。

非常感谢老师的回复。

代码亲测可用，完美实现功能需求。1、预期想实现累加计算过程，是考虑如果汇总后，报表不平，可以自己检查下哪个地方加计有误；也可以看累加个数与公司个数是否一致；2、因考虑只是模拟测试用表，就没有维护财务报表的细节公式，再次感谢老师的提醒。