/ / Excel VBA Controls Collection

Excel VBA Controls Collection

Felhasználói formák létrehozásakor Excel VBA, használhatja a Controls gyűjtemény hogy egyszerűen végigvezeti a vezérlőket, és minden vezérlő tulajdonságát egy adott értékre állítja be.

A felhasználói forma, amelyet meg fogunk alkotni, a következőképpen néz ki:

Controls Collection Excel VBA-ban

A Userform létrehozásához hajtsa végre a következő lépéseket:

1. Nyissa meg a Visual Basic Editor alkalmazást. Ha a Project Explorer nem látható, kattintson a Nézet, a Project Explorer elemre.

2. Kattintson a Beszúrás, Felhasználóformátum elemre. Ha az Eszköztár nem jelenik meg automatikusan, kattintson a Nézet, Eszköztár elemre. A képernyő beállítása az alábbiak szerint történik.

Userform képernyőbeállítás az Excel VBA-ban

3. Adja hozzá a címkét, szövegdobozokat (először a tetején, a második az első alatt, stb.) És a parancsgombot. Miután ez befejeződött, az eredménynek összhangban kell lennie a korábban bemutatott Userform képével. Például készítsen szövegdoboz-vezérlést az Eszköztárban lévő TextBox gombra kattintva. Ezután húzza a szövegmezőt a Userformon.

4. A Userform, a címke és a parancs gombjának módosításához kattintson a Nézet, a Tulajdonságok ablakra, és kattintson az egyes vezérlőkre.

5. A Userform megjelenítéséhez helyezze a parancsgombot a munkalapra, és adja hozzá a következő kódot:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Magyarázat: a vbModeless hozzáadásával egyszerre használhatja a Felhasználóformát és a munkát a munkalapban.

Most létrehoztuk a Userform első részét. Bár már jól néz ki, akkor semmi sem fog történni, ha rákattintunk a Userform parancssávjára.

6. Nyissa meg a Visual Basic Editor alkalmazást.

7. A Project Explorer programban kattintson duplán a UserForm1-re.

8. Kattintson duplán a parancs gombra.

9. Adja hozzá a következő kódsorokat:

Private Sub CommandButton1_Click()

Dim i As Integer

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Magyarázat: Csak néhány sornyi kóddal tölthetjük ki a szövegdobozokat a telefonszámokból a lapról. A & kezelőt az elemek összekapcsolására (csatlakozásra) használtuk. Ezek a kódsorok azért működnek, mert nem változtattuk meg a szövegdoboz-vezérlők nevét (TextBox1, TextBox2, TextBox3 stb.) A vezérlők nevének megváltoztatásához kattintson a Nézet, a Tulajdonságok ablakra, és kattintson az egyes vezérlőkre.

Eredmény, ha rákattint a parancs gombra a lapon:

Controls Collection eredmény

Szintén olvasható: