Sa samo nekoliko redaka koda, lako možemo petlje kroz kontrole na an Korisnički obrazac programa Excel VBA. Userform koji ćemo stvoriti izgleda ovako:
Da biste stvorili ovaj korisnički obrazac, izvedite sljedeće korake.
1. Otvorite Visual Basic Editor. Ako Project Explorer nije vidljiv, kliknite View, Project Explorer.
2. Pritisnite Umetni, Korisnički obrazac. Ako se Toolbox ne pojavi automatski, kliknite View, Toolbox. Zaslon bi trebao biti postavljen na sljedeći način.
3. Dodajte oznaku, potvrdne okvire (prvi pri vrhu, drugi ispod prvog itd.) I naredbeni gumb. Nakon što je ovo dovršeno, rezultat bi trebao biti u skladu sa slikom Userform -a prikazanom ranije. Na primjer, stvorite kontrolu potvrdnog okvira klikom na CheckBox u Toolboxu. Zatim možete povući potvrdni okvir na korisničkom obrascu.
4. Možete promijeniti nazive i natpise kontrola. Imena se koriste u Excel VBA kodu. Naslovi su oni koji se pojavljuju na vašem zaslonu. Dobra je praksa promijeniti nazive kontrola, ali to ovdje nije potrebno jer u ovom primjeru imamo samo nekoliko kontrola. Da biste promijenili natpis Userform, label, potvrdni okviri i naredbeni gumb, kliknite View, Properties Window i kliknite na svaku kontrolu.
5. Da biste prikazali Userform, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton1_Click ()
Korisnički obrazac1.Prikaži
Kraj podm
Sada smo stvorili prvi dio Userform -a. Iako već izgleda uredno, ništa se neće dogoditi kada kliknemo gumb Clear.
6. Otvorite Visual Basic Editor.
7. U Project Exploreru dvaput kliknite UserForm1.
8. Dvaput kliknite gumb Clear.
9. Dodajte sljedeće retke koda:
Privatna pomoćna naredbaButton1_Click ()
Dim contr Kao kontrola
Za svaki kontr u UserForm1.Controls
Ako TypeName (contr) = "CheckBox" Zatim
contr.Value = Netačno
Završi ako
Sljedeći
Kraj podm
Objašnjenje: Excel VBA petlja kroz sve kontrole na korisničkom obrascu. Funkcija TypeName koristi se za filtriranje kontrola potvrdnih okvira. Ako kontrolni okvir kontrolira, Excel VBA poništava potvrdni okvir. contr je nasumično odabran ovdje, možete koristiti bilo koje ime. Ne zaboravite se pozivati na ovo ime u ostatku koda.
Rezultat kada pritisnete gumb Clear:
