/ Vlastnosť

Vlastnosť stavového riadka programu Excel VBA

Na StatusBar ubytovanie Aplikácia objekt v Excel VBA možno uviesť priebeh zdĺhavého makro.Týmto spôsobom, môžete umožniť používateľovi vedieť, že makro je spustené.

situácie:

Chceme vytvoriť makro zadá Range("A1:E20") náhodných čísel.

Excel VBA StatusBar vlastníctva príklad

Do príkazového tlačidla pridajte nasledujúce riadky kódu:

1.Prvá, môžeme vyhlásiť tri premenné typu Integer, i, j a pctCompl.

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

2. Pridajte dvojitou slučku.

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

    Next j
Next i

Pridajte nasledujúce riadky kódu (na 3, 4 a 5) do slučky.

3. použite funkciu RandBetween importovať náhodné číslo medzi 20 a 100.

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

4. Inicializácia premennej pctCompl.The druhý riadok kódu píše hodnotu premennej pctCompl a popisný text v stavovom riadku.

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

Príklad: pre i = 3, j = 1, 3-1 * 5 (1 * 1) = 11% bolo dokončené.

5. používame čakať metódu objektu Application na simuláciu zdĺhavé makro.

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

6. Ak chcete obnoviť predvolený text v stavovom riadku, nastaviť vlastnosť StatusBar nepravdivé (u slučky).

Application.StatusBar = False

Výsledok po kliknutí na príkazové tlačidlo na hárku:

Excel VBA StatusBar objekt výsledok

Poznámka: Makro môže prerušiť kedykoľvek stlačením klávesu Esc alebo Ctrl Break.Viac vizuálnej prístup, nájdete nášho ukazovateľ priebehu programu.

Tiež si prečítajte: