Excel VBA关闭启用计算

Question

我有一个工作簿，其中包含许多不同的公式，并且其中有一个名为Map的工作表，每当我向不同的工作表中输入新数据时，我就不需要自动计算。我在此工作表下面有以下VBA代码。问题是我需要手动转到“开发人员”选项卡，“属性”，“ EnableCalculation”，然后选择“ False”。当我这样做时，代码可以完美运行。但是，当我关闭并重新打开工作簿时，“属性”中的EnableCalculation已自动更改为True。打开工作簿后，我似乎无法拿出代码将此单独工作表上的此属性仅设置为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（）子项。