Bara de progres Excel VBA în Excel
Bara de progres este ceva care ne arată cât de mult a fost realizat sau terminat un proces atunci când rulăm seturi mari de coduri care necesită timp mai mare pentru executare, folosim bara de progres în VBA pentru a arăta utilizatorului starea procesului sau au mai multe procese care rulează într-un singur cod, folosim bara de progres pentru a arăta ce proces a progresat cât de mult.
O bară de progres arată procentul de sarcini finalizate atunci când sarcina reală rulează în spatele ecranului cu un set de instrucțiuni date de cod.
Când codul VBA durează o perioadă considerabilă de timp pentru a se executa, este îngrijorat de utilizator să știe cât de curând poate termina. În mod implicit, trebuie să așteptăm timpul complet pentru a finaliza sarcina, dar prin inserarea barei de progres, vom cunoaște progresul codului VBA.
În aproape toate software-urile computerului, vedem o diagramă cu bare de progres care arată progresul sarcinii pe care o executăm la fel ca în imaginea de mai jos.
În Excel to putem crea bara de progres utilizând codarea VBA. Dacă v-ați întrebat vreodată cum putem crea o bară de progres, atunci acesta este articolul personalizat pentru dvs.
Creați-vă propria bară de progres
Pentru a crea o bară de progres, trebuie să urmăm câțiva pași. Mai jos sunt pașii care trebuie implicați în timpul creării diagramei cu bare de progres.
Pasul 1: Creați sau inserați un nou formular de utilizator.
De îndată ce faceți clic pe opțiunea de mai sus, veți vedea un formular de utilizator ca cel de mai jos.
Pasul 2: Apăsați tasta F4 pentru a vedea fereastra de proprietăți VBA.
În această filă de proprietăți, trebuie să schimbăm proprietățile formularului de utilizator VBA pe care l-am inserat.
Pasul 3: Schimbați numele formularului de utilizator în UFProgressBar.
Acum putem consulta acest formular de utilizator cu numele „UFProgressBar” în timp ce codăm.
Pasul 4: Schimbați Afișarea proprietății modelului formularului de utilizator la FALS.
Pasul 5: acum, ajustați alinierea utilizatorului pentru a se potrivi nevoilor dvs. Am schimbat Înălțimea formularului de utilizator la 120 și lățimea la 300.
Pasul 6: schimbați legenda formularului de utilizator la „Bara de stare a progresului”.
Pasul 7: Acum, din caseta de instrumente a formularului de utilizator, introduceți LABEL în formularul de utilizator din partea de sus.
Cu această etichetă, trebuie să setăm proprietățile etichetei. Ștergeți subtitrarea și lăsați-o necompletată și reglați lățimea etichetei.
Pasul 8: Schimbați numele etichetei în „ProgessLabel”.
Pasul 9: Acum, din caseta de instrumente, luați cadrul și desenați chiar sub eticheta pe care am inserat-o în pașii anteriori. Asigurați-vă că cadrul se află în centrul formularului de utilizator.
Pasul 10: Acum, trebuie să schimbăm unele dintre proprietățile cadrului pentru a face să arate exact la fel ca formularul de utilizator pe care l-am inserat.
Proprietatea 1: schimbați numele cadrului în „ProgressFrame”.
Proprietatea 2: ștergeți legenda și lăsați-o necompletată.
Proprietatea 3: schimbați efectul special al cadrului la 6 - fmSpecialEffectBump.
După toate aceste modificări, formularul nostru de utilizator ar trebui să arate astfel.
Pasul 11: Introduceți încă o etichetă. De această dată introduceți eticheta chiar în cadrul pe care l-am inserat.
În timp ce introduceți eticheta, asigurați-vă că partea stângă a etichetei se potrivește exact cu cadrul pe care l-am inserat, așa cum se arată în imaginea de mai sus.
Pasul 12: După introducerea etichetei, modificați proprietățile etichetei după cum urmează.
Proprietatea 1: schimbați numele etichetei în „MainProgressLabel”.
Proprietatea 2: ștergeți subtitrarea.
Proprietatea 3: Schimbați culoarea de fundal conform dorinței dvs.
Ok, acum am terminat procesul de configurare a barei de progres și, în acest moment, arată așa.
Acum trebuie să introducem coduri pentru a face acest lucru să funcționeze perfect.
Pasul 13: Pentru a face cadrul să adăugați macro-ul de mai jos în Excel.
Cod:
Sub InitUFProgressBarBar () With UFProgressBar .Bar.Width = 0 .Text.Caption = "0%" .Show vbModeless End With
Acum, dacă rulați acest cod manual sau prin intermediul tastei F5, ar trebui să vedem bara de progres astfel.
Pasul 14: Acum, trebuie să creăm o macro pentru a ne îndeplini sarcina. Realizez sarcina de a insera numere de serie de la 1 la 5000. Împreună cu acest cod, trebuie să configurăm și diagrama cu bare de progres,. Thew code este codul personalizat pentru dvs.
Cod:
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 BarWidth Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Rundă (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete"
