/ / Excel kolekcie VBA Controls

Zbierka Excel VBA Controls

Pri vytváraní Userforms v Excel VBA, môžete použiť Zbierka kontrol ľahko previesť ovládacie prvky a nastaviť vlastnosť každého ovládacieho prvku na konkrétnu hodnotu.

Forma User, ktorú chceme vytvoriť, vyzerá takto:

Kontrola zbierky v programe Excel VBA

Ak chcete vytvoriť tento Userform, vykonajte nasledujúce kroky:

1. Otvorte Editor jazyka. Ak nástroj Project Explorer nie je viditeľný, kliknite na položku Zobraziť, Project Explorer.

2. Kliknite na Insert, Userform. Ak sa panel nástrojov nezobrazí automaticky, kliknite na položku Zobraziť, panel s nástrojmi. Obrazovka by mala byť nastavená tak, ako je uvedené nižšie.

Nastavenie obrazovky používateľa v programe Excel VBA

3. Pridajte štítok, textové polia (najskôr v hornej časti, druhá pod prvou atď.) A príkazové tlačidlo. Po dokončení tohto výsledku by mal byť výsledok v súlade s obrázkom užívateľa, ktorý je zobrazený skôr. Napríklad vytvorte ovládací prvok textového poľa kliknutím na TextBox z panelu nástrojov. Potom môžete pretiahnuť textové pole na Userform.

4. Ak chcete zmeniť nadpis Userform, štítka a príkazového tlačidla, kliknite na položku Zobraziť, okno Vlastnosti a kliknite na každý ovládací prvok.

5. Ak chcete zobraziť Userform, umiestnite do pracovného hárka príkazové tlačidlo a pridajte nasledujúci riadok kódu:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Vysvetlenie: pridaním vbModeless môžete použiť nástroj Userform a prácu v pracovnom hárku súčasne.

Teraz sme vytvorili prvú časť Userform. Aj keď to vyzerá dobre, nič sa nestane, keď klikneme na príkazové tlačidlo Userform.

6. Otvorte Editor jazyka.

7. V programe Project Explorer dvakrát kliknite na UserForm1.

8. Dvakrát kliknite na príkazové tlačidlo.

9. Pridajte nasledujúce riadky kódu:

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

vysvetlenie: S niekoľkými riadkami kódu môžeme vyplniť textové polia s telefónnymi číslami z hárku. Použili sme & operátor na spojenie elementov. Tieto riadky kódu fungujú, pretože sme nezmenili názvy ovládacích prvkov textového poľa (TextBox1, TextBox2, TextBox3, atď.) Ak chcete zmeniť názvy ovládacích prvkov, kliknite na položku Zobraziť, okno Vlastnosti a kliknite na každý ovládací prvok.

Výsledok po kliknutí na príkazové tlačidlo na hárku:

Výsledok zberu kontrol

Tiež si prečítajte: