Csak néhány sornyi kóddal könnyen megtehetjük hurok a vezérlők között egy Excel VBA felhasználói űrlap. 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.
3. Adja hozzá a címkét, a jelölőnégyzeteket (első a tetején, a második az első alatt stb.) És a parancs gombot. Ha ez befejeződött, az eredménynek összhangban kell lennie a Userform korábban bemutatott képével. Például hozzon létre egy jelölőnégyzet -vezérlőt az Eszköztárban található CheckBox elemre kattintva. Ezután húzhat egy jelölőnégyzetet a Userformon.
4. Megváltoztathatja a vezérlők nevét és feliratát. A neveket az Excel VBA kódja használja. A feliratok azok, amelyek megjelennek a képernyőn. Jó gyakorlat a vezérlők nevének megváltoztatása, de itt erre nincs szükség, mert ebben a példában csak néhány vezérlő található. A Userform, a címke, a jelölőnégyzetek és a parancsgomb feliratának megváltoztatásához kattintson a Nézet, Tulajdonságok ablak, majd az egyes vezérlőelemekre.
5. A Userform megjelenítéséhez tegyen egy parancsgombot a munkalapra, és adja hozzá a következő kód sort:
Privát alparancsButton1_Click ()
UserForm1.Show
End Sub
Elkészítettük a Userform első részét. Bár már elegánsnak tűnik, még semmi sem fog történni, ha rákattintunk a Törlés gombra.
6. Nyissa meg a Visual Basic Editor programot.
7. A Project Explorerben kattintson duplán a UserForm1 elemre.
8. Kattintson duplán a Törlés gombra.
9. Adja hozzá a következő kódsorokat:
Privát alparancsButton1_Click ()
Dim contr Vezérlésként
A UserForm1.Controls minden egyes vezérlésére
Ha TypeName (contr) = "CheckBox" Akkor
contr.Value = Hamis
Vége Ha
Következő
End Sub
Magyarázat: Az Excel VBA végigmegy a Userform összes vezérlőjén. A TypeName függvény a jelölőnégyzet vezérlőinek kiszűrésére szolgál. Ha a jelölőnégyzetet vezérli, az Excel VBA eltávolítja a jelölőnégyzet jelölését. A contr itt véletlenszerűen van kiválasztva, bármilyen nevet használhat. Ne felejtse el hivatkozni erre a névre a kód többi részében.
Eredmény, ha a Törlés gombra kattint:
