Wie kann die Geschwindigkeit von VBA-Makrocode verbessert werden?

In diesem Artikel erfahren Sie, wie Sie Makros mit Pivots mithilfe von VBA-Code schneller ausführen.

Frage): Ich arbeite an einem Dashboard, in dem eine erhebliche Anzahl von Pivot-Tabellen und Pivot-Diagrammen erstellt wurden. Das Problem, mit dem ich konfrontiert bin, ist, wenn ich alle Drehpunkte aktualisiere, dann hängt das gesamte System. Ich möchte einen magischen Code, der mir hilft.

Wir müssen die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

aus === image: https: //www.office-skill.site/images/wp-content-uploads-2015-06-img134.png [img1, width = 409, height = 120]

Geben Sie den folgenden Code in das Standardmodul

ein === Sub FastMacro ()

Application.ScreenUpdating = False

Application.Calculation = xlCalculationManual

ActiveWorkbook.RefreshAll

Application.ScreenUpdating = True

Application.Calculation = xlCalculationAutomatic

End Sub

img2

Der obige Screenshot enthält den Berechnungsmodus im manuellen Modus und die Bildschirmaktualisierung ist zunächst falsch, bevor alle Pivots aktualisiert werden. Der Berechnungsmodus ist automatisch und die Bildschirmaktualisierung ist wahr.

Wenn Sie dem obigen Ansatz folgen, führt dies zu einer erheblichen Aktualisierung im Vergleich zu einer einfachen Aktualisierung der Pivots.

image 19