Formular de utilizator Excel VBA
Formularul de utilizator în VBA sunt formulare personalizate definite de utilizator, care sunt făcute pentru a prelua intrarea de la un utilizator în formatul unui formular, are seturi diferite de controale pentru a adăuga, cum ar fi casete de text, casete de selectare etichete, etc pentru a ghida un utilizator să introducă o valoare și stochează valoarea în foaia de lucru, fiecare parte a formularului de utilizator are un cod unic.
Userform este un obiect din interfața Excel și în interiorul acestui formular de utilizator, putem crea alte casete de dialog personalizate utile pentru a obține datele de la utilizator. Când lucrați cu un fișier macro creat de seniorul dvs. sau care poate fi descărcat de pe internet, trebuie să fi văzut o formă de utilizator ca aceasta.
În acest articol, vă vom arăta cum să creați un formular de utilizator similar pentru a stoca datele de la utilizator.
Cum se creează un formular de utilizator?
Ca și cum introduceți un nou modul în mod similar, trebuie să faceți clic pe butonul INSERT în Visual Basic Editor pentru a insera Userform.
Puteți descărca acest șablon VBA Userform Excel aici - Șablon VBA Userform Excel
De îndată ce faceți clic pe acesta, va fi inserat și formularul de utilizator.
Înainte de a vă spune cum să programați acest lucru, permiteți-mi să vă arăt cum să formatați acest formular de utilizator.
Formatarea formularului de utilizator
Prin selectarea formei de utilizator apăsați tasta F4, acesta vă va afișa fereastra de proprietăți.
Folosind această fereastră de proprietăți putem forma acest formular de utilizator, îl putem denumi, putem schimba culoarea, stilul chenarului etc.
În acest fel, încercați alte proprietăți pentru a vedea imaginea utilizatorului.
Acum, pentru acest formular de utilizator, introduceți Caseta de instrumente.
Acum vom vedea o cutie de instrumente ca aceasta.
În acest moment, formularul de utilizator este doar inserat, nu este programat. Pentru a afla cum funcționează, trebuie doar să faceți clic pe butonul Executare, vom vedea formularul pe foaia de lucru Excel.
Acum folosim eticheta de desenare ToolBox.
Introduceți textul ca nume de angajat în interiorul etichetei.
Pentru această etichetă, astfel încât să putem formata folosind proprietăți. Acum am introdus textul ca „Numele angajatului:” acum putem vedea acest lucru în fereastra de proprietăți din Subtitrări.
Introduceți încă o etichetă. Pentru a insera încă o etichetă, puteți face clic pe o cutie de instrumente sau puteți trage eticheta curentă ținând apăsată tasta Ctrl , veți avea o replică a etichetei curente.
Acum vom avea aceeași etichetă.
Schimbați numele în ID angajat.
Acum, în mod similar, introduceți încă o etichetă și denumiți-o ca „Departament”.
Acum, din caseta de instrumente, introduceți o casetă de text.
Denumiți această casetă de text ca EmpName în fereastra de proprietăți.
În acest fel, introduceți încă două casete de text din ID-ul angajaților și respectiv Departamentul. Denumiți acele casete de text conform titlului lor.
În mod similar, faceți-o pentru Departament.
Acum, din caseta de instrumente, introduceți butonul de comandă.
Schimbați numele butonului de comandă la „SubmitButton” și schimbați subtitrarea la „Submit”.
Introduceți încă un buton și numiți-l „Anulare”.
Acum, doar pentru a vedea rularea, apăsați butonul Rulați sau utilizați tasta F5 și vedeți cum arată forma dvs. de utilizator în Excel.
Acum se apropie de formă.
Cod VBA
Acum utilizatorul va introduce date în acest lucru, deci trebuie să programăm acest lucru pentru a stoca datele introduse de utilizator în acest formular.
Faceți dublu clic pe butonul TRIMITE, vă va duce la fereastra macro cu o macro creată automat, ca cea de mai jos.
It says SubmitButton click, remember we had given a name for SUBMIT button as SubmitButton.
So, whenever we want to call this button we can call this by this name (submit button). Inside this macro copy and paste the below code.
Code:
Private Sub SubmitButton_Click() Dim LR As Long LR = Cells(Rows.Count, 1).End(xlUp).Row + 1 Cells(LR, 1).Value = EmpName.Value Cells(LR, 2).Value = EmpID.Value Cells(LR, 3).Value = Dept.Value EmpName.Value = "" EmpID.Value = "" Dept.Value = "" End Sub
- EmpName.Value here EmpName is the text box name we had given while creating the employee name text box.
- EmpID.Value here EmpID is the text box name of Employee ID text box.
- Dept.Value this is department text box name.
So, on the click on submit button it will store the values in the mentioned cells.
Now double click on Cancel button, this will also show you the auto macro name like this.
Copy the below code and paste.
Code:
Private Sub CancelButton_Click() MyUserForm.Hide End Sub
MyUserForm is the name we had given to the userform. MyUserForm.Hide means on the click on the CANCEL button it will hide the userform.
Ok, now create a template like this in the worksheet.
Delete all the other sheets in the workbook except this template sheet.
Now go to Visual Basic Editor.
And run the macro using F5 key or manually, we will see user form in front of us.
Enter the employee name, employee id, and Department name.
Now if you click on the SUBMIT button, it will store the values on to the template we have created.
Like this you can keep entering the names, userform will keep storing the values entered by the user in the specified cells.
So by using USER FORM, we can actually create wonderful projects to get the information from the user.