VB 另存的数据与原工作薄不一致问题？请老师帮助解答，见附件。

糖↗小冷 · 发表于 2023-2-16 11:20

按步骤执行，【拆分】 →运行1 → 运行4 ，

运行4按钮时候，数据另存为在E盘，保存的数据与相对应的工作簿数据不一致，怎么解决？

1、本来有个思路就是运行1按钮执行完代码，后保存，

怎么能把数据变成手动重算，并且打开或者关闭都不重新运算，

这样是不是在执行另存为代码后，数据就能一致了，

可是不知道加在哪里？请老师帮看一下。

ykcbf1100 · 发表于 2023-2-16 12:48

With Application
.Calculation = xlManual'手动重算
End with

With Application
.Calculation = xlAutomatic'自动计算
End With
另外，运行1和运行2可以合并成一个模块。

糖↗小冷 · 发表于 2023-2-16 14:11

沉了。。。

糖↗小冷 · 发表于 2023-2-16 16:47

ykcbf1100 发表于 2023-2-16 12:48
With Application
.Calculation = xlManual'手动重算
End with

请问老师，这段写在那个模块里？

ykcbf1100 · 发表于 2023-2-16 17:03

糖↗小冷发表于 2023-2-16 16:47
请问老师，这段写在那个模块里？

模块前面先设为手动重算，运行完后，再改回自动重算。

糖↗小冷 · 发表于 2023-2-17 16:51

自问自答系列：通过他解决了所有的问题=IFERROR(S14/SUM($S$14:$S$166)*$T$13*COUNT($S$14:$S$1166),0)

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

[求助] VB 另存的数据与原工作薄不一致问题？请老师帮助解答，见附件。