Vain muutamalla koodirivillä voimme helposti kierrä ohjaimet läpi päällä Excel VBA -käyttölomake. Luomamme Userform näyttää seuraavalta:
Voit luoda tämän käyttäjämuodon suorittamalla seuraavat vaiheet.
1. Avaa Visual Basic Editor. Jos Project Explorer ei ole näkyvissä, valitse Näytä, Project Explorer.
2. Napsauta Insert, Userform. Jos Työkaluryhmä ei näy automaattisesti, napsauta Näytä, Työkaluryhmä. Näyttö on asetettava alla kuvatulla tavalla.
3. Lisää tarra, valintaruudut (ensimmäinen yläreunassa, toinen ensimmäisen alapuolella jne.) Ja komentopainike. Kun tämä on suoritettu, tuloksen tulee olla yhdenmukainen aiemmin näytetyn Userform -kuvan kanssa. Luo esimerkiksi valintaruudun ohjausobjekti napsauttamalla Työkaluryhmän valintaruutua. Seuraavaksi voit vetää Userformin valintaruudun.
4. Voit muuttaa säätimien nimiä ja kuvatekstejä. Nimiä käytetään Excel VBA -koodissa. Tekstitykset ovat niitä, jotka näkyvät näytölläsi. On hyvä käytäntö muuttaa säätimien nimiä, mutta se ei ole välttämätöntä, koska tässä esimerkissä on vain muutamia säätimiä. Jos haluat muuttaa Userformin, otsikon, valintaruutujen ja komentopainikkeen kuvatekstiä, napsauta Näytä, Ominaisuudet -ikkuna ja napsauta jokaista ohjausobjektia.
5. Jos haluat näyttää Userformin, aseta komentopainike laskentataulukkoosi ja lisää seuraava koodirivi:
Yksityinen alikomentoButton1_Click ()
UserForm 1.Näytä
End Sub
Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, mitään ei vielä tapahdu, kun napsautamme Tyhjennä -painiketta.
6. Avaa Visual Basic Editor.
7. Kaksoisnapsauta Project Explorerissa UserForm1.
8. Kaksoisnapsauta Tyhjennä -painiketta.
9. Lisää seuraavat koodirivit:
Yksityinen alikomentoButton1_Click ()
Himmennin ohjaimena
Jokaiselle UserForm1.Controlsin ohjaimelle
Jos TypeName (contr) = "CheckBox" Sitten
contr.Value = False
Loppu Jos
Seuraava
End Sub
Selitys: Excel VBA kulkee läpi kaikki Userform -ohjaimet. TypeName -toimintoa käytetään suodattamaan valintaruudun säätimet. Jos valintaruutu on valittuna, Excel VBA poistaa valintaruudun valinnan. contr valitaan satunnaisesti, voit käyttää mitä tahansa nimeä. Muista viitata tähän nimeen koodin loppuosassa.
Tulos, kun napsautat Tyhjennä -painiketta:
