Excel VBA traka napretka u programu Excel
Traka napretka je nešto što nam pokazuje koliko je procesa učinjeno ili završeno kada pokrenemo velike skupove kodova koji zahtijevaju veće vrijeme za izvršenje. Koristimo traku napretka u VBA da pokažemo korisniku o statusu procesa ili ako imamo više procesa koji se izvode u jednom kodu koristimo traku napretka da pokažemo koji je proces koliko napredovao.
Traka napretka prikazuje postotak izvršenih zadataka kada se stvarni zadatak izvodi iza zaslona sa skupom uputa danih kodom.
Kada VBA kodu treba znatno vrijeme za izvršenje, muka je korisnika znati koliko brzo može završiti. Prema zadanim postavkama trebamo pričekati puno vrijeme da dovršimo zadatak, ali umetanjem trake napretka upoznajemo napredak VBA koda.
U gotovo cijelom računalnom softveru vidimo trakasti grafikon napretka koji prikazuje napredak zadatka koji izvršavamo, baš kao i donja slika.
U Excelu možemo stvoriti traku napretka pomoću VBA kodiranja. Ako ste se ikad pitali kako možemo stvoriti traku napretka, onda je ovo članak prilagođen vama.
Izradite vlastitu traku napretka
Da bismo stvorili traku napretka, moramo slijediti nekoliko koraka. Ispod su koraci koje treba uključiti tijekom izrade trakastog grafikona napretka.
Korak 1: Stvorite ili umetnite novi obrazac za korisnika.
Čim kliknete gornju opciju, vidjet ćete korisnički obrazac poput dolje navedenog.
Korak 2: Pritisnite tipku F4 da biste vidjeli prozor VBA svojstava.
Na ovoj kartici svojstava moramo promijeniti svojstva VBA korisničkog obrasca koji smo umetnuli.
Korak 3: Promijenite ime korisničkog obrasca u UFProgressBar.
Sada ovaj korisnički obrazac možemo referencirati s imenom "UFProgressBar" tijekom kodiranja.
Korak 4: Promijenite svojstvo prikaza modela korisničkog obrasca u FALSE.
Korak 5: Sada prilagodite poravnanje korisnika prema vašim potrebama. Promijenio sam Visinu korisničkog obrasca na 120 i širinu na 300.
Korak 6: Promijenite naslov korisničkog obrasca u "Traka statusa napretka".
Korak 7: Sada iz okvira s alatima korisničkog obrasca umetnite LABEL u korisnički obrazac na vrhu.
S ovom naljepnicom moramo postaviti svojstva naljepnice. Izbrišite naslov i učinite ga praznim te prilagodite širinu naljepnice.
Korak 8: Promijenite naziv naljepnice u "ProgessLabel."
Korak 9: Sada iz okvira s alatima uzmite okvir i nacrtajte odmah ispod naljepnice koju smo umetnuli u prethodnim koracima. Provjerite je li okvir u središtu korisničkog obrasca.
Korak 10: Sada moramo promijeniti neka svojstva okvira kako bi izgledao potpuno isto kao korisnički obrazac koji smo umetnuli.
Svojstvo 1: Promijenite naziv okvira u "ProgressFrame".
Svojstvo 2: Izbrišite naslov i učinite ga praznim.
Svojstvo 3: Promijenite specijalni efekt okvira na 6 - fmSpecialEffectBump.
Nakon svih ovih promjena, naš korisnički obrazac trebao bi izgledati ovako.
11. korak: Sada umetnite još jednu naljepnicu. Ovaj put naljepnicu umetnite samo u okvir koji smo umetnuli.
Tijekom umetanja naljepnice, pazite da lijeva strana naljepnice točno odgovara okviru koji smo umetnuli, kao što je prikazano na gornjoj slici.
Korak 12: Nakon umetanja naljepnice promijenite svojstva naljepnice kako slijedi.
Svojstvo 1: Promijenite naziv naljepnice u "MainProgressLabel."
Svojstvo 2: Izbrišite naslov.
Svojstvo 3: Promijenite boju pozadine prema vašoj želji.
U redu, sada smo završili s postupkom postavljanja trake napretka i u ovom trenutku to izgleda ovako.
Sada moramo unijeti kodove da bi ovo savršeno funkcioniralo.
Korak 13: Da biste napravili okvir, dodajte donju makronaredbu u excel.
Kodirati:
Sub InitUFProgressBarBar () S UFProgressBar .Bar.Width = 0 .Text.Caption = "0%". Prikaži vbModeless End With
Ako ovaj kod pokrenete ručno ili preko tipke F5, trebali bismo vidjeti ovakvu traku napretka.
Korak 14: Sada moramo stvoriti makronaredbu da bismo izvršili svoj zadatak. Izvodim zadatak umetanja serijskih brojeva od 1 do 5000. Zajedno s ovim kodom, moramo konfigurirati i trakasti grafikon napretka,. Thew kôd je kôd po mjeri za vas.
Kodirati:
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 / 2500 BarWidar = i / 2500 BarPidard Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete" DoEPopgress iBearPeProgressBressParcenterBarPercentage & "% Complete" DoEPopop iBarPeProgressBressPress
