300 Piemēri

Statusa josla

Statusbar

The StatusBar īpašums no lietojumprogrammas objekta Excel VBA var izmantot, lai norādītu garas makro gaitu. Tādā veidā jūs varat informēt lietotāju, ka makro joprojām darbojas.



Situācija:

izveidot Excel joslu diagrammu

Makro, kuru mēs izveidosim, aizpilda diapazonu ('A1: E20') ar nejaušiem skaitļiem.





Excel VBA StatusBar rekvizītu piemērs

Komandas pogai pievienojiet šādas koda rindiņas:



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

Navi Vesels skaitlis, j Vesels skaitlis, pctCompl Vesels skaitlis

2. Pievienojiet a Dubultā cilpa .

Priekši = 1Uzdivdesmit
Priekšj = 1Uz5

Nākamaisj
Nākamaisi

Pievienojiet cilpai šādas koda rindiņas (pie 3., 4. un 5.).

3. Izmantojiet funkciju RandBetween, lai importētu nejaušu skaitli no 20 līdz 100.

Šūnas (i, j). Vērtība = WorksheetFunction.RandBetween (20, 100)

4. Inicializējiet mainīgo pctCompl. Otrā koda rindiņa statusa joslā raksta mainīgā pctCompl vērtību un kādu aprakstošu tekstu.

pctCompl = (i - 1) * 5 + (j * 1)
Application.StatusBar = 'Importē datus ..' & pctCompl & '% Pabeigts'

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

5. Mēs izmantojam lietojumprogrammas objekta Wait metodi, lai modelētu garu makro.

Lietojumprogramma. Gaidiet tūlīt + TimeValue ('00: 00: 01')

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

formula, lai aprēķinātu vecumu no dzimšanas dienas
Lietojumprogramma.StatusBar =Nepatiess

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

Excel VBA StatusBar rekvizītu rezultāts

Piezīme: Jūs varat pārtraukt makro jebkurā laikā, nospiežot Esc vai Ctrl + Break. Lai iegūtu vizuālāku pieeju, skatiet mūsu Progresa indikators programmu.

2/4 Pabeigts! Uzziniet vairāk par lietojumprogrammas objektu>
Doties uz nākamo nodaļu: ActiveX vadīklas



^