单表行多表不行

xing_chen

WANT-T 发表于 2023-2-17 10:28
说明你的代码逻辑有问题

谢谢！这真是我需要你具体指出的，能帮忙吗！我倒是需要这。一个学文科的对这理工科的逻辑是需要补充。谢谢

WANT-T

xing_chen 发表于 2023-2-17 10:36
谢谢！这真是我需要你具体指出的，能帮忙吗！我倒是需要这。一个学文科的对这理工科的逻辑是需要补充。谢 ...

请描述需求，并提供口径

tanglf188

你的问题不是索引遍历问题，把sum那一行改下就可以了
Sheets(k).Cells(j, 4).Value = Application.Sum(Sheets(k).Range("d3:d" & j))

xing_chen

WANT-T 发表于 2023-2-17 10:39
请描述需求，并提供口径

谢谢老师！就是将每张表的列和余额合计和计算一下。现在的问题是：余额的累计数正确，列的合计数错误。上面的老师说用FOU不行，我的问题是为什么这代码理由2个计算，1个是累计，另1个是列合计。为什么前者可以，后者不行。同在一个屋檐下，差别就这么大！问题出在那里？

xing_chen

xing_chen 发表于 2023-2-17 11:16
谢谢老师！就是将每张表的列和余额合计和计算一下。现在的问题是：余额的累计数正确，列的合计数错误。上 ...

我也将2个计算上下换了位置，出错！我想是否列合计用的函数公式，不适用遍历

xing_chen

ykcbf1100 发表于 2023-2-17 09:39
表遍历改用For Each Sht In Sheets更合适，就象2楼说的那样，你不知道从哪个表开始运行。如果你只需要运行 ...

老师！改了你提议的For Each Sht In Sheets，还是不行吗？什么原因呀？

tanglf188

xing_chen 发表于 2023-2-17 16:05
老师！改了你提议的For Each Sht In Sheets，还是不行吗？什么原因呀？

我都告诉你问题所在了，和遍历方式没关系，要么在代码前加：Sheets(k).Activate,要么在Sum后面加：Sheet(k),你的代码还有一个问题就是执行前判断有没有合计行，否则每次的结果都会翻倍。

xing_chen

tanglf188 发表于 2023-2-17 16:26
我都告诉你问题所在了，和遍历方式没关系，要么在代码前加：Sheets(k).Activate,要么在Sum后面加：Sheet( ...

抱歉！抱歉！老师刚发现你的提示，现在成功了。谢谢！