vba - Excel VBA 性能编码设置

Question

我一直在研究如何在 Excel VBA 中加速我的代码，我遇到了以下有用的设置。我的问题是:是否可以将以下代码行设置为一个变量，我可以将其设置为 On 或 Off 以激活整个列表？ IE。就像是

speedUpCode = On

将设置以下所有设置，如果将其设置为关闭，则会将以下所有设置反转为 True/xlCalculationAutomatic

With Application
    .ScreenUpdating = False
    .DisplayStatusBar = False
    .Calculation = xlCalculationManual
    .EnableEvents = False
End With
ActiveSheet.DisplayPageBreaks = False 'note this is a sheet-level setting

Answer 1

我用这个(非常基本):

Sub GoFast(Optional bYesNo As Boolean = True)
  With Application
      .ScreenUpdating = Not bYesNo
      .Calculation = IIf(bYesNo, xlCalculationManual, xlCalculationAutomatic)
  End With
End Sub

调用 True或者没有参数来加快速度，然后使用 False重置。

上面关于可能捕获各种设置的当前状态以便您可以返回“原始”状态的评论，并且并非所有设置都总是适合根据您正在做的事情进行更新，都值得考虑。