Hoe kan ik de statusbalk tonen/verbergen met vba?

In VBA is er een eigenschap “Status Bar” die u kan helpen een waarde in de statusbalk weer te geven en er is ook “DisplayStatusBar” om de status van het Excel-venster te verbergen en weer te geven. Wanneer u deze eigenschappen gebruikt, moet u de statusbalk helemaal opnieuw instellen, anders blijft het laatste bericht of de laatste instelling daar staan.

In de tutorial zullen we enkele voorbeelden zien die we kunnen gebruiken bij het werken in Excel.

Toon een waarde in de statusbalk

Zoals ik al zei, kunt u de eigenschap StatusBar gebruiken om een waarde in de statusbalk weer te geven. In de onderstaande code heeft u de waarde ‘Hallo’ gebruikt om toe te voegen aan de statusbalk.

1. Gebruik het trefwoord “Applicatie” om naar de Excel-applicatie te verwijzen.
2. Typ een periode om een lijst met eigenschappen en methoden te krijgen.
3. Selecteer de eigenschap “StatusBar”.
4. Gebruik aan het einde het gelijkteken om de waarde op te geven die u in de statusbalk wilt weergeven.

 Sub vba_status_bar() Application.StatusBar = "Hello" End Sub

Statusbalk verbergen met VBA

Stel nu dat als u de statusbalk wilt verbergen, u DisplayStatusBar kunt gebruiken en deze eigenschap kunt opgeven op “False” ( beschouw de volgende code ).

1. Gebruik het trefwoord “Applicatie” om naar de Excel-applicatie te verwijzen.
2. Typ een periode om een lijst met eigenschappen en methoden te krijgen.
3. Selecteer de eigenschap “DisplayStatusBar”.
4. Gebruik aan het einde het gelijkteken om ‘False’ te specificeren.

 Sub vba_status_bar_hide() Application.DisplayStatusBar = False End Sub

Update de voortgang in de statusbalk

Bij daaropvolgende code-uitvoeringen wordt een voortgangsteller op de statusbalk weergegeven met een getal van 1 tot 100, dat u indien nodig kunt wijzigen.

 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

Belangrijke punten om te onthouden

1. U moet “app” gebruiken met statusbalkeigenschappen om ze te kunnen gebruiken.
2. Zodra u een bericht over de status bekijkt, moet u dat bericht wissen.