Kun luot Userformseja sisään Excel VBA, voit käyttää Hallitsee kokoelmaa kiertämään helposti ohjaimia ja asettamaan kunkin ohjausobjektin ominaisuuden tiettyyn arvoon.
Luomamme Userform näyttää seuraavalta:
Voit luoda tämän käyttäjämuodon seuraavasti:
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ää etiketti, tekstiruudut (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 tekstiruudun ohjausobjekti napsauttamalla Työkaluryhmän TextBoxia. Seuraavaksi voit vetää käyttäjäruudun tekstiruudun.
4. Jos haluat muuttaa Userform-, label- ja komentopainikkeen otsikkoa, napsauta View, Properties Window ja napsauta kutakin ohjausobjektia.
5. Jos haluat näyttää Userformin, aseta komentopainike laskentataulukkoosi ja lisää seuraava koodirivi:
Yksityinen alikomentoButton1_Click ()
UserForm1.Show vbModeless
End Sub
Selitys: lisäämällä vbModeless, voit käyttää Userformia ja työskennellä laskentataulukossasi samanaikaisesti.
Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, mitään ei tapahdu vielä, kun napsautamme Userformin komentopainiketta.
6. Avaa Visual Basic Editor.
7. Kaksoisnapsauta Project Explorerissa UserForm1.
8. Kaksoisnapsauta komentopainiketta.
9. Lisää seuraavat koodirivit:
Yksityinen alikomentoButton1_Click ()
Dim i Kuten kokonaisluku
I = 1-10
Controls ("TextBox" & i) .Arvo = Solut (i + 1, 1) .Arvo
Seuraavaksi minä
End Sub
Selitys: Vain muutamalla koodirivillä voimme täyttää tekstikentät taulukon puhelinnumeroilla. Käytimme & -operaattoria elementtien yhdistämiseen (liittämiseen). Nämä koodirivit toimivat, koska emme muuttaneet tekstiruudun säätimien nimiä (TextBox1, TextBox2, TextBox3 jne.). Jos haluat muuttaa ohjausobjektien nimiä, napsauta Näytä, Ominaisuudet -ikkuna ja napsauta jokaista ohjainta.
Tulos, kun napsautat taulukon komentopainiketta:
