Alla tarkastelemme Excel VBA -ohjelmaa, joka luo Userformin, joka sisältää useita sivuja. Tämä käyttölomake sisältää myös kuvia.
Monisivuinen ohjaus sisältää kaksi sivua. Sivulla 1 käyttäjä voi täyttää henkilökohtaiset tietonsa. Sivulla 2 käyttäjä voi ilmoittaa, mistä maalauksesta hän pitää eniten.
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ää monisivuinen ohjausobjekti, tarrat, tekstiruudut (ensimmäinen yläreunassa, toinen ensimmäisen alla), kehys, asetuspainikkeet (ensimmäinen vasemmalla, toinen oikealla), luetteloruutu, Kuvanhallinta- ja komentopainike. Kun tämä on suoritettu, tuloksen tulee olla yhdenmukainen aiemmin näytetyn Userform -tyhjän version kanssa. Luo esimerkiksi monisivuinen ohjausobjekti napsauttamalla Työkalulaatikosta Monisivu. Seuraavaksi voit vetää monisivuisen ohjaimen käyttäjämuodossa. Kun saavut sukupuolikehykseen, muista piirtää tämä kehys ennen kuin asetat siihen kaksi vaihtoehtopainiketta.
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, monisivuisten välilehtien, tarrojen, kehyksen, asetuspainikkeiden ja komentopainikkeen kuvatekstiä, 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 ()
ListBox1: n kanssa
.AddItem "Vuoret"
.AddItem "Auringonlasku"
.AddItem "Ranta"
.Lisää "Talvi"
Lopeta
End Sub
Selitys: sivulla 2 oleva luetteloruutu täytetään.
Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, mitään ei vielä tapahdu, kun valitsemme kohteen luetteloruudusta tai napsautamme OK -painiketta.
10. Lataa kuvat (tämän sivun oikea puoli) ja lisää ne kohtaan "C: \ test \"
11. Kaksoisnapsauta Project Explorerissa UserForm1.
12. Kaksoisnapsauta luetteloruutua.
13. Lisää seuraavat koodirivit:
Yksityinen alaluetteloBox1_Click ()
Jos ListBox1.ListIndex = 0 Sitten
Image1.Picture = LoadPicture ("C: \ test \ Mountains.jpg")
Loppu Jos
Jos ListBox1.ListIndex = 1 Sitten
Image1.Picture = LoadPicture ("C: \ test \ Sunset.jpg")
Loppu Jos
Jos ListBox1.ListIndex = 2 Sitten
Image1.Picture = LoadPicture ("C: \ test \ Beach.jpg")
Loppu Jos
Jos ListBox1.ListIndex = 3 Sitten
Image1.Picture = LoadPicture ("C: \ test \ Winter.jpg")
Loppu Jos
End Sub
Selitys: nämä koodirivit lataavat kuvan luetteloruudusta valitun kohteen mukaan.
14. Kaksoisnapsauta OK -painiketta.
15. Lisää seuraavat koodirivit:
Yksityinen alikomentoButton1_Click ()
Himmennä tyhjä Rivi niin kauan
'Tee Sheet1 aktiiviseksi
Arkki 1.Aktivoi
'Määritä tyhjä rivi
emptyRow = WorksheetFunction.CountA (Alue ("A: A")) + 1
'Siirrä tiedot
Solut (emptyRow, 1) .Arvo = TextBox1.Value
Solut (emptyRow, 2) .Arvo = TextBox2.Value
Jos OptionButton1.Value = Tosi
Solut (emptyRow, 3) .Value = "Mies"
Muu
Solut (emptyRow, 3) .Value = "Naaras"
Loppu Jos
Solut (emptyRow, 4) .Value = ListBox1.Value
'Sulje Userform
Purkaa minut
End Sub
Selitys: aktivoimme ensin taulukon 1. Seuraavaksi määritämme tyhjän rivin. Muuttuja emptyRow on ensimmäinen tyhjä rivi ja kasvaa joka kerta, kun tietue lisätään. Seuraavaksi siirrämme tiedot Userformista tyhjän rivin erityisiin sarakkeisiin. Lopuksi suljemme Userformin.
16. Sulje Visual Basic Editor, kirjoita alla näkyvät tarrat riville 1 ja testaa Userform.
Tulos:
