A Userforms létrehozásakor Excel VBA, használhatja a A gyűjtemény vezérlése hogy könnyedén ciklusozhasson a vezérlők között, és minden vezérlő tulajdonságát meghatározott értékre állítsa be.
Az általunk létrehozandó Userform a következőképpen néz ki:
A Userform létrehozásához hajtsa végre a következő 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 szövegdobozokat (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 szövegdoboz -vezérlőt az Eszköztárban található TextBox elemre kattintva. Ezután húzhat egy szövegdobozt a Userformon.
4. A Userform, címke és 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 vbModeless
End Sub
Magyarázat: a vbModeless hozzáadásával egyszerre használhatja a Userform formátumot és dolgozhat a munkalapon.
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 a Userform parancssorára kattintunk.
6. Nyissa meg a Visual Basic Editor programot.
7. A Project Explorerben kattintson duplán a UserForm1 elemre.
8. Kattintson duplán a parancsgombra.
9. Adja hozzá a következő kódsorokat:
Privát alparancsButton1_Click ()
Dim i As Integer
I = 1 és 10 között
Vezérlők ("TextBox" & i) .Value = Cellak (i + 1, 1) .Érték
Következő i
End Sub
Magyarázat: Csak néhány sornyi kóddal kitölthetjük a szövegdobozokat a lapon található telefonszámokkal. Az & operátort használtuk az elemek összefűzésére (összekapcsolására). Ezek a kódsorok azért működnek, mert nem változtattuk meg a szövegmező vezérlőinek nevét (TextBox1, TextBox2, TextBox3 stb.). A vezérlők nevének megváltoztatásához kattintson a Nézet, Tulajdonságok ablak, majd kattintson az egyes vezérlőelemekre.
Eredmény, ha rákattint a parancsikonra a lapon: