Excel VBA StatusBar īpašums

The StatusBar īpašums no objekta Lietojumprogramma Excel VBA var izmantot, lai norādītu uz ilgstošu makro progresu. Šādā veidā jūs varat ļaut lietotājam zināt, ka makro joprojām darbojas.

Situācija:

Makro, kuru mēs izveidosim, lai izveidotu diapazonu ("A1: E20") ar izlases skaitļiem.

Komandas pogai pievienojiet šādas koda rindiņas:

1. Pirmkārt, mēs deklarējam trīs mainīgā lieluma tipu Integer ar nosaukumu i, j un pctCompl.

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

2. Pievienojiet dubultu loku.

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

Next j
Next i

Pievienojiet ciklam šādas koda līnijas (3, 4 un 5).

3. Izmantojiet funkciju RandBetween, lai importētu izlases numuru no 20 līdz 100.

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

4. Inicializējiet mainīgo pctCompl. Otrajā koda rindiņā tiek rakstīta mainīgā pctCompl vērtība un daži aprakstošie teksti statusa joslā.

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

Piemērs: ja i = 3, j = 1, (3 - 1) * 5 + (1 * 1) = 11% ir pabeigts.

5. Lai simulētu garu makro, mēs izmantojam objektu Lietojumprogramma Wait metodi.

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

6. Lai atjaunotu noklusējuma statusa joslas tekstu, iestatiet StatusBar īpašumu uz False (ārpus cilpas).

Application.StatusBar = False

Rezultāts, noklikšķinot uz komandas pogas lapā:

Piezīme. Jūs varat pārtraukt makro jebkurā brīdī, nospiežot Esc vai Ctrl + Break. Lai iegūtu vizuālu pieeju, skatiet mūsu progresa rādītāju programmu.