V levém dolním rohu aplikace Excel najdete stavový řádek:
Excel používá tento stavový řádek ke komunikaci zpráv. Vlastnost StatusBar však lze také upravit pomocí VBA, což vám umožní zobrazit vlastní zprávy.
Vlastní zpráva stavového řádku
Stavový řádek můžete aktualizovat vlastní zprávou v aplikaci Excel, když je spuštěno makro, pomocí Stavový řádek vlastnictví.
1. Umístěte tento kód do makra, kdykoli chcete uživatele aktualizovat pomocí zprávy vlastního stavového řádku:
| 1 | Application.StatusBar = "Právě pracuji !!!" |
2. A na konec vašeho makra umístěte tento kód, abyste vymazali stavový řádek a vrátili ovládání zpět do Excelu:
| 1 | Application.StatusBar = FALSE |
Zakázat aktualizaci stavového řádku
Místo zobrazení zprávy během běhu postupu můžete stavový řádek deaktivovat. Tím se zvýší rychlost vašeho kódu VBA, protože aplikace Excel může přeskočit zpracování zobrazené zprávy na stavovém řádku.
Chcete -li zakázat aktualizaci stavového řádku, když je spuštěn váš kód, nastavte DisplayStatusBar vlastnost na false.
| 1 | Application.DisplayStatusBar = False |
Na konci kódu obnovte aktualizaci stavového řádku:
| 1 | Application.DisplayStatusBar = True |
Důležité! Použijte Stavový řádek vlastnost k nastavení zpráv, ale použijte DisplayStatusBar vlastnost pro úplné vypnutí nebo povolení stavového řádku.
Zrychlete kód VBA
Pro optimální rychlost zpracování zkuste použít tento kód:
| 12345678910111213141516 | sub RunFast ()Application.ScreenUpdating = FalseApplication.DisplayStatusBar = FalseApplication.EnableEvents = FalseActiveSheet.DisplayPageBreaks = FalseApplication.Calculation = xlCalculationManual„Tady je tvůj kódApplication.ScreenUpdating = TrueApplication.DisplayStatusBar = TrueApplication.EnableEvents = TrueActiveSheet.DisplayPageBreaks = TrueApplication.Calculation = xlCalculationAutomatickonec sub |
