/ / Formate de utilizator Excel și VBA

Formate de utilizator VBA Excel și Domenii

Puteți utiliza a RefEdit control în Excel VBA pentru a obține o gamă de la un utilizator. userform vom crea culori valoarea minimă a gamă stocate în controlul RefEdit.

Formele de utilizator și intervalele din Excel VBA

Pentru a crea această formă de utilizator, executați următorii pași.

1. Deschideți Editorul Visual Basic. Dacă Project Explorer nu este vizibil, faceți clic pe Vizualizare, Project Explorer.

2. Faceți clic pe Inserare, Formă utilizator. Dacă Toolbox-ul nu apare automat, faceți clic pe View (Vizualizare), Toolbox (Instrumente). Ecranul dvs. trebuie să fie configurat ca mai jos.

Setarea ecranului utilizatorului în Excel VBA

3. Adăugați eticheta, butonul de comandă RefEdit și butoanele de comandă. Odată terminată, rezultatul ar trebui să fie în concordanță cu imaginea formularului de utilizator afișat mai devreme. 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 selectați Ref Edit Control.

4. Puteți modifica numele și subtitrarea comenzilor. Numele sunt utilizate în codul Excel VBA. Titlurile sunt cele care apar pe ecran. Este o practică bună schimbarea numelor comenzilor, dar nu este necesară aici, deoarece avem doar câteva controale în acest exemplu. Pentru a modifica legenda butoanelor Userform, eticheta și comanda, faceți clic pe Vizualizare, pe fereastra de proprietăți și faceți clic pe fiecare comandă.

5. Pentru a afișa Userform, plasați un buton de comandă pe foaia de lucru și adăugați următoarea linie de cod:

Private Sub CommandButton1_Click()

UserForm1.Show

End Sub

Acum vom crea Sub UserForm_Initialize. Când utilizați metoda de afișare pentru formularul de utilizator, această secțiune 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 (Vizualizare cod).

8. Selectați Format utilizator din lista verticală stânga. Selectați Inițializare din lista derulantă din dreapta.

9. Adăugați următoarele linii de cod:

Private Sub UserForm_Initialize()

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

End Sub

Explicație: prima linie de cod modifică culoarea fonturilor tuturor celulelor de pe foaia1 la negru. A doua linie de cod obține adresa de selecție curentă și o afișează în controlul RefEdit.

Am creat acum prima parte a Userform. Deși arată deja bine, nimic nu se va întâmpla încă atunci când faceți 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
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

Explicaţie: în primul rând, primim adresa din controlul RefEdit și îl stocăm în addr-ul variabilei String. Apoi, setăm rng la intervalul specificat în controlul RefEdit. Apoi, folosim funcția foaie de lucru Min pentru a găsi valoarea minimă în interval. În cele din urmă, culoram valoarea (valorile) minime folosind o buclă.

13. Faceți dublu clic pe butonul Anulare.

14. Adăugați următoarea linie de cod:

Private Sub CommandButton2_Click()

Unload Me

End Sub

Explicație: această linie de cod închide Formatul de utilizator când faceți clic pe butonul Anulare.

15. Testați formatul de utilizare.

Rezultat:

Formatul de utilizator și rezultatul rezultatelor

De asemenea, citiți: