In de linkerbenedenhoek van Excel vindt u een statusbalk:
Excel gebruikt deze statusbalk om berichten aan u te communiceren. De StatusBar-eigenschap kan echter ook worden aangepast met VBA, zodat u uw eigen berichten kunt weergeven.
Aangepast statusbalkbericht
U kunt de statusbalk bijwerken met uw eigen aangepaste bericht in Excel terwijl een macro wordt uitgevoerd, met behulp van de Statusbalk eigendom.
1. Plaats deze code in een macro wanneer u de gebruiker wilt updaten met een aangepast statusbalkbericht:
| 1 | Application.StatusBar = "Ik werk nu!!!" |
2. Plaats aan het einde van uw macro deze code om de statusbalk te wissen en de controle terug te geven aan Excel:
| 1 | Toepassing.StatusBar = ONWAAR |
Statusbalk bijwerken uitschakelen
In plaats van een bericht weer te geven terwijl uw procedure wordt uitgevoerd, kunt u de statusbalk uitschakelen. Dit verhoogt de snelheid van uw VBA-code, omdat Excel de verwerking van het statusbalkbericht dat moet worden weergegeven, kan overslaan.
Om het bijwerken van de statusbalk uit te schakelen terwijl uw code actief is, stelt u de Statusbalk weergeven eigendom te vals.
| 1 | Application.DisplayStatusBar = False |
Herstel aan het einde van uw code de update van de statusbalk:
| 1 | Application.DisplayStatusBar = True |
Belangrijk! Gebruik de Statusbalk eigenschap om berichten in te stellen, maar gebruik de Statusbalk weergeven eigenschap om de statusbalk helemaal in of uit te schakelen.
VBA-code versnellen
Probeer deze code voor een optimale verwerkingssnelheid:
| 12345678910111213141516 | sub RunFast()Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseToepassing.Berekening = xlBerekeningHandmatig'Uw code hier'Application.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueToepassing.Berekening = xlBerekeningAutomatischeinde sub |
