Voit käyttää a RefEdit -ohjaus sisään Excel VBA saada alue käyttäjältä. Userform aiomme luoda värejä vähimmäisarvo valikoima tallennetaan RefEdit -ohjaimeen.
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, RefEdit -ohjaus- ja komentopainikkeet. Kun tämä on suoritettu, tuloksen tulee olla yhdenmukainen aiemmin näytetyn Userform -kuvan kanssa. Luo esimerkiksi RefEdit -ohjausobjekti napsauttamalla työkalupakista RefEdit. Seuraavaksi voit vetää RefEdit -ohjausobjektin Userformiin.
Huomautus: Jos työkalupakissasi ei ole RefEdit -ohjainta, aseta viittaus RefEdit -ohjausobjektiin. Napsauta Työkalut, viitteet ja valitse Ref Edit Control.
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 ()
Sheet1.Cells.Font.Color = vbMusta
UserForm1.RefEdit1.Text = Valinta.Address
End Sub
Selitys: ensimmäinen koodirivi muuttaa taulukon 1 kaikkien solujen fontin värin mustaksi. Toinen koodirivi hakee nykyisen valinnan osoitteen ja näyttää sen RefEdit -ohjausobjektissa.
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 Siirry -painiketta.
12. Lisää seuraavat koodirivit:
Yksityinen alikomentoButton1_Click ()
Dim addr kuten String, rng, solu As Range, vähintään As Double
addr = RefEdit1.Value
Aseta rng = alue (addr)
vähintään = WorksheetFunction.Min (rng)
Jokaista solua kohti
Jos solu.Arvo = vähimmäismäärä Sitten solu.Fontti.Väri = vbPunainen
Seuraava solu
End Sub
Selitys: ensin saamme osoitteen RefEdit -ohjausobjektista ja tallennamme sen String -muuttujan addr. Seuraavaksi asetamme rng RefEdit -ohjausobjektissa määritettyyn alueeseen. Seuraavaksi käytämme laskentataulukkotoimintoa Min löytääksemme alueen vähimmäisarvon. Lopuksi väritämme vähimmäisarvot silmukalla.
13. Kaksoisnapsauta Peruuta -painiketta.
14. Lisää seuraava koodirivi:
Yksityinen alikomentoButton2_Click ()
Purkaa minut
End Sub
Selitys: tämä koodirivi sulkee käyttäjämuodon, kun napsautat Peruuta -painiketta.
15. Testaa Userform.
Tulos:
