Alla tarkastelemme ohjelmaa Excel VBA joka luo Userformin, joka sisältää monisarakkeinen yhdistelmälaatikko.
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, yhdistelmäruutu ja komentopainikkeet. Kun tämä on suoritettu, tuloksen tulee olla yhdenmukainen aiemmin näytetyn Userform -kuvan kanssa. Luo esimerkiksi yhdistelmäruudun ohjausobjekti napsauttamalla Työkalulaatikosta Yhdistelmäruutu. Seuraavaksi voit vetää yhdistelmäruudun Userformissa.
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 Userform-, tarra- ja komentopainikkeiden kuvatekstejä, napsauta Näytä, Ominaisuudet -ikkuna ja napsauta jokaista ohjainta.
5. Jos haluat näyttää Userformin, aseta komentopainike laskentataulukkoosi ja lisää seuraava koodirivi:
Yksityinen alikomentoButton1_Click ()
UserForm 1.Näytä
End Sub
Aiomme nyt luoda Sub UserForm_Initialize. Kun käytät Näytä -menetelmää Userformissa, tämä osa suoritetaan automaattisesti.
6. Avaa Visual Basic Editor.
7. Napsauta Project Explorerissa hiiren kakkospainikkeella UserForm1 ja valitse sitten Näytä koodi.
8. Valitse Userform vasemmasta avattavasta luettelosta. Valitse Alusta oikeasta avattavasta luettelosta.
9. Lisää seuraavat koodirivit:
Yksityinen alikäyttäjäForm_Initialize ()
ComboBox1.ColumnCount = 2
Himmennä elokuvat (1–5, 1–2) merkkijonona
Dim i kokonaislukuna, j kokonaislukuna
Elokuvat (1, 1) = "Sormusten herra"
Elokuvat (2, 1) = "Nopeus"
Elokuvat (3, 1) = "Tähtien sota"
Elokuvat (4, 1) = "Kummisetä"
Elokuvat (5, 1) = "Pulp Fiction"
Elokuvat (1, 2) = "Seikkailu"
Elokuvat (2, 2) = "Toiminta"
Elokuvat (3, 2) = "Sci-Fi"
Elokuvat (4, 2) = "Rikos"
Elokuvat (5, 2) = "Draama"
ComboBox1.List = Elokuvat
End Sub
Selitys: Ensimmäinen koodirivi asettaa yhdistelmäruudun sarakkeiden lukumääräksi 2. Sen sijaan, että määrittäisit sarakkeiden määrän ajon aikana, voit määrittää tämän asetuksen myös suunnitteluaikana. Tämän saavuttamiseksi napsauta hiiren kakkospainikkeella yhdistelmäruudun ohjausobjektia, valitse Ominaisuudet ja aseta ColumnCount-ominaisuudeksi 2. Seuraavaksi julistamme ja alustamme kaksiulotteisen taulukon. Viimeinen koodirivi määrittää taulukon yhdistelmäruudulle.
Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, mitään ei vielä tapahdu, kun napsautamme Userformin komentopainikkeita.
10. Kaksoisnapsauta Project Explorerissa UserForm1.
11. Kaksoisnapsauta OK -painiketta.
12. Lisää seuraavat koodirivit:
Yksityinen alikomentoButton1_Click ()
Purkaa minut
MsgBox "Valitsit" & ComboBox1.Value
Virhe Jatka seuraavaksi
MsgBox "Pidät" & ComboBox1.Column (1) & "movies"
End Sub
Huomautus: nämä koodirivit sulkevat Excel VBA -käyttölomakkeen ja näyttävät valitun kohteen ja tyylilajin. On Error Resume Next -lauseke ohittaa virheen, kun käyttäjä täyttää oman elokuvansa (tässä tapauksessa lajityyppiä ei ole käytettävissä).
13. Kaksoisnapsauta Peruuta -painiketta.
14. Lisää seuraava koodirivi:
Yksityinen alikomentoButton2_Click ()
Purkaa minut
End Sub
Tulos, kun valitset Nopeus ja napsautat OK.
