/ / Excel VBA Userform ja alueet

Excel VBA Userform ja alueet

Voit käyttää a RefEdit-säätö sisään Excel VBA saada valikoima käyttäjältä. käyttäjälomakkeen aiomme luoda värejä alue tallennettu RefEdit-ohjaimeen.

Userform ja alueet Excel VBA: ssa

Tee tämä Käyttäjäluettelo seuraavasti.

1. Avaa Visual Basic -editori. Jos Project Explorer ei ole näkyvissä, valitse View, Project Explorer.

2. Napsauta Insert, Userform. Jos työkalupakki ei tule näkyviin automaattisesti, valitse Näytä, työkalupakki. Näyttösi on määritettävä alla.

Userform-näytön asetukset Excel VBA: ssa

3. Lisää etiketti, RefEdit-ohjaus- ja komento-painikkeet. Kun tämä on saatu päätökseen, tuloksen on oltava johdonmukainen aikaisemmin esitetyn käyttäjätiedon kuvan kanssa. Luo esimerkiksi RefEdit-ohjaus napsauttamalla RefEdit-työkalupalkista. Seuraavaksi voit vetää RefEdit-ohjauksen Userform-muodossa.

Huomaa: Jos työkalupalkissa ei ole RefEdit-ohjainta, aseta viite RefEdit-ohjaukseen. Valitse Työkalut, Viitteet ja tarkista Ref Edit Control.

4. Voit muuttaa ohjaimien nimeä ja kuvatekstejä. Nimet käytetään Excel VBA -koodissa. Kuvatekstit ovat niitä, jotka näkyvät näytölläsi. On hyvä käytäntö muuttaa ohjaimien nimet, mutta se ei ole tarpeen tässä, koska tässä esimerkissä on vain muutama valvonta. Jos haluat vaihtaa käyttö-, etiketti- ja komento-painikkeiden otsikon, valitse Näytä, Ominaisuudet-ikkuna ja napsauta jokaista ohjausta.

5. Kun haluat näyttää Userform, aseta komentokehote laskentatauluun ja lisää seuraava koodirivi:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Aiomme nyt luoda Sub UserForm_Initialize. Kun käytät User-muodon Show-menetelmää, tämä osa suoritetaan automaattisesti.

6. Avaa Visual Basic -editori.

7. Napsauta Project Explorer -ohjelmaa hiiren kakkospainikkeella UserForm1 ja sen jälkeen Näytä koodi.

8. Valitse Käyttäjätunnus vasemmalta avattavasta luettelosta. Valitse avattavasta oikeasta alasvetovalikosta Aloita.

9. Lisää seuraavat koodiluokat:

Private Sub UserForm_Initialize()

Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selection.Address

End Sub

Selitys: ensimmäinen koodirivi muuttaa kaikkien solujen 1 solujen kirjasimen mustaksi. Toinen koodiviiva saa nykyisen valinnan osoitteen ja näyttää sen RefEdit-ohjauksessa.

Olemme nyt luoneet Userformin ensimmäisen osan. Vaikka se näyttää hyvältä jo, mikään ei tapahdu vielä, kun napsautamme Userformin komentopainikkeita.

10. Kaksoisnapsauta Project Explorerissa UserForm1-ohjelmaa.

11. Kaksoisnapsauta Go-painiketta.

12. Lisää seuraavat koodiluokat:

Private Sub CommandButton1_Click()

Dim addr As String, rng, cell As Range, minimum As Double

addr = RefEdit1.Value
Set rng = Range(addr)
minimum = WorksheetFunction.Min(rng)

For Each cell In rng
    If cell.Value = minimum Then cell.Font.Color = vbRed
Next cell

End Sub

Selitys: Ensinnäkin saamme osoitteen RefEdit-ohjaimesta ja tallennamme sen String-muuttujalle addr. Seuraavaksi asetetaan rng RefEdit-ohjauksessa määritettyyn alueeseen. Seuraavaksi käytämme laskentataulukkoa Min, jotta löydämme alueen minimiarvon. Lopuksi värittelemme vähimmäisarvot silmukan avulla.

13. Kaksoisnapsauta Peruuta-painiketta.

14. Lisää seuraava koodirivi:

Private Sub CommandButton2_Click()

Unload Me

End Sub

Selitys: tämä koodirivi sulkee käyttäjätiedot, kun napsautat Peruuta-painiketta.

15. Testaa käyttöohje.

Tulos:

Userform ja Ranges Result

Lue myös: