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 acest 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?
La fel 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.
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, aceasta vă va afișa fereastra de proprietăți.
Folosind această fereastră de proprietăți, putem forma acest formular de utilizator. O putem numi. Putem schimba culoarea, stilul chenarului etc.
În felul acesta, încercați alte proprietăți pentru a vedea imaginea utilizatorului.
Acum, pentru acest formular de utilizator, introduceți Toolbox.
Acum vom vedea o cutie de instrumente ca aceasta.
În acest moment, forma de utilizator este doar inserată, nu 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 sub Subtitrări.
Introduceți încă o etichetă. Pentru a insera încă o etichetă, fie puteți face clic pe o cutie de instrumente, fie 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”.
Insert one more button and call it “Cancel.”
Now just to see run, press the run button or use the F5 key and see how your userform looks like in Excel.
Now it is coming to the shape.
VBA Code
Now the user will enter data in this, so we need to program this to store the data entered by the user on this form.
Double click on the SUBMIT button, it will take you to the macro window with an auto-created macro like the below.
It says SubmitButton click, remember we had given a name for the 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 the Employee ID text box.
- Dept.Value this is the department text box name.
So, on the click on the submit button, it will store the values in the mentioned cells.
Now double click on the 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 este numele pe care l-am dat formei de utilizator. MyUserForm.Hide înseamnă că, făcând clic pe butonul CANCEL, va ascunde forma de utilizator.
Ok, acum creați un șablon ca acesta în foaia de lucru.
Ștergeți toate celelalte foi din registrul de lucru, cu excepția acestei foi de șablon.
Acum mergeți la Visual Basic Editor.
Și rulați macrocomanda folosind tasta F5 sau manual, vom vedea formularul utilizatorului în fața noastră.
Introduceți numele angajatului, ID-ul angajatului și numele departamentului.
Acum, dacă faceți clic pe butonul SUBMIT, acesta va stoca valorile pe șablonul pe care l-am creat.
În acest fel, puteți continua să introduceți numele. Formularul de utilizator va continua să stocheze valorile introduse de utilizator în celulele specificate.
Prin urmare, folosind USER FORM, putem crea de fapt proiecte minunate pentru a obține informații de la utilizator.
