/ / Excel VBA kontrole zbirke

Excel VBA kontrole zbirke

Prilikom izrade Userforms u Excel VBA, možete upotrijebiti Prikupljanje kontrola da se lako kontroliraju i postavljaju svojstvo svake kontrole na određenu vrijednost.

Korisnički obrazac koji ćemo stvoriti izgleda ovako:

Zbirka kontrola u programu Excel VBA

Da biste izradili ovaj Userform, izvršite sljedeće korake:

1. Otvorite Visual Basic Editor. Ako Project Explorer nije vidljiv, kliknite View, Project Explorer.

2. Kliknite Insert, Userform. Ako Toolbox ne pojavljuje automatski, kliknite View, Toolbox. Vaš bi se zaslon trebao postaviti kao u nastavku.

Postavljanje zaslona korisničkog formata u programu Excel VBA

3. Dodajte oznaku, tekstne okvire (prvi na vrhu, drugi ispod prvog, itd.) I gumb za naredbu. Kada to završi, rezultat bi trebao biti u skladu s prethodno prikazanom korisničkom obrascu. Na primjer, izradite kontrolu tekstnog okvira klikom na Tekstualni okvir iz Toolboxa. Zatim možete povući tekstni okvir na Userform.

4. Da biste promijenili naslov gumba Userform, oznaka i naredbe, kliknite View (Prikaži), Window Properties (Svojstva) i kliknite na svaku kontrolu.

5. Da biste prikazali Userform, stavite gumb naredbe na radni list i dodajte sljedeću liniju koda:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Objašnjenje: dodavanjem vbModeless, možete koristiti Userform i raditi u svom radnom listu istodobno.

Sada smo stvorili prvi dio Korisničkog obrasca. Iako već izgleda uredno, ništa se neće dogoditi kada kliknemo gumb naredbe na korisničkom obrascu.

6. Otvorite Visual Basic Editor.

7. U Project Exploreru dvokliknite UserForm1.

8. Dvaput kliknite gumb naredbe.

9. Dodajte sljedeće retke koda:

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

Obrazloženje: Sa samo nekoliko redaka koda, možemo ispuniti tekstualne okvire s brojevima telefona s listova. Upotrebljavali smo & operator za povezivanje elemenata. Ove linije koda funkcioniraju jer nismo promijenili imena kontrolnih okvira za tekst (TextBox1, TextBox2, TextBox3 itd.) Da biste promijenili nazive kontrola, kliknite Prikaz, Prozor svojstava i kliknite na svaku kontrolu.

Rezultat kada kliknete gumb naredbe na listu:

Rezultat zbirke kontrola

Također pročitajte: