/ / Excel Vlastnost StatusBar

Vlastnost stavového pole Excel VBA

The Vlastnost StatusBar objektu aplikace v souboru Excel VBA lze použít k označení postupu dlouhého makra. Tímto způsobem můžete uživatele informovat o tom, že makro stále běží.

Situace:

Makro, které vytvoříme, vyplní rozsah ("A1: E20") s náhodnými čísly.

Příklad vlastností stavového pole Excel VBA

K příkazovému tlačítku přidejte následující řádky kódu:

1. Nejprve deklarujeme tři proměnné typu Integer nazvané i, j a pctCompl.

Dim i As Integer, j As Integer, pctCompl As Integer

2. Přidejte dvojitou smyčku.

For i = 1 To 20
    For j = 1 To 5

    Next j
Next i

Do smyčky přidejte následující řádky kódu (u 3, 4 a 5).

3. Použijte funkci RandBetween pro import náhodného čísla mezi 20 a 100.

Cells(i, j).Value = WorksheetFunction.RandBetween(20, 100)

4. Inicializujte proměnnou pctCompl. Druhý řádkový řádek zapíše hodnotu proměnné pctCompl a nějaký popisný text do stavového řádku.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Importing Data.. " & pctCompl & "% Completed"

Příklad: Pro i = 3, j = 1, (3 - 1) * 5 + (1 * 1) = 11%.

5. Pomocí metody Wait objektu aplikace simulujeme zdlouhavé makro.

Application.Wait Now + TimeValue("00:00:01")

6. Chcete-li obnovit text výchozí stavové lišty, nastavte vlastnost StatusBar na hodnotu False (mimo smyčku).

Application.StatusBar = False

Výsledek po klepnutí na příkazové tlačítko na listu:

Výsledek vlastností aplikace Excel VBA

Poznámka: Makro můžete kdykoli přerušit stisknutím klávesy Esc nebo Ctrl + Break. Podrobnější vizuální přístup viz program Indikátor pokroku.

Také si přečtěte: