时间戳

首页 > 解决方案 > 关闭启用计算

excel - 关闭启用计算

问题描述

我有一个包含许多不同公式的工作簿，其中有一个名为 Map 的工作表，每次我将新数据输入到不同的工作表中时，我都不需要自动计算。我在此工作表上有以下 VBA 代码。问题是我需要手动转到 Developer 选项卡、Properties、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

标签： excelvbapropertiescalculation

解决方案

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

推荐阅读