The StatusBar svojstvo objekta aplikacije u Excel VBA može se koristiti za označavanje napretka dugačke makronaredbe. Na ovaj način možete obavijestiti korisnika da je makro još uvijek u izvođenju.
Situacija:
Makronaredba koju ćemo stvoriti ispunjava raspon ("A1: E20") nasumičnim brojevima.
Naredbenom gumbu dodajte sljedeće retke koda:
1. Prvo, deklariramo tri varijable tipa Integer, imenovane i, j i pctCompl.
Dim i kao cijeli broj, j kao cijeli broj, pctCompl kao cijeli broj
2. Dodajte dvostruku petlju.
Za i = 1 do 20
Za j = 1 do 5
Sljedeće j
Sljedeći i
Dodajte sljedeće linije koda (na 3, 4 i 5) u petlju.
3. Upotrijebite funkciju RandBetween za uvoz slučajnog broja između 20 i 100.
Ćelije (i, j) .Vrijednost = Funkcija radnog lista.RandBetween (20, 100)
4. Inicijalizirajte varijablu pctCompl. Drugi kodni redak zapisuje vrijednost varijable pctCompl i neki opisni tekst u statusnu traku.
pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = "Uvoz podataka …" & pctCompl & "% dovršeno"
Primjer: Za i = 3, j = 1, (3 - 1) * 5 + (1 * 1) = 11% je dovršeno.
5. Za simulaciju dugotrajne makronaredbe koristimo metodu Wait objekta Application.
Aplikacija. Čekajte sada + TimeValue ("00:00:01")
6. Za vraćanje zadanog teksta statusne trake postavite svojstvo StatusBar na Netačno (izvan petlje).
Application.StatusBar = Netačno
Rezultat kada pritisnete naredbeni gumb na listu:
Napomena: Makronaredbu možete prekinuti u bilo kojem trenutku pritiskom na Esc ili Ctrl + Break. Za vizualniji pristup pogledajte naš program Pokazatelja napretka.
