/ / Excel VBA Controls -kokoelma

Excel VBA Controls -kokoelma

Kun luodaan käyttäjätunnukset sisään Excel VBA, voit käyttää Controls-kokoelma voit helposti ohjata säätimiä ja asettaa kunkin kontrollin ominaisuuden tiettyyn arvoon.

Käyttäjäformaatti, jonka aiomme luoda, näyttää seuraavaa:

Ohjauskokoelma Excel VBA: ssa

Tee tämä käyttäjätunnus seuraavasti:

1. Avaa Visual Basic -editori. Jos Project Explorer ei ole näkyvissä, valitse View, Project Explorer.

2. Napsauta Insert, Userform. Jos työkalupakki ei tule näkyviin automaattisesti, valitse Näytä, työkalupakki. Näyttösi on määritettävä alla.

Userform-näytön asetukset Excel VBA: ssa

3. Lisää etiketti, tekstilaatikoita (ensimmäinen yläosassa, toinen alla ensimmäisen ja niin edelleen) ja komento-painike. Kun tämä on saatu päätökseen, tuloksen on oltava johdonmukainen aikaisemmin esitetyn käyttäjätiedon kuvan kanssa. Luo esimerkiksi tekstilaatikon ohjaus klikkaamalla Toolbox-työkalua. Seuraavaksi voit vetää tekstiruudun Userform-muodossa.

4. Voit vaihtaa Userform, label ja komento-painikkeen otsikon napsauttamalla Näytä, Properties (Ominaisuudet) -ikkuna ja napsauttamalla jokaista ohjausta.

5. Kun haluat näyttää Userform, aseta komentokehote laskentatauluun ja lisää seuraava koodirivi:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Selitys: lisäämällä vbModeless, voit käyttää Userform-muotoa ja työskennellä työarkissa samanaikaisesti.

Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää siistinä jo, mikään ei tapahdu vielä, kun napsautamme Userform-komennon painiketta.

6. Avaa Visual Basic -editori.

7. Kaksoisnapsauta Project Explorerissa UserForm1-ohjelmaa.

8. Kaksoisnapsauta komentopainiketta.

9. Lisää seuraavat koodiluokat:

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

Selitys: Vain muutamalla rivillä olevaa koodia voimme täyttää tekstiruutujen puhelinnumerot arkistosta. Käytimme & operaattoria ketjuttamiseen (liittyä) elementteihin. Nämä koodirivit toimivat, koska emme ole muuttaneet tekstilaatikkosäätimien nimeä (TextBox1, TextBox2, TextBox3 jne.). Jos haluat muuttaa ohjaimien nimeä, valitse Näytä, Ominaisuudet-ikkuna ja napsauta jokaista ohjausta.

Tulos, kun napsautat arkin komentopainiketta:

Ohjausten kokoustulos

Lue myös: