Vrstica napredka programa Excel VBA v Excelu
Vrstica napredka je nekaj, kar nam pokaže, koliko procesa je bilo narejenega ali končanega, ko zaženemo velike nabore kod, ki zahtevajo več časa za izvedbo. Vrstico napredka v VBA uporabniku prikažemo o stanju procesa ali če če se v eni kodi izvaja več procesov, s pomočjo vrstice napredovanja pokažemo, kateri proces je koliko napredoval.
Vrstica napredka prikazuje odstotek opravljenih nalog, ko se dejanska naloga izvaja za zaslonom, z nizom navodil, ki jih daje koda.
Ko za izvedbo kode VBA potrebujejo precej časa, je skrb uporabnika, da ve, kako hitro lahko konča. Privzeto moramo počakati na polni čas, da dokončamo nalogo, vendar z vstavitvijo vrstice napredka spoznamo napredek kode VBA.
Skoraj v celotni računalniški programski opremi vidimo grafikon napredovanja, ki prikazuje potek naloge, ki jo izvajamo, tako kot spodnja slika.
V Excelu lahko z uporabo kodiranja VBA ustvarimo vrstico napredka. Če ste se kdaj vprašali, kako lahko ustvarimo vrstico napredka, potem je to članek, prilagojen vam.
Ustvarite svojo vrstico napredka
Če želimo ustvariti vrstico napredovanja, moramo slediti več korakom. Spodaj so navedeni koraki, ki jih je treba vključiti med ustvarjanjem diagrama poteka.
1. korak: ustvarite ali vstavite nov uporabniški obrazec.
Takoj, ko kliknete zgornjo možnost, boste videli uporabniški obrazec, kot je spodaj.
2. korak: Pritisnite tipko F4, da se prikaže okno lastnosti VBA.
Na tem zavihku lastnosti moramo spremeniti lastnosti uporabniškega obrazca VBA, ki smo ga vstavili.
3. korak: Spremenite ime uporabniškega obrazca v UFProgressBar.
Zdaj lahko ta uporabniški obrazec pri kodiranju napotimo z imenom "UFProgressBar".
4. korak: Spremenite lastnosti lastnosti modela uporabniškega obrazca na FALSE.
5. korak: Zdaj prilagodite poravnavo uporabnika glede na vaše potrebe. Spremenil sem višino uporabniškega obrazca na 120 in širino na 300.
6. korak: Spremenite napis uporabniškega obrazca v »Vrstica stanja napredka«.
7. korak: Zdaj v orodjarni uporabniškega obrazca vstavite LABEL v uporabniški obrazec na vrhu.
S to nalepko moramo nastaviti lastnosti nalepke. Izbrišite napis in ga naredite prazen ter prilagodite širino nalepke.
8. korak: Spremenite ime nalepke v »ProgessLabel«.
9. korak: Zdaj iz orodjarne vzemite okvir in narišite tik pod nalepko, ki smo jo vstavili v prejšnjih korakih. Prepričajte se, da je okvir v središču uporabniškega obrazca.
10. korak: Zdaj moramo spremeniti nekatere lastnosti okvira, da bo videti popolnoma enako kot uporabniški obrazec, ki smo ga vstavili.
Lastnost 1: Spremenite ime okvira v »ProgressFrame«.
Lastnost 2: Izbrišite napis in ga naredite prazen.
Lastnost 3: spremenite posebni učinek okvirja na 6 - fmSpecialEffectBump.
Po vseh teh spremembah bi moral biti naš uporabniški obrazec videti tako.
11. korak: Zdaj vstavite še eno nalepko. Tokrat nalepko vstavimo tik v okvir, ki smo ga vstavili.
Med vstavljanjem nalepke se prepričajte, da leva stran nalepke natančno ustreza okvirju, ki smo ga vstavili, kot je prikazano na zgornji sliki.
12. korak: Po vstavitvi nalepke spremenite lastnosti nalepke, kot sledi.
Lastnost 1: spremenite ime nalepke v »MainProgressLabel«.
Lastnost 2: Izbrišite napis.
Lastnost 3: Spremenite barvo ozadja po svoji želji.
Ok, zdaj smo končali s postopkom nastavljanja vrstice napredka in v tem trenutku je videti tako.
Zdaj moramo vnesti kode, da bo to popolnoma delovalo.
Korak 13: Če želite, da ogrodje doda spodnji makro v excel.
Koda:
Sub InitUFProgressBarBar () Z UFProgressBar .Bar.Width = 0 .Text.Caption = "0%". Pokaži vbModeless End with
Če zaženete to kodo ročno ali s tipko F5, bi morali videti vrstico napredka, kot je ta.
14. korak: Zdaj moramo ustvariti makro za izvajanje naše naloge. Izvajam nalogo vstavljanja serijskih številk od 1 do 5000. Skupaj s to kodo moramo konfigurirati tudi stolpčni grafikon napredovanja,. Koda thew je za vas prilagojena koda.
Koda:
Sub ProgressBar_Chart () Dim i As Long Dim CurrentUFProgressBar As Double Dim UFProgressBarPercentage As Double Dim BarWidth As Long i = 1 Call InitUFProgressBarBar Do While i <= 5500 Cells (i, 1) .Value = i CurrentUFProgressBar = i / 2500FParWidar = i / 2500 BarWidarB. Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Okrogla (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete" DoEPondoB iPeProperBressParcenterBar.Percentage & "% Complete" DoEPop IgreBarPerProgressB iperF
