Možete koristiti a RefEdit kontrola u Excel VBA da biste dobili raspon od korisnika. The Korisnički obrazac stvorit ćemo boje minimalnu vrijednost domet pohranjene u kontroli RefEdit.
Da biste stvorili ovaj korisnički obrazac, izvedite sljedeće korake.
1. Otvorite Visual Basic Editor. Ako Project Explorer nije vidljiv, kliknite View, Project Explorer.
2. Pritisnite Umetni, Korisnički obrazac. Ako se Toolbox ne pojavi automatski, kliknite View, Toolbox. Zaslon bi trebao biti postavljen na sljedeći način.
3. Dodajte oznaku, RefEdit kontrole i naredbene gumbe. Nakon što je ovo dovršeno, rezultat bi trebao biti u skladu sa slikom Userform -a prikazanom ranije. Na primjer, stvorite RefEdit kontrolu klikom na RefEdit u Toolboxu. Zatim možete povući RefEdit kontrolu na Userform.
Napomena: Ako vaš alatni okvir nema RefEdit kontrolu, postavite referencu na RefEdit kontrolu. Pritisnite Alati, Reference i provjerite Ref Edit Control.
4. Možete promijeniti nazive i natpise kontrola. Imena se koriste u Excel VBA kodu. Naslovi su oni koji se pojavljuju na vašem zaslonu. Dobra je praksa promijeniti nazive kontrola, ali to ovdje nije potrebno jer u ovom primjeru imamo samo nekoliko kontrola. Da biste promijenili natpis Userform, label i command button, kliknite View, Properties Window i kliknite na svaku kontrolu.
5. Da biste prikazali Userform, postavite naredbeni gumb na svoj radni list i dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton1_Click ()
Korisnički obrazac1.Prikaži
Kraj podm
Sada ćemo stvoriti Sub UserForm_Initialize. Kada koristite metodu Show za Userform, ova podmena će se automatski izvršiti.
6. Otvorite Visual Basic Editor.
7. U Project Exploreru desnom tipkom miša kliknite UserForm1, a zatim kliknite View Code.
8. Odaberite Korisnički obrazac s lijevog padajućeg popisa. Odaberite Initialize s desnog padajućeg popisa.
9. Dodajte sljedeće retke koda:
Privatni pomoćni korisnički obrazac_Initialize ()
List1.Cells.Font.Color = vbCrna
UserForm1.RefEdit1.Text = Odabir.Adresa
Kraj podm
Objašnjenje: prvi kodni redak mijenja boju fonta svih ćelija na listu1 u crnu. Drugi kodni redak dobiva adresu trenutnog odabira i prikazuje ga u kontroli RefEdit.
Sada smo stvorili prvi dio Userform -a. Iako već izgleda uredno, ništa se neće dogoditi kada kliknemo naredbene gumbe na korisničkom obrascu.
10. U Project Exploreru dvaput kliknite UserForm1.
11. Dvaput kliknite gumb Idi.
12. Dodajte sljedeće retke koda:
Privatna pomoćna naredbaButton1_Click ()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Vrijednost
Postavi rng = Raspon (zbroj)
minimum = Funkcija radnog lista.Min (rng)
Za svaku ćeliju U rng
Ako je cell.Value = minimum Tada cell.Font.Color = vbRed
Sljedeća ćelija
Kraj podm
Objašnjenje: prvo, dobivamo adresu iz kontrole RefEdit i spremamo je u String varijablu addr. Zatim smo postavili rng na raspon naveden u kontroli RefEdit. Zatim koristimo funkciju radnog lista Min da pronađemo minimalnu vrijednost u rasponu. Na kraju, minimalnu vrijednost (e) bojimo pomoću petlje.
13. Dvaput kliknite gumb Odustani.
14. Dodajte sljedeći kodni redak:
Privatna pomoćna naredbaButton2_Click ()
Iskrcaj Me
Kraj podm
Objašnjenje: ovaj kodni redak zatvara Userform kada kliknete na gumb Odustani.
15. Testirajte Userform.
Proizlaziti:
