/ / Loop kautta Controls Excel VBA

Ohjaa Controlsin avulla Excel VBA

Vain muutamalla rivillä koodia voimme helposti silmukka läpi ohjaimet päällä Excel VBA Userform. Käyttäjäformaatti, jonka aiomme luoda, näyttää seuraavaa:

Ohjaa Controlsin avulla Excel VBA

Tee tämä Käyttäjäluettelo 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, valintaruutuja (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 valintaruudun valinta klikkaamalla Checkboxia Toolboxista. Seuraavaksi voit vetää valintaruudun Userform-muodossa.

4. Voit muuttaa ohjaimien nimeä ja kuvatekstejä. Nimet käytetään Excel VBA -koodissa. Kuvatekstit ovat niitä, jotka näkyvät näytölläsi. On hyvä käytäntö muuttaa ohjaimien nimet, mutta se ei ole tarpeen tässä, koska tässä esimerkissä on vain muutama valvonta. Jos haluat muuttaa Userform-tunnuksen, tarran, valintaruudun ja komentopainikkeen, napsauta Näytä, Ominaisuudet-ikkuna ja napsauta jokaista ohjausta.

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

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

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

6. Avaa Visual Basic -editori.

7. Kaksoisnapsauta Project Explorerissa UserForm1-ohjelmaa.

8. Kaksoisnapsauta Clear-painiketta.

9. Lisää seuraavat koodiluokat:

Private Sub CommandButton1_Click()

Dim contr As control

For Each contr In UserForm1.Controls
    If TypeName(contr) = "CheckBox" Then
        contr.Value = False
    End If
Next

End Sub

Selitys: Excel VBA kiertyy läpi kaikki Userformin ohjaimet. Tyyppinimeä -toimintoa käytetään suodatuksen valintaruudun suodattamiseen. Jos valintaruutu on valittuna, Excel VBA poistaa valintaruudun valinta. contr on valittu satunnaisesti, voit käyttää mitä tahansa nimeä. Muista mainita tämä nimi muussa koodissa.

Tulos napsauttamalla Poista-painiketta:

Loop kautta Controls Tulos

Lue myös: