/ / Excel VBA StatusBar svojstvo

Excel VBA StatusBar svojstvo

Ovaj Trake nekretnine objekta aplikacija u Excel VBA može se koristiti za ukazuju tijeku poduži makronaredbe.Na taj način, možete pustiti korisnik znati da makronaredbe još uvijek radi.

Situacija:

Makro ćemo stvoriti ispunjava Range("A1:E20") slučajnih brojeva.

Excel VBA StatusBar nekretnine primjer

Dodajte sljedeće linije koda gumbu naredbe:

1.prvi, možemo proglasiti tri varijable tipa Integer, pod nazivom ja, j i pctCompl.

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

2. dodati dvostruke petlje.

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

    Next j
Next i

Dodati sljedeće retke koda (na 3, 4 i 5) petlje.

3. funkciju RandBetween uvesti slučajni broj između 20 i 100.

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

4. inicijalizacija varijable pctCompl.The drugi broj linija piše vrijednost varijable pctCompl i neki opisni tekst u traci stanja.

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

Primjer: za ja = 3, j = 1, (3-1) * 5 (1 * 1) = 11% dovršen.

5. koristimo Čekaj metoda objekta aplikacija za simulaciju poduži makronaredbe.

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

6. vratiti zadani tekst trake stanja StatusBar svojstvo postavite na False (vanjština omča).

Application.StatusBar = False

Rezultat kada kliknete gumb naredbe na listu:

Excel VBA StatusBar svojstvo rezultat

Napomena: Možete zaustaviti makronaredbu u bilo kojem trenutku pritiskom na tipku Esc ili Ctrl Break.Za više vizualni pristup, pogledajte naš pokazivač napretka program.

Također pročitajte: