之前运行任何程序

Question

启动任何沉重的脚本之前后，自动执行代码，我需要做一些性能调整与Excel：

'Save parameters 
screenUpdateState = Application.ScreenUpdating 
statusBarState = Application.DisplayStatusBar 
calcState = Application.Calculation 
eventsState = Application.EnableEvents 

'Turn them off 
Application.ScreenUpdating = False 
Application.DisplayStatusBar = False 
Application.Calculation = xlCalculationManual 
Application.EnableEvents = False 

所以我将此代码粘贴（或称特殊程序，包含此代码，没有差异），然后再运行几乎每个程序。有没有办法自动做到这一点（某种全局构造函数）？

和整理后的程序与代码一样的情况：通过范围循环，并选择不同的事情是经常的背后需要这种优化

'Put everything back 
Application.ScreenUpdating = screenUpdateState 
Application.DisplayStatusBar = statusBarState 
Application.Calculation = calcState 
Application.EnableEvents = eventsState 

Answer 1

本示例仅适用于1个模块的1个过程，但您可以迭代所有模块的所有过程并使用相同的逻辑。它使用Jon Crowell的程序。

Private Sub SwitchHeaderFooter() 

    Dim lineNr As Long 
    Dim procName As String 
    Dim strHeader As String 
    Dim strFooter As String 

    procName = "TestProc" 
    strHeader = "Call GetReadyToProcess" 
    strFooter = "Call ReturnSettingsToWhatTheyWere" 

    Dim vbComp As VBIDE.VBComponent 
    Dim vbModule As VBIDE.CodeModule 
    Set vbComp = ThisWorkbook.VBProject.VBComponents("ModuleTest") 
    Set vbModule = vbComp.CodeModule 

    lineNr = vbModule.ProcBodyLine(procName, vbext_pk_Proc) 
    If (vbModule.Lines(lineNr + 1, 1) = strHeader) Then 
     vbModule.DeleteLines lineNr + 1, 1 
    Else 
     vbModule.InsertLines lineNr + 1, strHeader 
    End If 

    lineNr = vbModule.ProcCountLines(procName, vbext_pk_Proc) 
    If (vbModule.Lines(lineNr - 1, 1) = strFooter) Then 
     vbModule.DeleteLines lineNr - 1, 1 
    Else 
     vbModule.InsertLines lineNr, strFooter 
    End If 

End Sub 

在你ModuleTest，第一执行前：

Sub TestProc() 
    MsgBox "This is a test procedure!" 
End Sub 

和第一执行后：

Sub TestProc() 
Call GetReadyToProcess 
    MsgBox "This is a test procedure!" 
Call ReturnSettingsToWhatTheyWere 
End Sub 

最后，第二个执行后：

Sub TestProc() 
    MsgBox "This is a test procedure!" 
End Sub 

Answer 2

代码，并且可以几乎ALWAYS是避免。如果您需要优化重脚本的帮助，请使用资源密集型代码提出另一个问题。

没有看到你的一个“笨重的脚本”的例子，最好的办法是把你的设置和恢复代码放在潜艇中，并在运行你的程序之前和之后调用它们。

Sub HeavyLifting() 
    Call GetReadyToProcess 

    ' code for sub... 

    Call ReturnSettingsToWhatTheyWere 
End Sub 

Sub GetReadyToProcess() 
    'Save parameters 
    screenUpdateState = Application.ScreenUpdating 
    statusBarState = Application.DisplayStatusBar 
    calcState = Application.Calculation 
    eventsState = Application.EnableEvents 

    'Turn them off 
    Application.ScreenUpdating = False 
    Application.DisplayStatusBar = False 
    Application.Calculation = xlCalculationManual 
    Application.EnableEvents = False 
End Sub 

Sub ReturnSettingsToWhatTheyWere() 
    'Put everything back 
    Application.ScreenUpdating = screenUpdateState 
    Application.DisplayStatusBar = statusBarState 
    Application.Calculation = calcState 
    Application.EnableEvents = eventsState 
End Sub 

Answer 3

将采取一点点玩w第i个，但这些方针的东西应该工作，你可以将它设置你想要的

注意：您需要对VBA项目对象模型

Sub a() 
Dim l as VBIDE.VBComponent 
Dim strng As String 
strng = "Sub b()" & vbCrLf & "***your routine***" & vbCrLf & "End Sub" 
Set l = ThisWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule) 
l.CodeModule.AddFromString strng 

End Sub 

你可以扩展这个越来越把它转换成你想传递子名称的函数，或者如果你想将它附加到现有的模块，可以传递一个模块名称。

如果有人能指出你应该声明l为，我将它留为空白，但是如果有方法正确设置它，那么这意味着你会得到Intellisene。 - 从米盖尔的回答中得知了这一点，这是类似的情况

现在，我不想有一些乐趣了！ :)