Puteți utiliza un Control RefEdit în Excel VBA pentru a obține o gamă de la un utilizator. Formular de utilizator vom crea culori cu valoarea minimă a gamă stocate în controlul RefEdit.
Pentru a crea acest formular de utilizator, executați pașii următori.
1. Deschideți Editorul Visual Basic. Dacă Project Explorer nu este vizibil, faceți clic pe View, Project Explorer.
2. Faceți clic pe Insert, Userform. Dacă Caseta de instrumente nu apare automat, faceți clic pe Vizualizare, Casetă de instrumente. Ecranul dvs. ar trebui să fie configurat după cum urmează.
3. Adăugați eticheta, butonul de comandă RefEdit și comanda. Odată ce acest lucru a fost finalizat, rezultatul ar trebui să fie în concordanță cu imaginea Formei de utilizator prezentată anterior. De exemplu, creați un control RefEdit făcând clic pe RefEdit din caseta de instrumente. Apoi, puteți trage un control RefEdit pe Userform.
Notă: Dacă caseta dvs. de instrumente nu are un control RefEdit, setați o referință la controlul RefEdit. Faceți clic pe Instrumente, Referințe și bifați Ref Edit Control.
4. Puteți schimba numele și subtitrările comenzilor. Numele sunt utilizate în codul VBA Excel. Subtitrările sunt cele care apar pe ecran. Este o bună practică să schimbați numele comenzilor, dar nu este necesar aici, deoarece avem doar câteva controale în acest exemplu. Pentru a schimba subtitrarea Formei de utilizator, etichetei și butoanelor de comandă, faceți clic pe Vizualizare, fereastră Proprietăți și faceți clic pe fiecare control.
5. Pentru a afișa forma de utilizator, plasați un buton de comandă pe foaia de lucru și adăugați următoarea linie de cod:
Private Sub CommandButton1_Click ()
UserForm 1. Afișați
Sfârșitul Sub
Vom crea acum Sub UserForm_Initialize. Când utilizați metoda Afișare pentru formularul de utilizator, acest sub va fi executat automat.
6. Deschideți Editorul Visual Basic.
7. În Project Explorer, faceți clic dreapta pe UserForm1 și apoi faceți clic pe View Code.
8. Alegeți Userform din lista derulantă din stânga. Alegeți Inițializare din lista verticală dreaptă.
9. Adăugați următoarele linii de cod:
Private Sub UserForm_Initialize ()
Sheet1.Cells.Font.Color = vbBlack
UserForm1.RefEdit1.Text = Selecție.Adresă
Sfârșitul Sub
Explicație: prima linie de cod schimbă culoarea fontului tuturor celulelor de pe foaia 1 în negru. A doua linie de cod obține adresa selecției curente și o afișează în controlul RefEdit.
Acum am creat prima parte a Formularului de utilizare. Deși pare deja îngrijit, nimic nu se va întâmpla încă atunci când facem clic pe butoanele de comandă de pe Userform.
10. În Project Explorer, faceți dublu clic pe UserForm1.
11. Faceți dublu clic pe butonul Go.
12. Adăugați următoarele linii de cod:
Private Sub CommandButton1_Click ()
Dim addr As String, rng, cell As Range, minimum As Double
addr = RefEdit1.Value
Setați rng = Range (addr)
minimum = WorksheetFunction.Min (rng)
Pentru fiecare celulă din rng
Dacă celula.Valoare = minim Apoi celula.Font.Color = vbRed
Următoarea celulă
Sfârșitul Sub
Explicație: mai întâi, obținem adresa din controlul RefEdit și o stocăm în variabila String addr. Apoi, setăm rng la intervalul specificat în controlul RefEdit. Apoi, folosim funcția de foaie de lucru Min pentru a găsi valoarea minimă în interval. În cele din urmă, colorăm valoarea (valorile) minimă (e) folosind o buclă.
13. Faceți dublu clic pe butonul Anulare.
14. Adăugați următoarea linie de cod:
Private Sub CommandButton2_Click ()
Descarcă-mă
Sfârșitul Sub
Explicație: această linie de cod închide formularul de utilizator când faceți clic pe butonul Anulare.
15. Testați forma de utilizator.
Rezultat:
