vba关闭自动计算,然后更新处理数据,处理完之后开启自动计算,并刷新。
分类:VBA
在 VBA 中关闭自动计算可以使用 Application.Calculation = xlCalculationManual
,开启自动计算则是 Application.Calculation = xlCalculationAutomatic
。而刷新可以使用 Application.ScreenUpdating = True
。
下面是一个更新处理数据并关闭自动计算、处理完之后开启自动计算并刷新的 VBA 示例代码:
Sub UpdateData()
' 关闭自动计算
Application.Calculation = xlCalculationManual
' 处理数据的代码
' ...
' 开启自动计算并刷新
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
ActiveWorkbook.RefreshAll
End Sub
在示例代码中,首先通过 Application.Calculation = xlCalculationManual
关闭了自动计算。然后执行相应的数据处理操作。最后通过 Application.Calculation = xlCalculationAutomatic
开启自动计算,并使用 Application.ScreenUpdating = True
刷新屏幕。如果数据涉及到了外部数据源,也可以使用 ActiveWorkbook.RefreshAll
来更新整个工作簿中的所有数据。