Uporabite lahko a Nadzor RefEdit v Excel VBA da dobite obseg od uporabnika. The Uporabniška oblika Ustvarili bomo barve z minimalno vrednostjo obseg shranjene v kontrolniku RefEdit.
Če želite ustvariti ta uporabniški obrazec, izvedite naslednje korake.
1. Odprite urejevalnik Visual Basic. Če Project Explorer ni viden, kliknite View, Project Explorer.
2. Kliknite Vstavi, Uporabniški obrazec. Če se orodjarna ne prikaže samodejno, kliknite Pogled, Orodjarna. Zaslon je treba nastaviti tako, kot je prikazano spodaj.
3. Dodajte oznako, gumb za nadzor RefEdit in ukaze. Ko je to končano, mora biti rezultat skladen s sliko uporabniške oblike, prikazano prej. Na primer, ustvarite kontrolnik RefEdit s klikom na RefEdit v orodjarni. Nato lahko povlečete kontrolnik RefEdit na Userform.
Opomba: Če orodjarna nima kontrolnika RefEdit, nastavite sklic na nadzor RefEdit. Kliknite Orodja, Reference in preverite Nadzor urejanja ref.
4. Lahko spremenite imena in napise kontrolnikov. Imena se uporabljajo v kodi Excel VBA. Napisi so tisti, ki se prikažejo na zaslonu. Dobra praksa je, da spremenite imena kontrol, vendar to ni potrebno, ker imamo v tem primeru le nekaj kontrol. Če želite spremeniti napis uporabniške oblike, oznake in ukaznih gumbov, kliknite Pogled, okno lastnosti in kliknite na vsak kontrolnik.
5. Če želite prikazati Userform, na svoj delovni list postavite ukazni gumb in dodajte naslednjo kodno vrstico:
Zasebni pod -ukaz Button1_Click ()
UserForm1.Show
End Sub
Zdaj bomo ustvarili Sub UserForm_Initialize. Ko uporabite metodo Show za Userform, se bo ta podprogram samodejno izvajal.
6. Odprite urejevalnik Visual Basic.
7. V Raziskovalcu projektov z desno miškino tipko kliknite UserForm1 in nato kliknite Ogled kode.
8. Na levem spustnem seznamu izberite Userform. Na desnem spustnem seznamu izberite Inicializiraj.
9. Dodajte naslednje kodne vrstice:
Zasebni podporabnikForm_Initialize ()
List1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Izbor.Naslov
End Sub
Pojasnilo: prva vrstica kode spremeni barvo pisave vseh celic na listu1 v črno. Druga vrstica kode pridobi naslov trenutne izbire in jo prikaže v kontrolniku RefEdit.
Zdaj smo ustvarili prvi del Userform. Čeprav že izgleda čedno, se s klikom na ukazne gumbe na Userform ne zgodi še nič.
10. V Raziskovalcu projektov dvokliknite UserForm1.
11. Dvokliknite gumb Pojdi.
12. Dodajte naslednje kodne vrstice:
Zasebni pod -ukaz Button1_Click ()
Dim addr As String, rng, cell As Range, najmanj As Double
addr = RefEdit1.Vrednost
Set rng = Range (addr)
minimum = Funkcija delovnega lista.Min (rng)
Za vsako celico V rng
Če cell.Value = minimum Potem cell.Font.Color = vbRed
Naslednja celica
End Sub
Pojasnilo: najprej dobimo naslov iz kontrolnika RefEdit in ga shranimo v spremenljivko String addr. Nato nastavimo rng na obseg, določen v kontrolniku RefEdit. Nato s funkcijo delovnega lista Min poiščemo najmanjšo vrednost v obsegu. Na koncu z zanko obarvamo minimalne vrednosti.
13. Dvokliknite gumb Prekliči.
14. Dodajte naslednjo kodno vrstico:
Zasebni pod -ukaz Button2_Click ()
Raztovori me
End Sub
Pojasnilo: Ta vrstica kode zapre uporabniški obrazec, ko kliknete gumb Prekliči.
15. Preizkusite obliko uporabnika.
Rezultat:
