Az alábbiakban megnézzük a programot Excel VBA amely létrehoz egy Felhasználói űrlapot, amely tartalmazza függő kombinált dobozok. Az általunk létrehozandó Userform a következőképpen néz ki:
A felhasználó a legördülő listából kiválasztja az Állatokat. Ennek eredményeként a felhasználó kiválaszthat egy állatot a második legördülő listából.
A felhasználó a legördülő listából választja a Sport lehetőséget. Ennek eredményeként a felhasználó kiválaszthat egy sportágat a második legördülő listából.
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 kombinált dobozokat (az első a bal oldalon, a második a jobb oldalon) é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 kombinált doboz vezérlőt az Eszköztár ComboBox elemére kattintva. Ezután húzhat egy kombinált mezőt 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 és a parancs gomb feliratának módosításához kattintson a Nézet, Tulajdonságok ablakra, majd kattintson 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
Most létrehozzuk a Sub UserForm_Initialize almenüt. Ha a Showform módot használja a Userformhoz, ez az alprogram automatikusan végrehajtásra kerül.
6. Nyissa meg a Visual Basic Editor programot.
7. A Project Explorerben kattintson jobb gombbal a UserForm1 elemre, majd kattintson a Kód megtekintése parancsra.
8. Válassza a Userform lehetőséget a bal oldali legördülő listából. Válassza az Inicializálás lehetőséget a jobb oldali legördülő listából.
9. Adja hozzá a következő kódsorokat:
Privát alfelhasználóForm_Initialize ()
ComboBox1 -el
.AddItem "Állatok"
.AddItem "Sport"
.AddItem "Élelmiszer"
Vége ezzel
End Sub
Magyarázat: Ezek a kódsorok kitöltik az első kombinált mezőt.
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 kiválasztunk egy elemet az első kombinált mezőből.
10. A Project Explorerben kattintson duplán a UserForm1 elemre.
11. Kattintson duplán az első kombinált mezőre.
12. Adja hozzá a következő kódsorokat:
Privát al -ComboBox1_Change ()
Dim index Mint egész
index = ComboBox1.ListIndex
ComboBox2.Tiszta
Válassza az Esetindex lehetőséget
Eset = 0
ComboBox2 -vel
.AddItem "Kutya"
.AddItem "Cat"
.AddItem "Ló"
Vége ezzel
Eset = 1
ComboBox2 -vel
.AddItem "Tenisz"
.AddItem "Úszás"
.AddItem "Kosárlabda"
Vége ezzel
Eset = 2
ComboBox2 -vel
.AddItem "Palacsinta"
.AddItem "Pizza"
.AddItem "kínai"
Vége ezzel
Vége Kiválasztás
End Sub
Magyarázat: Az Excel VBA a változóindex értéke alapján teszteli az egyes eseti utasításokat, hogy megtudja, mely elemekkel kell kitölteni a második kombinált mezőt. Nézze át a Select Case programunkat, hogy többet megtudjon a Select Case struktúráról.
13. Kattintson duplán az Import gombra.
14. Adja hozzá a következő kód sort:
Privát alparancsButton1_Click ()
Tartomány ("A1"). Érték = ComboBox2.Value
End Sub
Eredmény: