如何将应用程序计算设置回用户在Excel VBA中定义的？

Question

我有一个相当大的工作簿,有些用户喜欢自动计算,而其他人则喜欢将其关闭.

与工作表交互的一些宏被附加到工作簿.为了加快我的VBA代码,我设置了

Application.Calculation = xlManual

在每个工作簿的开头.

我的问题是,如何将其恢复到宏观结束时的状态？

现在我正在使用

Application.Calculation = xlAutomatic

但这会覆盖用户的选择.每次宏运行时都必须将其更改回手动,这非常烦人.(或者相反,如果将其保留在手册中.)

Answer 1

开始前存储设置，完成后恢复：

Sub calctest()
Dim calcsetting As Integer

    calcsetting = Application.Calculation
    ' Put code here
    Application.Calculation = calcsetting
End Sub