Az alábbiakban megnézzük a programot Excel VBA ami létrehozza a haladás jelző. A haladásjelzőt a lehető legegyszerűbben tartottuk, mégis professzionálisnak tűnik. Kész vagy?
Az általunk létrehozandó Userform a következőképpen néz ki:
A Userform létrehozásához hajtsa végre az alábbi lépéseket.
1. Nyissa meg a Visual Basic Editor programot. Ha a Project Explorer nem látható, kattintson a View, Project Explorer elemre.
2. Kattintson a Beszúrás, Userform elemre. Ha az Eszköztár nem jelenik meg automatikusan, kattintson a Nézet, Eszköztár elemre. A képernyőt az alábbiak szerint kell beállítani.
Ez a felhasználói űrlap csak három vezérlőelemből áll. Egy keretvezérlő és két címkevezérlő.
3. Adja hozzá a keretvezérlőt. Ezt az Eszköztár keretére kattintva teheti meg. Ezután húzhat egy keretvezérlőt a Userformon. Meg kell változtatnia a keretvezérlő néhány tulajdonságát. Kattintson a jobb egérgombbal a keretvezérlőre, majd kattintson a Tulajdonságok elemre. Ürítse ki a Felirat mezőt, állítsa a Magasságot 24 -re és Szélességet 204 -re.
4. Adja hozzá az első címkevezérlőt, és helyezze a keretvezérlőbe. Kattintson a jobb egérgombbal a címkevezérlőre, majd kattintson a Tulajdonságok elemre. Változtassa meg a nevet Bar, BackColor értékét Highlight -ra, ürítse ki a Caption mezőt, állítsa a Magasságot 20 -ra és Szélességét 10 -re.
5. Adja hozzá a második címkevezérlőt, és helyezze a keretvezérlő fölé. Kattintson a jobb egérgombbal a címkevezérlőre, majd kattintson a Tulajdonságok elemre. Változtassa meg a nevet Szövegre, és módosítsa a feliratot „0% kész” értékre.
6. Változtassa meg a Userform feliratát Folyamatjelzőre.
Ha ez befejeződött, az eredménynek összhangban kell lennie a Userform korábban bemutatott képével.
7. Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kód sort a Userform megjelenítéséhez:
Privát alparancsButton1_Click ()
UserForm1.Show
End Sub
Ha áttekintette a többi Userform példát ezen a webhelyen, akkor tudja, hogy itt az ideje létrehozni a Felhasználói űrlap_kezdeményezés almenüt. Ez az alprogram automatikusan fut, amikor a Userform betöltődik. Így amikor a Showform módot használja a Userformhoz, a kód automatikusan végrehajtásra kerül. A Sub UserForm_Initialize helyett létrehozjuk a Sub UserForm_Activate alfelületet. Az al használatával az Excel VBA frissítheti a felhasználói űrlapot, hogy megjelenítse a makró előrehaladását.
8. Nyissa meg a Visual Basic Editor programot.
9. A Project Explorerben kattintson a jobb gombbal a UserForm1 elemre, majd kattintson a Kód megtekintése parancsra.
10. Válassza a Userform lehetőséget a bal oldali legördülő listából. Válassza az Aktiválás lehetőséget a jobb oldali legördülő listából.
11. Adja hozzá a következő kód sort:
Privát alfelhasználóForm_Activate ()
kód
End Sub
Magyarázat: ez az al meghív egy másik alnevezett kódot, amelyet egy percen belül létrehozunk. Zavaros? Funkció és alfejezetünkben további információkat tudhat meg a feliratkozókról. Ha siet, hajtsa végre az alábbi lépéseket, és minden rendben lesz.
12. Helyezze az alnevezett kódot egy modulba (A Visual Basic Editorban kattintson a Beszúrás, Modul gombra). Ez csak egy példa. Ez az a hely, ahol saját kódot adhat hozzá, ha ezt a folyamatjelzőt szeretné használni a saját makrójához. A kód a következőképpen néz ki.
Alkód ()
Dim i As Integer, j Mint Integer, pctCompl As Single
1. lap. Sejtek. Tiszta
I = 1 és 100 között
J = 1 és 1000 között
Sejtek (i, 1). Érték = j
Következő j
pctCompl = i
haladás pctCompl
Következő i
End Sub
Magyarázat: először inicializálunk néhány változót. Ezután töröljük a lapot 1. Kettős hurkot használunk az 1 és 1000 közötti értékek megjelenítésére a munkalap első 100 sorában. Ez egy ideig elfoglalja az Excel VBA -t, és lehetőséget ad arra, hogy lássuk a makró előrehaladását. A pctCompl változó (a százalékos befejezés rövidítése) a makró előrehaladását méri. Végül meghívunk egy másik alnevezett haladást, és átadjuk a pctCompl változó értékét a Userform frissítéséhez. Így láthatjuk a makró fejlődését!
13. Adjon hozzá egy másik alnevezett haladást. A kód így néz ki:
Rész előrehaladás (pctCompl as Single)
UserForm1.Text.Caption = pctCompl & "% Completed"
UserForm1.Bar.Width = pctCompl * 2
DoEvents
End Sub
Magyarázat: az első kódsor megváltoztatja az első címkevezérlés feliratát. A második kódsor megváltoztatja a második címkevezérlő szélességét. Adja hozzá a DoEvents alkalmazást a Userform frissítéséhez.
14. Lépjen ki a Visual Basic Editor programból, és kattintson a parancsikonra a lapon:
Eredmény:
Megjegyzés: ehhez a makróhoz az i változót használtuk a haladás mérésére. Például a 11. sorban 10% van kitöltve. Ez a makrónál eltérő lehet. A pctCompl változó értékének továbbítási technikája a felhasználói folyamat frissítése érdekében változatlan marad.
