如果打开任何其他应用程序，Excel VBA的运行速度将非常慢

Question

I have a excel report with VBA code. It generally runs within 1 minute if no other application opened. Excel report runs become 2 minutes if outlook opened. Excel reports runs become 6 minutes if outlook,chrome and bloomberg terminal application opened.

The excel report VBA code has been optimized. But it still running slow when other application opend. More application opened can make excel report more slow.

Is there anybody can help me solve this issue? Thanks in advance.

Answer 1

1) A simple solution could be going into task manager and adding a higher CPU priority to Excel.

2) If your VBA is writing values in a excel sheet that has calculations in it, you might want to look into turning off automatic spreadsheet calculations.

Answer 2

There might be a lot of factors contributing to this issue:

1. Any actions triggered in these events:

   Worksheet_Calculate()

   Worksheet_Change()

   Worksheet_FollowHyperlink()

   Worksheet_SelectionChange()

   Workbook_SheetCalculate()

   Workbook_SheetChange()

   Workbook_SheetFollowHyperlink()

2. external links, and the external file(s) moved or deleted

3. database connections (check Data Tab -> Connections) (doubtful)

4. Invalid Named Ranges (Formula Tab -> Name Manager; any Refs?)

5. Data validation rules (Data Tab -> Data Validation -> clear all)

6. Are you opening the file from a network location - this will make it much slower

7. Conditional Formatting rules? - remove all

8. Any hidden objects? (Alt + F10 - delete all)

9. Hidden formatting (what is the last used cell with data?)

10. Corrupt file

If the file is corrupt, and it's feasible, try re-creating it from scratch, and run this function first

11. If it's not corrupt, one of the first things I'd try is to disable all Excel

functionality before the macro:

Sub MainSubTryMe()

    'UnlockSettingsWorksheet

    FastWB          '<--- Disables all Application and Worksheet level settings

    'YOURCODE HERE

    XlResetSettings '<--- Restores all Excel settings to defaults

    'LockSettingsWorksheet

End Sub


Public Sub FastWB(Optional ByVal opt As Boolean = True)
    With Application
        .Calculation = IIf(opt, xlCalculationManual, xlCalculationAutomatic)
        .DisplayAlerts = Not opt
        .DisplayStatusBar = Not opt
        .EnableAnimations = Not opt
        .EnableEvents = Not opt
        .ScreenUpdating = Not opt
    End With
    FastWS , opt
End Sub

Public Sub FastWS(Optional ByVal ws As Worksheet, Optional ByVal opt As Boolean = True)
    If ws Is Nothing Then
        For Each ws In Application.ThisWorkbook.Sheets
            OptimiseWS ws, opt
        Next
    Else
        OptimiseWS ws, opt
    End If
End Sub

Public Sub OptimiseWS(ByVal ws As Worksheet, ByVal opt As Boolean)
    With ws
        .DisplayPageBreaks = False
        .EnableCalculation = Not opt
        .EnableFormatConditionsCalculation = Not opt
        .EnablePivotTable = Not opt
    End With
End Sub
Public Sub XlResetSettings()    'default Excel settings
    With Application
        .Calculation = xlCalculationAutomatic
        .DisplayAlerts = True
        .DisplayStatusBar = True
        .EnableAnimations = False
        .EnableEvents = True
        .ScreenUpdating = True
        Dim ws As Worksheet
        For Each ws In Application.ThisWorkbook.Sheets
            With ws
                .DisplayPageBreaks = False
                .EnableCalculation = True
                .EnableFormatConditionsCalculation = True
                .EnablePivotTable = True
            End With
        Next
    End With
End Sub

Maybe this will eliminate some VBA causes

You Can also Have a look here :

Improving calculation performance

Performance and limit improvements

Tips for optimizing performance obstructions

An other Stack Answer