Vaid mõne rea koodiga saame hõlpsalt hakkama silmus läbi juhtnuppude kohta Exceli VBA kasutajavorm. Kasutajavorm, mille me loome, näeb välja järgmine:
Selle Userformi loomiseks toimige järgmiselt.
1. Avage Visual Basic Editor. Kui Project Explorer pole nähtav, klõpsake View, Project Explorer.
2. Klõpsake Insert, Userform. Kui tööriistakasti automaatselt ei kuvata, klõpsake nuppu Vaade, tööriistakast. Ekraan tuleks seadistada järgmiselt.
3. Lisage silt, märkeruudud (esimene ülaosas, teine esimese all jne) ja käsunupp. Kui see on lõpule viidud, peaks tulemus olema kooskõlas varem näidatud Userformi pildiga. Näiteks looge märkeruutude juhtelement, klõpsates tööriistakastis valikul Märkeruut. Järgmisena saate lohistada Userformi ruudu.
4. Saate muuta juhtelementide nimesid ja pealdisi. Nimesid kasutatakse Exceli VBA -koodis. Subtiitrid on need, mis kuvatakse teie ekraanil. Juhtnuppude nimede muutmine on hea tava, kuid see pole siin vajalik, sest meil on selles näites vaid mõned juhtnupud. Kasutajavormi, sildi, märkeruutude ja käsunupu pealdise muutmiseks klõpsake nuppu Vaade, Atribuutide aken ja klõpsake iga juhtelementi.
5. Kasutajavormi kuvamiseks pange oma töölehele käsunupp ja lisage järgmine koodirida:
Privaatne alamkäsk Button1_Click ()
UserForm1.Show
End Sub
Nüüd oleme loonud Userformi esimese osa. Kuigi see näeb juba kenasti välja, ei juhtu veel midagi, kui klõpsame nupul Kustuta.
6. Avage Visual Basic Editor.
7. Topeltklõpsake Project Exploreris nuppu UserForm1.
8. Topeltklõpsake nuppu Kustuta.
9. Lisage järgmised koodiridad:
Privaatne alamkäsk Button1_Click ()
Dim contr Kontrollina
Iga kontrolli kohta UserForm1.Controls
Kui TypeName (contr) = "CheckBox" Siis
contr.Value = Vale
Lõpp Kui
Järgmine
End Sub
Selgitus: Excel VBA vaatab läbi kõik Userformi juhtelemendid. Funktsiooni TypeName kasutatakse märkeruutude juhtelementide filtreerimiseks. Kui märkeruut on kontrollitud, tühistab Excel VBA selle märkeruudu. contr valitakse siin juhuslikult, võite kasutada mis tahes nime. Ärge unustage viidata sellele nimele ülejäänud koodis.
Tulemus, kui klõpsate nuppu Kustuta:
