Lisää säätimet | Näytä Userform | Määritä makrot | Testaa Userform
Tämä luku opettaa sinulle, kuinka luoda Excel VBA -käyttölomake. Luomamme Userform näyttää seuraavalta:
Lisää säätimet
Voit lisätä säätimet Userformiin 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ää alla olevassa taulukossa luetellut säätimet. 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. Kun saavut auton runkoon, muista piirtää tämä kehys ennen kuin asetat siihen kaksi valintanappia.
4. Muuta säätimien nimet ja kuvatekstit alla olevan taulukon mukaisesti. 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ä. Tämä helpottaa koodin lukemista. Jos haluat muuttaa ohjausobjektien nimiä ja kuvatekstejä, napsauta Näytä, Ominaisuudet -ikkuna ja napsauta jokaista ohjainta.
| Ohjaus | Nimi | Kuvateksti |
|---|---|---|
| Userform | DinnerPlannerUserForm | Illallisen suunnittelija |
| Tekstilaatikko | NameTextBox | |
| Tekstilaatikko | PhoneTextBox | |
| Luetteloruutu | CityListBox | |
| Yhdistelmälaatikko | IllallinenComboBox | |
| Valintaruutu | DateCheckBox 1 | 13. kesäkuuta |
| Valintaruutu | DateCheckBox2 | 20. kesäkuuta |
| Valintaruutu | DateCheckBox3 | 27. kesäkuuta |
| Runko | CarFrame | Auto |
| Vaihtoehto -painike | Autovalintapainike 1 | Joo |
| Vaihtoehto -painike | Autovalintapainike 2 | Ei |
| Tekstilaatikko | MoneyTextBox | |
| Linkouspainike | MoneySpinButton | |
| Komento -painike | OK -painike | OK |
| Komento -painike | ClearButton | Asia selvä |
| Komento -painike | Peruuta -painike | Peruuttaa |
| 7 Tarrat | Ei tarvitse muuttaa | Nimi :, Puhelinnumero: jne. |
Huomautus: yhdistelmäruutu on avattava luettelo, josta käyttäjä voi valita kohteen tai täyttää oman valintansa. Vain yksi vaihtoehtopainikkeista voidaan valita.
Näytä Userform
Jos haluat näyttää Userformin, aseta komentopainike laskentataulukkoosi ja lisää seuraava koodirivi:
Yksityinen alikomentoButton1_Click ()
DinnerPlannerUserForm.Show
End Sub
Aiomme nyt luoda Sub UserForm_Initialize. Kun käytät Näytä -menetelmää Userformissa, tämä osa suoritetaan automaattisesti.
1. Avaa Visual Basic Editor.
2. Napsauta Project Explorerissa hiiren kakkospainikkeella DinnerPlannerUserForm ja valitse sitten Näytä koodi.
3. Valitse Userform vasemmasta avattavasta luettelosta. Valitse Alusta oikeasta avattavasta luettelosta.
4. Lisää seuraavat koodirivit:
Yksityinen alikäyttäjäForm_Initialize ()
'Tyhjä NameTextBox
NameTextBox.Value = ""
'Tyhjä PhoneTextBox
PhoneTextBox.Value = ""
Tyhjä CityListBox
CityListBox.Clear
'Täytä CityListBox
CityListBoxin kanssa
.AddItem "San Francisco"
.AddItem "Oakland"
.AddItem "Richmond"
Lopeta
'Tyhjä illallinen ComboBox
Illallinen ComboBox
'Täytä illallinenComboBox
DinnerComboBoxin kanssa
.AddItem "italialainen"
.AddItem "kiinalainen"
.AddItem "Friitit ja liha"
Lopeta
Poista DataCheckBoxes -valintaruudut
DateCheckBox1.Value = Väärä
DateCheckBox2.Value = Väärä
DateCheckBox3.Value = Väärä
'Älä aseta autoa oletukseksi
CarOptionButton2.Value = Totta
Tyhjä MoneyTextBox
MoneyTextBox.Value = ""
'Keskity NameTextBoxiin
NameTextBox.SetFocus
End Sub
Selitys: tekstiruudut tyhjennetään, luetteloruudut ja yhdistelmäruudut on täytetty, valintaruutuja ei ole valittu jne.
Määritä makrot
Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää jo siistiltä, mitään ei vielä tapahdu, kun napsautamme Userformin komentopainikkeita.
1. Avaa Visual Basic Editor.
2. Kaksoisnapsauta Project Explorerissa DinnerPlannerUserForm.
3. Kaksoisnapsauta Money spin -painiketta.
4. Lisää seuraava koodirivi:
Yksityinen alirahaSpinButton_Change ()
MoneyTextBox.Text = MoneySpinButton.Value
End Sub
Selitys: tämä koodirivi päivittää tekstiruudun, kun käytät linkouspainiketta.
5. Kaksoisnapsauta OK -painiketta.
6. Lisää seuraavat koodirivit:
Yksityinen osa OKButton_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) .Value = NameTextBox.Value
Solut (emptyRow, 2) .Value = PhoneTextBox.Value
Solut (emptyRow, 3) .Arvo = CityListBox.Value
Solut (emptyRow, 4) .Value = DinnerComboBox.Value
Jos DateCheckBox1.Value = True Sitten solut (emptyRow, 5) .Arvo = DateCheckBox1.Caption
If DateCheckBox2.Value = True Sitten solut (emptyRow, 5) .Value = Solut (emptyRow, 5) .Arvo & "" & DateCheckBox2.Caption
If DateCheckBox3.Value = True Sitten solut (emptyRow, 5) .Value = Solut (emptyRow, 5) .Arvo & "" & DateCheckBox3.Caption
Jos CarOptionButton1.Value = Tosi
Solut (emptyRow, 6) .Value = "Kyllä"
Muu
Solut (emptyRow, 6) .Value = "Ei"
Loppu Jos
Solut (emptyRow, 7) .Arvo = MoneyTextBox.Value
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. Lopuksi siirrämme tiedot Userformista tyhjän rivin erityisiin sarakkeisiin.
7. Kaksoisnapsauta Tyhjennä -painiketta.
8. Lisää seuraava koodirivi:
Yksityinen osa ClearButton_Click ()
Soita UserForm_Initialize
End Sub
Selitys: tämä koodirivi kutsuu Sub UserForm_Initialize -apuohjelman, kun napsautat Tyhjennä -painiketta.
9. Kaksoisnapsauta Peruuta -painiketta.
10. Lisää seuraava koodirivi:
Yksityinen osa PeruutaButton_Click ()
Purkaa minut
End Sub
Selitys: tämä koodirivi sulkee käyttäjämuodon, kun napsautat Peruuta -painiketta.
Testaa Userform
Sulje Visual Basic Editor, kirjoita alla näkyvät tarrat riville 1 ja testaa Userform.
Tulos:
