Excel VBA folyamatjelző sáv az Excelben
A Progress Bar olyan elem, amely megmutatja, hogy mekkora folyamatot hajtottunk végre vagy fejeztünk be, amikor nagy kódkészleteket futtattunk, amelyek végrehajtásához nagyobb időre van szükség Ha több folyamat fut egyetlen kódban, akkor az előrehaladási sáv segítségével megmutatjuk, melyik folyamat mennyit haladt előre.
A folyamatjelző sáv mutatja a befejezett feladatok százalékos arányát, amikor a tényleges feladat fut a képernyő mögött, a kód által adott utasításokkal.
Amikor a VBA kód végrehajtása jelentős időt vesz igénybe, a felhasználó aggodalmát fejezi ki, hogy milyen gyorsan fejeződhet be. Alapértelmezés szerint a teljes időre várni kell a feladat elvégzéséhez, de az előrehaladási sáv beillesztésével megismerjük a VBA kód előrehaladását.
Szinte az összes számítógépes szoftverben látunk egy előrehaladási sávdiagramot, amely az elvégzett feladat előrehaladását mutatja, akárcsak az alábbi kép.
Kiválóan létrehozhatjuk a Haladássávot VBA kódolással. Ha elgondolkodott már azon, hogy miként hozhatunk létre előrehaladási sávot, akkor ez a cikk az Ön számára készült.
Készítse el saját haladássávját
A folyamatjelző sáv létrehozásához több lépést kell követnünk. Az alábbiakban bemutatjuk azokat a lépéseket, amelyeket a folyamatjelző diagram létrehozása során be kell vonni.
1. lépés: Hozzon létre vagy helyezzen be új felhasználói űrlapot.
Amint rákattint a fenti lehetőségre, megjelenik az alábbihoz hasonló felhasználói űrlap.
2. lépés: Nyomja meg az F4 billentyűt a VBA tulajdonságok ablakának megtekintéséhez.
Ezen a tulajdonságok fülön meg kell változtatnunk a beillesztett VBA Userform tulajdonságait.
3. lépés: Változtassa meg a felhasználói űrlap nevét UFProgressBar-ra.
Most kódolás közben hivatkozhatunk erre a felhasználói űrlapra az „UFProgressBar” névvel.
4. lépés: Módosítsa a felhasználói űrlap Modelltulajdonságának megjelenítése HAMIS értékre.
5. lépés: Most állítsa be a felhasználó igazítását az igényeinek megfelelően. A felhasználói űrlap magasságát 120-ra, szélességét 300-ra változtattam.
6. lépés: Változtassa meg a felhasználói űrlap feliratát „Haladás állapotsor” -ra.
7. lépés: Most a felhasználói űrlap eszköztárából illessze be a LABEL elemet a tetején lévő felhasználói űrlapba.
Ezzel a címkével meg kell adnunk a címke tulajdonságait. Törölje a feliratot, tegye üresé, és állítsa be a címke szélességét.
8. lépés: Változtassa meg a címke nevét „ProgessLabel” -re.
9. lépés: Most az eszköztárból vegye ki a keretet, és rajzoljon közvetlenül az előző lépésekben beillesztett címke alá. Győződjön meg arról, hogy a keret a felhasználói űrlap közepén van.
10. lépés: Most meg kell változtatnunk a keret néhány tulajdonságát, hogy pontosan ugyanúgy nézzen ki, mint a beillesztett felhasználói űrlap.
1. tulajdonság: Változtassa meg a keret nevét „ProgressFrame” értékre.
2. tulajdonság: Törölje a feliratot, és tegye üresé.
3. tulajdonság: Változtassa a keret speciális effektusát 6-ra - fmSpecialEffectBump.
Mindezen változtatások után a felhasználói űrlapunknak így kell kinéznie.
11. lépés: Most helyezzen be még egy címkét. Ezúttal csak a beillesztett keretbe illessze be a címkét.
A címke behelyezése közben ellenőrizze, hogy a címke bal oldala pontosan illeszkedik-e a beillesztett keretbe, amint az a fenti képen látható.
12. lépés: A címke behelyezése után változtassa meg a címke tulajdonságait az alábbiak szerint.
1. tulajdonság: Módosítsa a címke nevét „MainProgressLabel” -re.
2. tulajdonság: Törölje a feliratot.
3. tulajdonság: Változtassa meg a háttér színét kívánsága szerint.
Ok, most végeztünk a haladási sáv felállításának folyamatával, és ebben a pillanatban ez így néz ki.
Most kódokat kell megadnunk, hogy ez tökéletesen működjön.
13. lépés: A keretrendszer elkészítéséhez adja hozzá az alábbi makrót az excelben.
Kód:
Sub InitUFProgressBarBar () With UFProgressBar .Bar.Width = 0 .Text.Caption = "0%" .Show vbModeless End With
Most, ha ezt a kódot manuálisan vagy az F5 kulcson futtatja, akkor látnunk kell a folyamatjelző sávot.
14. lépés: Most létre kell hoznunk egy makrót a feladatunk elvégzéséhez. 1 és 5000 közötti sorszámok beszúrását végzem. Ezzel a kóddal együtt be kell állítanunk az előrehaladási sáv diagramot is. A Thew kód személyre szabott kód az Ön számára.
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 Cell (i, 1). Érték = 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 +
