Hogyan hozzunk létre folyamatjelző sávot VBA-ban

A számítógépes alkalmazásokban folyamatjelző sáv jelzi a művelet előrehaladását. Ez általában egy téglalap, amely a művelet előrehaladtával animált. A Visual Basic for Applications vagy a VBA egy számítógépes programozási nyelv, amelyet a Microsoft Office alkalmazásokban használnak a rutinfeladatok automatizálására és felhasználói felületek létrehozására. Könnyen létrehozhat folyamatjelző sávot a VBA használatával a Microsoft Office Excelben. Az Excel egy táblázatkezelő alkalmazás, amely a Microsoft Office programcsomag része.

1. lépés

Nyissa meg a Microsoft Office Excelt, majd nyomja meg az "Alt" és az "F11" billentyűket a Visual Basic Editor megnyitásához. Kattintson a jobb gombbal a "VBAProject" elemre, majd kattintson a "UserForm" elemre egy új űrlap beszúrásához. Az „Eszköztár” menüben kattintson a „Címke” lehetőségre. Miközben lenyomva tartja az egérgombot, húzza át az űrlapot egy új címkevezérlő létrehozásához.

2. lépés

Kattintson a jobb gombbal a címkére, és válassza a „Tulajdonságok” lehetőséget, majd módosítsa a „Magasság” értéket 42-re, a „Szélesség” értéket pedig 12-re. Módosítsa a „Felső” értéket 12-re. Hozzon létre további kilenc címkét ugyanezzel az eljárással.

3. lépés

Kattintson a "CommandButton" gombra az "Eszköztár" panelen, és adjon hozzá egy új gombot az űrlaphoz. Kattintson a jobb gombbal a "CommandButton" elemre, majd kattintson a "Kód megtekintése" gombra egy új eljárás létrehozásához.

4. lépés

Új változó létrehozásához és értékének meghatározásához írja be a következőt:

Dim cnt As Integer cnt =0

5. lépés

Írja be a következőket az összes címke elrejtéséhez az űrlap indításakor:

Me.Label1.Vissible =False Me.Label2.Vissible =False Me.Label3.Vissible =False Me.Label4.Visible =False Me.Label5.Visible =False Me.Label6.Visible =False Me.Label7.Vissible =False Me. .Label8.Visible =False Me.Label9.Vissible =False Me.Label10.Vissible =Hamis

6. lépés

Gépelje be a következőt egy while ciklus létrehozásához, és ismételje meg 10-szer, miközben 5 másodpercre szünetelteti a kódot:

Do While cnt <> 10

Select Case cnt
 Case Is = 1
 Me.Label1.Visible = True
 Me.Label1.BackColor = vbBlue
 Case Is = 2
 Me.Label2.Visible = True
 Me.Label2.BackColor = vbBlue

 Case Is = 3
 Me.Label3.Visible = True
 Me.Label3.BackColor = vbBlue

 Case Is = 4
 Me.Label4.Visible = True
 Me.Label4.BackColor = vbBlue

 Case Is = 5
 Me.Label5.Visible = True
 Me.Label5.BackColor = vbBlue

 Case Is = 6
 Me.Label6.Visible = True
 Me.Label6.BackColor = vbBlue

 Case Is = 7
 Me.Label7.Visible = True
 Me.Label7.BackColor = vbBlue

 Case Is = 8
 Me.Label8.Visible = True
 Me.Label8.BackColor = vbBlue

 Case Is = 9
 Me.Label9.Visible = True
 Me.Label9.BackColor = vbBlue

 Case Is = 10
 Me.Label10.Visible = True
 Me.Label10.BackColor = vbBlue


End Select
Me.Repaint

Application.Wait Now + TimeValue("00:00:05")

cnt =cnt + 1

Hurok

7. lépés

Kattintson a "Beszúrás" menüre, majd kattintson a "Modul" gombra új modul hozzáadásához. Másolja és illessze be az alábbi kódot a „UserForm1” elindításához:

Sub showProgressBar() UserForm1.Show End Sub

Nyomja meg az „F5” gombot a program futtatásához.