Wie kann ich die statusleiste mit vba ein-/ausblenden?
In VBA gibt es eine Eigenschaft „Statusleiste“, die Ihnen helfen kann, einen Wert in der Statusleiste anzuzeigen, und es gibt auch „DisplayStatusBar“, um den Status des Excel-Fensters auszublenden und anzuzeigen. Bei Verwendung dieser Eigenschaften müssen Sie die Statusleiste bis zum Ende zurücksetzen, da sonst die letzte Meldung oder Einstellung dort verbleibt.
Im Tutorial sehen wir einige Beispiele, die wir bei der Arbeit in Excel verwenden können.
Einen Wert in der Statusleiste anzeigen
Wie gesagt, Sie können die StatusBar-Eigenschaft verwenden, um einen Wert in der Statusleiste anzuzeigen. Im folgenden Code haben Sie den Wert „Hallo“ verwendet, um ihn zur Statusleiste hinzuzufügen.
- Verwenden Sie das Schlüsselwort „Anwendung“, um auf die Excel-Anwendung zu verweisen.
- Geben Sie einen Punkt ein, um eine Liste der Eigenschaften und Methoden zu erhalten.
- Wählen Sie die Eigenschaft „StatusBar“.
- Am Ende geben Sie mit dem Gleichheitszeichen den Wert an, der in der Statusleiste angezeigt werden soll.
Sub vba_status_bar() Application.StatusBar = "Hello" End Sub
Statusleiste mit VBA ausblenden
Angenommen, Sie möchten die Statusleiste ausblenden, indem Sie DisplayStatusBar verwenden und diese Eigenschaft auf „False“ festlegen ( beachten Sie den folgenden Code ).
- Verwenden Sie das Schlüsselwort „Anwendung“, um auf die Excel-Anwendung zu verweisen.
- Geben Sie einen Punkt ein, um eine Liste der Eigenschaften und Methoden zu erhalten.
- Wählen Sie die Eigenschaft „DisplayStatusBar“.
- Verwenden Sie am Ende das Gleichheitszeichen, um „False“ anzugeben.
Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub
Fortschritt in der Statusleiste aktualisieren
Nachfolgende Codeausführungen zeigen in der Statusleiste einen Fortschrittszähler mit einer Zahl von 1 bis 100 an, die Sie nach Bedarf ändern können.
Sub vba_status_bar_update() Dim x As Integer Dim iTimer As Double 'you can change the loop if you need For x = 1 To 100 'dummy loop to run, you can change it as well iTimer = Timer Do Loop While Timer - MyTimer < 0.03 Application.StatusBar = "Progress: " & x & " of 100: " & Format(x / 100, "Percent") DoEvents Next x Application.StatusBar = False End Sub
Wichtige Punkte, die Sie beachten sollten
- Um sie nutzen zu können, müssen Sie „App“ mit Statusleisteneigenschaften verwenden.
- Sobald Sie eine Statusmeldung sehen, müssen Sie diese Meldung löschen.