/ / Excel VBA kontroles kolekcija

Excel VBA Controls kolekcija

Veidojot Userforms iekšā Excel VBA, jūs varat izmantot Kontroles kolekcija lai viegli pieķertu ar kontrolēm un katrai kontrolei piešķirtu noteiktu vērtību.

Lietotāja forma, kuru mēs veidosim, izskatās šādi:

Kontroles kolekcija programmā Excel VBA

Lai izveidotu šo Userform, izpildiet šādas darbības:

1. Atveriet Visual Basic Editor. Ja Project Explorer nav redzams, noklikšķiniet uz Skatīt, Project Explorer.

2. Noklikšķiniet uz Ielikt, Lietotāja forma. Ja rīkjosla neparādās automātiski, noklikšķiniet uz Skatīt, rīkjoslu. Jūsu ekrāns ir jāiestata tā, kā parādīts zemāk.

Userform ekrāna iestatīšana programmā Excel VBA

3 Pievienojiet etiķeti, teksta lodziņus (pirmā augšdaļā, otro zemāk pirmo un tā tālāk) un komandu pogu. Kad tas ir pabeigts, rezultātam jāatbilst iepriekš redzamā lietotāja formas attēlam. Piemēram, izveidojiet teksta lodziņa vadību, noklikšķinot uz Teksta lodziņa no rīkjoslas. Tālāk jūs varat vilkt teksta lodziņu lietotāja formā.

4. Lai mainītu Userform, etiķetes un komandu pogas nosaukumu, noklikšķiniet uz Skatīt, rekvizītu loga un noklikšķiniet uz katras vadības pogas.

5. Lai parādītu Userform, ievietojiet komandas pogu savā darblapā un pievienojiet šādu koda rindiņu:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Paskaidrojums: pievienojot vbModeless, jūs varat izmantot Userform un strādāt savā darblapā vienlaicīgi.

Tagad mēs esam izveidojuši lietotāja formas pirmo daļu. Lai gan tas izskatās pievilcīgs jau, nekas nenotiks, kad mēs noklikšķināsim uz Userform komandpogas.

6. Atveriet Visual Basic Editor.

7. Projekta Explorer divreiz noklikšķiniet uz UserForm1.

8. Dubultklikšķi uz komandpogas.

9. Pievienojiet šādas koda līnijas:

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

Paskaidrojums: Ar tikai dažām koda rindiņām mēs varam aizpildīt teksta laukus ar tālruņu numuriem no lapas. Mēs izmantojām & operatoru, lai sapludinātu (pievienotu) elementus. Šīs koda līnijas darbojas, jo mēs mainījām teksta lodziņa vadības elementus (TextBox1, TextBox2, TextBox3 utt.). Lai mainītu vadības vārdu nosaukumus, noklikšķiniet uz Skatīt, rekvizītu loga un noklikšķiniet uz katras vadības pogas.

Rezultāts, noklikšķinot uz komandas pogas lapā:

Kontroles kolekcijas rezultāts

Lasīt arī: