/ / Excel VBA Userform i rasponi

Excel VBA Userform i rasponi

Možete koristiti a RefEdit kontrolu u Excel VBA da biste dobili raspon od korisnika. Userform mi ćemo stvoriti boje minimalnu vrijednost raspon pohranjene u RefEdit kontrolu.

Userform i rasponi u programu Excel VBA

Da biste stvorili ovaj Userform, izvršite sljedeće korake.

1. Otvorite Visual Basic Editor. Ako Project Explorer nije vidljiv, kliknite View, Project Explorer.

2. Kliknite Insert, Userform. Ako Toolbox ne pojavljuje automatski, kliknite View, Toolbox. Vaš bi se zaslon trebao postaviti kao u nastavku.

Postavljanje zaslona korisničkog formata u programu Excel VBA

3. Dodajte oznake, gumbi RefEdit i upravljačke tipke. Kada to završi, rezultat bi trebao biti u skladu s prethodno prikazanom korisničkom obrascu. Na primjer, izradite kontrolu RefEdit klikom na RefEdit iz Toolboxa. Zatim možete povući RefEdit kontrolu na Userform.

Napomena: Ako vaš alatni okvir nema RefEdit kontrolu, postavite referencu na RefEdit kontrolu. Kliknite Alati, Reference i označite Ref Edit Control.

4. Možete promijeniti nazive i opise kontrola. Imena se koriste u Excel VBA kodu. Opisi su oni koji se pojavljuju na vašem zaslonu. Dobra je praksa mijenjati nazive kontrolnih jedinica, ali ovdje nije nužno jer imamo samo nekoliko kontrola u ovom primjeru. Da biste promijenili naslov gumba Userform, oznaka i naredbe, kliknite Prikaz, Prozor svojstava i kliknite na svaku kontrolu.

5. Da biste prikazali Userform, stavite gumb naredbe na radni list i dodajte sljedeću liniju koda:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Sad ćemo stvoriti Sub UserForm_Initialize. Kada koristite metodu Prikaži za Korisnički obrazac, ovaj će podvrgnuti automatski.

6. Otvorite Visual Basic Editor.

7. U Project Exploreru desnom tipkom miša kliknite UserForm1 i zatim kliknite View Code.

8. S padajućeg popisa s lijeve strane odaberite Userform. Na padajućem popisu odaberite Inicijaliziraj.

9. Dodajte sljedeće retke koda:

Private Sub UserForm_Initialize()

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

End Sub

Objašnjenje: prva linija koda mijenja boju fonta svih ćelija na listi1 do crne boje. Druga linija koda dobiva adresu trenutnog odabira i prikazuje je u RefEdit kontrolu.

Sada smo stvorili prvi dio Korisničkog obrasca. Iako već izgleda uredno, ništa se neće dogoditi kada kliknemo gumbe za naredbe na korisničkom obrascu.

10. U Project Exploreru dvaput kliknite UserForm1.

11. Dvokliknite gumb Go (Idi).

12. Dodajte sljedeće retke koda:

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

Obrazloženje: prvo, dobivamo adresu iz RefEdit kontrole i spremimo ga u Stringovu varijablu. Zatim postavljamo rng u raspon naveden u upravljačkom programu RefEdit. Zatim koristimo funkciju radnog lista Min kako bi pronašli minimalnu vrijednost u rasponu. Konačno, bojujemo minimalnu vrijednost (e) s petljom.

13. Dvaput kliknite na gumb Odustani.

14. Dodajte sljedeću retku koda:

Private Sub CommandButton2_Click()

Unload Me

End Sub

Objašnjenje: ova linija koda zatvara Userform kada kliknete gumb Odustani.

15. Ispitajte Userform.

Proizlaziti:

Rezultat korisničkog oblika i raspona

Također pročitajte: