Indikátor průběhu VBA | Vytvořte sloupcový graf průběhu pomocí kódu VBA

Ukazatel průběhu aplikace Excel VBA v aplikaci Excel

Progress Bar je něco, co nám ukazuje, kolik z procesu bylo provedeno nebo dokončeno, když spustíme velké sady kódů, jejichž provedení vyžaduje delší čas. Pro zobrazení uživatele o stavu procesu používáme indikátor průběhu ve VBA mít více procesů spuštěných v jednom kódu používáme indikátor průběhu, abychom ukázali, který proces o kolik pokročil.

Ukazatel průběhu zobrazuje procento dokončených úkolů, když skutečný úkol běží za obrazovkou se sadou pokynů daných kódem.

Když se spuštění kódu VBA zabere značné množství času, je úzkostí uživatele vědět, jak brzy může skončit. Ve výchozím nastavení musíme na dokončení úkolu počkat na plný úvazek, ale vložením indikátoru průběhu poznáme průběh kódu VBA.

V téměř veškerém počítačovém softwaru vidíme sloupcový graf průběhu, který ukazuje průběh úkolu, který provádíme, stejně jako na následujícím obrázku.

V aplikaci Excel můžeme vytvořit indikátor průběhu pomocí kódování VBA. Pokud jste někdy přemýšleli, jak můžeme vytvořit indikátor průběhu, pak je tento článek šitý na míru vám.

Tuto šablonu pruhu VBA si můžete stáhnout zde - Šablona pruhu VBA

Vytvořte si vlastní ukazatel průběhu

Abychom mohli vytvořit indikátor průběhu, musíme postupovat podle několika kroků. Níže jsou uvedeny kroky, které je třeba zapojit do vytváření sloupcového grafu průběhu.

Krok 1: Vytvořte nebo vložte nový formulář uživatele.

Jakmile kliknete na výše uvedenou možnost, zobrazí se uživatelský formulář jako níže.

Krok 2: Stisknutím klávesy F4 zobrazte okno vlastností VBA.

Na této kartě vlastností musíme změnit vlastnosti vloženého uživatelského formuláře VBA.

Krok 3: Změňte název uživatelského formuláře na UFProgressBar.

Nyní můžeme tento uživatelský formulář při kódování označit názvem „UFProgressBar“.

Krok 4: Změňte vlastnost Zobrazit model formuláře uživatele na FALSE.

Krok 5: Nyní upravte zarovnání uživatele od tak, aby vyhovovalo vašim potřebám. Změnil jsem výšku uživatelského formuláře na 120 a šířku na 300.

Krok 6: Změňte titulek uživatelského formuláře na „Stavový řádek průběhu“.

Krok 7: Nyní z panelu nástrojů uživatelského formuláře vložte LABEL do uživatelského formuláře v horní části.

U tohoto štítku musíme nastavit vlastnosti štítku. Odstraňte titulek, nechte jej prázdný a upravte šířku štítku.

Krok 8: Změňte název štítku na „ProgessLabel“.

Krok 9: Nyní z panelu nástrojů vezměte rám a nakreslete těsně pod štítek, který jsme vložili v předchozích krocích. Ujistěte se, že rámeček je ve středu formuláře uživatele.

Krok 10: Nyní musíme změnit některé vlastnosti rámečku, aby vypadal přesně stejně jako uživatelský formulář, který jsme vložili.

Vlastnost 1: Změňte název rámečku na „ProgressFrame“.

Vlastnost 2: Smažte titulek a nechte jej prázdný.

Vlastnost 3: Změňte speciální efekt rámečku na 6 - fmSpecialEffectBump.

Po všech těchto změnách by měl náš formulář vypadat takto.

Krok 11: Nyní vložte ještě jeden štítek. Tentokrát vložte štítek přímo do rámečku, který jsme vložili.

Při vkládání štítku se ujistěte, že levá strana štítku přesně odpovídá rámečku, který jsme vložili, jak je znázorněno na obrázku výše.

Krok 12: Po vložení štítku změňte vlastnosti štítku následujícím způsobem.

Vlastnost 1: Změňte název štítku na „MainProgressLabel“.

Vlastnost 2: Odstranit titulek.

Vlastnost 3: Změňte barvu pozadí podle svého přání.

Dobře, nyní jsme skončili s procesem nastavování indikátoru průběhu a v tuto chvíli to vypadá takto.

Nyní musíme zadat kódy, aby to perfektně fungovalo.

Krok 13: Chcete-li, aby rámec přidal níže uvedené makro v aplikaci Excel.

Kód:

 Sub InitUFProgressBarBar () s UFProgressBar .Bar.Width = 0 .Text.Caption = "0%". Zobrazit vbModeless Končit s 

Poznámka: „UFProgressBar“ je název pro uživatelský formulář a „Bar“ je název rámečku, který jsme vytvořili, a „Text“ je název pro štítek uvnitř rámečku.

Nyní, pokud tento kód spustíte ručně nebo pomocí klávesy F5, měli bychom vidět takto zobrazený indikátor průběhu.

Krok 14: Nyní musíme vytvořit makro k provedení našeho úkolu. Provádím úkol vkládání sériových čísel od 1 do 5 000. Spolu s tímto kódem musíme nakonfigurovat také sloupcový graf průběhu, níže uvedený kód je pro vás šitý na míru.

Kód:

 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 = UFProgressBar Border.Width * CurrentUFProgressBar UFProgressBarPercentage = Round (CurrentUFProgressBar * 100, 0) UFProgressBar.Bar.Width = BarWidth UFProgressBar.Text.Caption = UFProgressBarPercentage & "% Complete" DoEvents i = i + 1 Loop Unar U 


$config[zx-auto] not found$config[zx-overlay] not found