关闭启用计算

Question

我有一个包含许多不同公式的工作簿，其中有一个工作sheet 称为 Map，每次我将新数据输入不同的工作时，我不需要自动计算它sheet。关于这项工作sheet，我在下方有以下VBA 代码。问题是我需要手动转到 Developer 选项卡、Properties、EnableCalculation 和 select False。当我这样做时，代码可以完美运行。但是，当我关闭并重新打开工作簿时，属性中的 EnableCalculation 已自动更改为 True。我似乎无法想出一个代码来将此属性对这个人 sheet 仅在打开工作簿时变为 False。

如有任何关于如何执行此操作的建议，我们将不胜感激。我是编码新手，这是我第一次尝试编写 VBA 代码，我花了几天时间才得到下面的内容。所以描述的越详细越好。谢谢！

Sub docalc()
Dim oldCalc As Boolean
oldCalc = ActiveSheet.EnableCalculation
ActiveSheet.EnableCalculation = False
ActiveSheet.EnableCalculation = True
ActiveSheet.EnableCalculation = oldCalc
End Sub

Answer 1

插入一个名为 Sub Workbook_Open() 的模块并添加行 ws.EnableCalculation = False，其中 ws 是您要为其设置属性的工作表——例如 worksheets("Sheet4") 或 worksheets(4)。每次打开工作簿时，Workbook_Open() 子程序都会自动运行。

关闭启用计算

Turn off enable calculation

excel

vba

properties

calculation