In der unteren linken Ecke von Excel finden Sie eine Statusleiste:
Excel verwendet diese Statusleiste, um Ihnen Nachrichten zu übermitteln. Die StatusBar-Eigenschaft kann jedoch auch über VBA angepasst werden, sodass Sie Ihre eigenen Nachrichten anzeigen können.
Benutzerdefinierte Statusleistenmeldung
Sie können die Statusleiste mit Ihrer eigenen benutzerdefinierten Nachricht in Excel aktualisieren, während ein Makro ausgeführt wird Statusleiste Eigentum.
1. Fügen Sie diesen Code in ein Makro ein, wenn Sie den Benutzer mit einer benutzerdefinierten Statusleistennachricht aktualisieren möchten:
1 | Application.StatusBar = "Ich arbeite jetzt!!!" |
2. Und am Ende Ihres Makros platzieren Sie diesen Code, um die Statusleiste zu löschen und die Kontrolle an Excel zurückzugeben:
1 | Application.StatusBar = FALSE |
Aktualisierung der Statusleiste deaktivieren
Anstatt eine Meldung anzuzeigen, während Ihr Verfahren ausgeführt wird, können Sie die Statusleiste deaktivieren. Dies erhöht die Geschwindigkeit Ihres VBA-Codes, da Excel die Verarbeitung der anzuzeigenden Statusleistenmeldung überspringen kann.
Um die Aktualisierung der Statusleiste zu deaktivieren, während Ihr Code ausgeführt wird, stellen Sie die Statusleiste anzeigen Eigenschaft auf false.
1 | Application.DisplayStatusBar = False |
Stellen Sie am Ende Ihres Codes die Aktualisierung der Statusleiste wieder her:
1 | Application.DisplayStatusBar = True |
Wichtig! Verwenden Sie die Statusleiste -Eigenschaft, um Nachrichten zu setzen, aber verwenden Sie die Statusleiste anzeigen -Eigenschaft, um die Statusleiste vollständig zu deaktivieren oder zu aktivieren.
VBA-Code beschleunigen
Für eine optimale Verarbeitungsgeschwindigkeit versuchen Sie es mit diesem Code:
12345678910111213141516 | unter RunFast()Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.Calculation = xlCalculationManual'Ihr Code hierApplication.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueApplication.Calculation = xlCalculationAutomaticEnd Sub |