photosdematures.com

Excel VBA Progress Bar sa Excel

Progress Bar ay isang bagay na ipinapakita sa amin kung magkano sa isang proseso ang nagawa o natapos kapag nagpatakbo kami ng malalaking hanay ng mga code na nangangailangan ng mas malaking oras upang maipatupad ginagamit namin ang progress bar sa VBA upang ipakita sa gumagamit ang tungkol sa katayuan ng proseso, o kung mayroon kaming maraming mga proseso na tumatakbo sa isang solong code na ginagamit namin ang progress bar upang maipakita kung aling proseso ang umunlad kung magkano.

Ipinapakita ng isang progress bar ang porsyento ng mga gawain na nakumpleto kapag ang aktwal na gawain na tumatakbo sa likod ng screen na may isang hanay ng mga tagubilin na ibinigay ng code.

Kapag ang VBA code ay tumatagal ng sapat na oras upang maipatupad, pagkabalisa ng gumagamit na malaman kung gaano ito katatapos. Bilang default, kailangan nating maghintay para sa buong oras upang makumpleto ang gawain ngunit sa pamamagitan ng pagpasok ng progress bar nalalaman namin ang pag-usad ng VBA code.

Sa halos lahat ng software ng computer nakikita namin ang isang tsart ng bar ng pag-usad na nagpapakita ng pag-usad ng gawaing ginagawa namin tulad ng imaheng nasa ibaba.

Sa excel sa maaari kaming lumikha ng Progress Bar sa pamamagitan ng paggamit ng VBA coding. Kung naisip mo kung paano kami makakalikha ng isang progress bar kung gayon ito ang artikulong ginawa para sa iyo.

Maaari mong i-download ang VBA Progress Bar Template na ito dito - VBA Progress Bar Template

Lumikha ng Iyong Sariling Progress Bar

Upang makalikha ng isang progress bar, kailangan naming sundin ang maraming mga hakbang. Nasa ibaba ang mga hakbang upang maisangkot habang nilikha ang tsart ng pag-usad ng bar.

Hakbang 1: Lumikha o Magsingit ng isang bagong form ng User.

Sa sandaling mag-click ka sa pagpipilian sa itaas makikita mo ang isang form ng gumagamit tulad ng nasa ibaba.

Hakbang 2: Pindutin F4 susi upang makita ang window ng mga katangian ng VBA.

Sa tab na mga pag-aari, kailangan naming baguhin ang mga pag-aari ng naipasok naming form ng VBA.

Hakbang 3: Palitan ang pangalan ng form ng gumagamit sa UFProgressBar.

Ngayon ay maaari naming i-refer ang form ng gumagamit na ito na may pangalang "UFProgressBar" habang naka-coding.

Hakbang 4: Baguhin ang Ipakita ang Modelong Pag-aari ng form ng gumagamit sa FALSE.

Hakbang 5: Ngayon ayusin ang pagkakahanay ng gumagamit mula upang magkasya ang iyong mga pangangailangan. Binago ko ang Taas ng form ng gumagamit sa 120 at ang lapad ay 300.

Hakbang 6: Baguhin ang Caption ng form ng gumagamit sa "Progress Status Bar".

Hakbang 7: Ngayon mula sa toolbox ng form ng gumagamit ipasok ang LABEL sa form ng gumagamit sa itaas.

Sa label na ito, kailangan naming itakda ang mga katangian ng label. Tanggalin ang caption at gawing blangko ito at ayusin ang lapad ng label.

Hakbang 8: Palitan ang Pangalan ng label na "ProgessLabel".

Hakbang 9: Ngayon mula sa toolbox kunin ang frame at gumuhit sa ibaba lamang ng label na naipasok namin sa mga nakaraang hakbang. Tiyaking ang frame ay nasa gitna ng form ng gumagamit.

Hakbang 10: Ngayon kailangan naming baguhin ang ilan sa mga pag-aari ng Frame upang magmukhang eksaktong kapareho ng form ng gumagamit na naipasok namin.

Pag-aari 1: Palitan ang Pangalan ng frame sa "ProgressFrame".

Pag-aari 2: Tanggalin ang caption at gawing blangko ito.

Pag-aari 3: Palitan ang Espesyal na Epekto ng frame sa 6 - fmSpesyalEffectBump.

Matapos ang lahat ng mga pagbabagong ito ay dapat ganito ang hitsura ng aming form ng gumagamit.

Hakbang 11: Ipasok ngayon ang isa pang label. Sa oras na ito ipasok ang label sa loob lamang ng frame na aming naipasok.

Habang pinapasok ang label siguraduhin na ang kaliwang bahagi ng label ay eksaktong akma sa frame na aming naipasok tulad ng ipinakita sa imahe sa itaas.

Hakbang 12: Matapos ipasok ang label baguhin ang mga katangian ng label tulad ng sumusunod.

Pag-aari 1: Palitan ang pangalan ng label na "MainProgressLabel".

Pag-aari 2: Tanggalin ang caption.

Pag-aari 3: Baguhin ang kulay ng background ayon sa iyong nais.

Ok, ngayon tapos na kami sa proseso ng pag-set up ng progress bar at sa puntong ito ng oras, ganito ang hitsura nito.

Ngayon kailangan naming maglagay ng mga code upang maisagawa ito nang perpekto.

Hakbang 13: Upang gawing idagdag ang balangkas sa ibaba ng macro sa excel.

Code:

 Sub InitUFProgressBarBar () Sa UFProgressBar .Bar.Width = 0. Text.Caption = "0%". Ipakita ang vbModeless End With 

Tandaan: Ang "UFProgressBar" ay ang pangalan na ibinigay sa Form ng Gumagamit at ang "Bar" ay ang pangalan na ibinigay sa frame na nilikha namin at "Text" ang tawag sa label sa loob ng Frame.

Ngayon kung patakbuhin mo ang code na ito nang manu-mano o sa pamamagitan ng F5 key, dapat naming makita ang progress bar na tulad nito.

Hakbang 14: Ngayon kailangan naming lumikha ng isang macro upang maisagawa ang aming gawain. Ginagawa ko ang gawain ng pagpasok ng mga serial number mula 1 hanggang 5000. Kasabay ng code na ito, kailangan naming i-configure din ang tsart ng progress bar, sa ibaba ng code ang pinasadya ng code para sa iyo.

Code:

 Sub ProgressBar_Chart () Dim i Bilang Long Dim KasalukuyangUFProgressBar Bilang Double Dim UFProgressBarPercentage Bilang Double Dim BarWidth As Long i = 1 Call InitUFProgressBarBar Do While i <= 5500 Cells (i, 1) .Value = i CurrentUFProgressBar = i / 2500 BarWidth = UFProgressar Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage at "% Kumpletong" DoEvents i = i + 1 LoB Unload Subload