/ / Excel VBA StatusBar -ominaisuus

Excel VBA StatusBar -ominaisuus

Ja Arvostus kiinteistö Application-objektin Excel VBA voidaan raportoida edistyksestä pitkiä makro.Näin voit kerro käyttäjille, että makro on käynnissä.

Tilanne:

Aiomme luoda makron täyttää Range("A1:E20") satunnaisia numeroita.

Excel VBA StatusBar ominaisuus esimerkki

Lisää komentoriviin seuraavat komentorivit:

1.First, me julistamme kolme muuttujaa tyyppiä Integer, i, j ja pctCompl.

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

2. Lisää kahden silmukan.

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

    Next j
Next i

Lisää seuraava koodi rivit (at 3, 4 ja 5) silmukka.

3. laskenta-toiminnon avulla voit tuoda satunnaisluku väliltä 20 ja 100.

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

4. alusta muuttuva pctCompl.The toisen koodirivi kirjoittaa arvo muuttujan pctCompl ja kuvailevaa tekstiä tilarivillä.

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

Esimerkki: sillä minä = 3, j = 1, (3-1) * 5 (1 * 1) = 11 prosenttia on saatu päätökseen.

5. käytämme Application-objektin odottaa-menetelmä simuloida pitkiä makro.

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

6. Jos haluat palauttaa oletus tilarivin tekstinä, aseta StatusBar-ominaisuuden arvoksi False (ulkopuolella loop).

Application.StatusBar = False

Tulos, kun napsautat arkin komentopainiketta:

Excel VBA StatusBar ominaisuus tulos

Huomautus: Voit keskeyttää makron milloin tahansa painamalla ESC-näppäintä tai Ctrl Break.Enemmän visuaalinen lähestymistapa Tutustu tilanneilmaisimen ohjelmaan.

Lue myös: