Võite kasutada a RefEditi juhtimine sisse Exceli VBA kasutajalt vahemiku saamiseks. Kasutajavorm loome värvid minimaalse väärtuse vahemik salvestatud RefEdit juhtelementi.
Selle Userformi loomiseks toimige järgmiselt.
1. Avage Visual Basic Editor. Kui Project Explorer pole nähtav, klõpsake View, Project Explorer.
2. Klõpsake Insert, Userform. Kui tööriistakasti automaatselt ei kuvata, klõpsake nuppu Vaade, tööriistakast. Ekraan tuleks seadistada järgmiselt.
3. Lisage silt, RefEdit juhtimis- ja käsunupud. Kui see on lõpule viidud, peaks tulemus olema kooskõlas varem näidatud Userformi pildiga. Näiteks looge RefEdit -juhtelement, klõpsates tööriistakastis RefEdit. Järgmisena saate lohistada kasutajavormil RefEdit juhtelemendi.
Märkus. Kui teie tööriistakastil pole RefEdit -juhtelementi, määrake viide RefEdit -juhtelemendile. Klõpsake Tööriistad, viited ja märkige suvand Ref Edit Control.
4. Saate muuta juhtelementide nimesid ja pealdisi. Nimesid kasutatakse Exceli VBA -koodis. Subtiitrid on need, mis kuvatakse teie ekraanil. Juhtnuppude nimede muutmine on hea tava, kuid see pole siin vajalik, sest meil on selles näites vaid mõned juhtnupud. Kasutajavormi, siltide ja käsunuppude pealdiste muutmiseks klõpsake nuppu Vaade, Atribuutide aken ja klõpsake iga juhtelementi.
5. Kasutajavormi kuvamiseks pange oma töölehele käsunupp ja lisage järgmine koodirida:
Privaatne alamkäsk Button1_Click ()
UserForm1.Show
End Sub
Nüüd loome alamkasutajavormi_algatuse. Kui kasutate kasutajavormi jaoks Show meetodit, käivitatakse see alamosa automaatselt.
6. Avage Visual Basic Editor.
7. Paremklõpsake Project Exploreris nuppu UserForm1 ja seejärel käsku Kuva kood.
8. Valige vasakpoolsest ripploendist Userform. Valige parempoolsest ripploendist Initsialiseeri.
9. Lisage järgmised koodiridad:
Privaatne alamkasutajaForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Valik.Aadress
End Sub
Selgitus: esimene koodirida muudab lehe 1 kõigi lahtrite fondivärvi mustaks. Teine koodirida saab praeguse valiku aadressi ja kuvab selle juhtelemendis RefEdit.
Nüüd oleme loonud Userformi esimese osa. Kuigi see näeb juba kenasti välja, ei juhtu veel midagi, kui klõpsame Userformi käsunuppudel.
10. Topeltklõpsake Project Exploreris nuppu UserForm1.
11. Topeltklõpsake nuppu Mine.
12. Lisage järgmised koodiridad:
Privaatne alamkäsk Button1_Click ()
Dim addr nagu string, rng, lahter kui vahemik, minimaalselt kui kahekordne
addr = RefEdit1.Väärtus
Määra rng = Vahemik (addr)
miinimum = TöölehtFunktsioon.Min (rng)
Iga lahtri jaoks rng
Kui lahter.Väärtus = minimaalne Siis lahter.Font.Värv = vbRed
Järgmine lahter
End Sub
Selgitus: kõigepealt saame aadressi juhtelemendist RefEdit ja salvestame selle muutuja String muutjasse. Järgmisena seadsime rng juhtelemendis RefEdit määratud vahemikku. Seejärel kasutame vahemiku minimaalse väärtuse leidmiseks töölehe funktsiooni Min. Lõpuks värvime ahela abil minimaalse (d) väärtuse (d).
13. Topeltklõpsake nuppu Tühista.
14. Lisage järgmine koodirida:
Privaatne alamkäsk Button2_Click ()
Laadi mind maha
End Sub
Selgitus: see koodirida sulgeb kasutajavormi, kui klõpsate nupul Tühista.
15. Testige Userformi.
Tulemus:
