Excel VBA progresa josla programmā Excel
Progresa josla ir kaut kas tāds, kas mums parāda, cik daudz procesa ir paveikts vai pabeigts, kad palaižam lielus kodu komplektus, kuru izpildei nepieciešams ilgāks laiks. Mēs izmantojam progresa joslu VBA, lai parādītu lietotājam procesa statusu vai ja mēs ir vairāki procesi, kas darbojas vienā kodā, mēs izmantojam progresa joslu, lai parādītu, kurš process ir progresējis cik daudz.
Progresa joslā tiek parādīts izpildīto uzdevumu procentuālais daudzums, kad faktiskais uzdevums darbojas aiz ekrāna ar kodu sniegtu instrukciju kopu.
Kad VBA koda izpildei nepieciešams ievērojams laiks, lietotāja uztraukums ir zināt, cik ātri tas var tikt pabeigts. Pēc noklusējuma uzdevuma izpildei jāgaida pilns laiks, bet, ievietojot progresa joslu, mēs iepazīsimies ar VBA koda virzību.
Gandrīz visā datora programmatūrā mēs redzam progresa joslu diagrammu, kas parāda veicamā uzdevuma gaitu tāpat kā zemāk redzamais attēls.
Izmantojot Excel, mēs varam izveidot progresa joslu, izmantojot VBA kodēšanu. Ja kādreiz esat domājis, kā mēs varam izveidot progresa joslu, tad šis raksts ir tieši jums izstrādāts.
Izveidojiet savu progresa joslu
Lai izveidotu progresa joslu, mums ir jāveic vairākas darbības. Tālāk ir norādītas darbības, kas jāiesaista, veidojot progresa joslu diagrammu.
1. darbība: izveidojiet vai ievietojiet jaunu lietotāja veidlapu.
Tiklīdz noklikšķināsit uz iepriekš norādītās opcijas, jūs redzēsiet lietotāja veidlapu, piemēram, zemāk.
2. solis: Nospiediet F4 taustiņu, lai redzētu VBA rekvizītu logu.
Šajā cilnē Īpašības mums jāmaina ievietotās VBA Userform īpašības.
3. darbība: mainiet lietotāja veidlapas nosaukumu uz UFProgressBar.
Tagad kodēšanas laikā mēs varam norādīt šo lietotāja veidlapu ar nosaukumu “UFProgressBar”.
4. darbība. Mainiet lietotāja veidlapas Rādīt modeļa rekvizītu uz FALSE.
5. solis: Tagad pielāgojiet lietotāja izlīdzināšanu atbilstoši savām vajadzībām. Esmu mainījis lietotāja veidlapas augstumu uz 120 un platumu uz 300.
6. darbība: mainiet lietotāja veidlapas parakstu uz “Progresa statusa josla”.
7. solis: Tagad no lietotāja veidlapas rīkjoslas augšpusē ievietojiet lietotāja veidlapu LABEL.
Izmantojot šo etiķeti, mums jāiestata etiķetes īpašības. Izdzēsiet parakstu un padariet to tukšu, kā arī pielāgojiet etiķetes platumu.
8. darbība: nomainiet etiķetes nosaukumu uz “ProgessLabel”.
9. solis: Tagad no rīkjoslas paņemiet rāmi un uzzīmējiet tieši zem etiķetes, kuru esam ievietojuši iepriekšējās darbībās. Pārliecinieties, ka rāmis atrodas lietotāja veidlapas centrā.
10. solis: Tagad mums jāmaina daži rāmja rekvizīti, lai tas izskatās tieši tāds pats kā ievietotā lietotāja forma.
1. rekvizīts: mainiet rāmja nosaukumu uz “ProgressFrame”.
2. rekvizīts: izdzēsiet parakstu un padariet to tukšu.
3. rekvizīts: mainiet rāmja īpašo efektu uz 6 - fmSpecialEffectBump.
Pēc visām šīm izmaiņām mūsu lietotāja veidlapai vajadzētu izskatīties šādi.
11. solis: Tagad ievietojiet vēl vienu etiķeti. Šoreiz ievietojiet etiķeti tieši mūsu ievietotā rāmja iekšpusē.
Ievietojot etiķeti, pārliecinieties, ka etiķetes kreisā puse precīzi atbilst mūsu ievietotajam rāmim, kā parādīts iepriekšējā attēlā.
12. solis: Pēc etiķetes ievietošanas mainiet etiķetes īpašības šādi.
1. rekvizīts: nomainiet etiķetes nosaukumu uz “MainProgressLabel”.
2. rekvizīts: dzēsiet parakstu.
3. rekvizīts: mainiet fona krāsu atbilstoši jūsu vēlmēm.
Labi, tagad mēs esam paveikuši progresa joslas iestatīšanas procesu, un šobrīd tas izskatās šādi.
Tagad mums jāievada kodi, lai tas darbotos nevainojami.
13. solis: Lai sistēma izveidotu Excel, pievienojiet zemāk esošo makro.
Kods:
Sub InitUFProgressBarBar () Ar UFProgressBar .Bar.Width = 0 .Text.Caption = "0%". Rādīt vbModeless beigas ar
Tagad, ja jūs palaižat šo kodu manuāli vai caur F5 taustiņu, mums vajadzētu redzēt šādu progresa joslu.
14. solis: Tagad mums ir jāizveido makro, lai veiktu savu uzdevumu. Es veicu uzdevumu ievietot sērijas numurus no 1 līdz 5000. Kopā ar šo kodu mums jākonfigurē arī progresa joslu diagramma. Thew kods ir jums pielāgots kods.
Kods:
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). Vērtība = i CurrentUFProgressBar = i / 2500 BarWidth = U. Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "Complete Complete" DoEvogr i = i + 1
