Excel VBA korisnički obrazac
Korisnički obrazac u VBA prilagođeni su korisnički definirani obrasci koji su napravljeni da uzimaju unos od korisnika u formatu obrasca, on ima različite setove kontrola za dodavanje, poput tekstualnih okvira, oznaka okvira za potvrdu itd. Koji vode korisnika da unese vrijednost i vrijednost pohranjuje u radni list, svaki dio korisničkog obrasca ima jedinstveni kod.
Userform je objekt unutar Excel sučelja i unutar ovog korisničkog obrasca možemo stvoriti druge korisne prilagođene dijaloške okvire za dobivanje podataka od korisnika. Kada radite s makro datotekom koju je stvorio vaš stariji ili je možete preuzeti s interneta, sigurno ste vidjeli ovakav korisnički obrazac.
U ovom ćemo vam članku pokazati kako stvoriti sličan korisnički obrazac za pohranu podataka od korisnika.
Kako stvoriti korisnički obrazac?
Kao što na sličan način umetnete novi modul, morate kliknuti gumb INSERT u programu Visual Basic Editor da biste umetnuli Userform.
Ovaj predložak VBA Userform Excel možete preuzeti ovdje - VBA User obrazac Excel predložak
Čim kliknete na ovo, umetnut će se i korisnički obrazac.
Prije nego što vam kažem kako ovo programirati, pokazat ću vam kako formatirati ovaj korisnički obrazac.
Oblikovanje korisničkog oblika
Odabirom korisničkog obrasca pritisnite tipku F4, prikazat će vam prozor svojstava.
Pomoću ovog prozora svojstava možemo formatirati ovaj korisnički obrazac, možemo mu dati ime, možemo promijeniti boju, stil obruba itd ...
Ovako isprobajte druga svojstva da biste stekli pogled na korisnički oblik.
Sada za ovaj korisnički umetanje Toolbox.
Sad ćemo vidjeti ovakav alat.
Trenutno je korisnički obrazac samo umetnut i nije programiran. Da biste znali kako to radi, samo kliknite gumb za pokretanje, vidjet ćemo obrazac na Excelovom radnom listu.
Sada se koristi oznaka za crtanje ToolBox.
Unesite tekst kao ime zaposlenika unutar naljepnice.
Za ovu naljepnicu, tako da možemo formatirati pomoću svojstava. Sad smo tekst unijeli kao “Ime zaposlenika:”, sada to možemo vidjeti u prozoru svojstava pod naslovom.
Umetnite još jednu naljepnicu. Da biste umetnuli još jednu naljepnicu, možete kliknuti na okvir s alatima ili povući trenutnu naljepnicu držanjem tipke Ctrl , imat ćete kopiju trenutne naljepnice.
Sad ćemo imati istu oznaku.
Promijenite ime u ID zaposlenika.
Sada slično umetnite još jednu naljepnicu i nazovite je "Odjel".
Sada iz okvira s alatima umetnite okvir za tekst.
Nazovite ovaj okvir za tekst imenom EmpName u prozoru svojstava.
Poput ovog umetnite još dva okvira za tekst iz ID-a zaposlenika i odjela. Nazovite one okvire za tekst prema njihovom naslovu.
Slično tome, učinite to za odjel.
Sada iz okvira s alatima umetnite naredbeni gumb.
Promijenite naziv naredbenog gumba u "SubmitButton" i promijenite naslov u "Submit".
Umetnite još jedan gumb i nazovite ga "Odustani".
Sada samo da vidite pokretanje, pritisnite gumb za pokretanje ili upotrijebite tipku F5 i pogledajte kako izgleda vaš korisnički obrazac u Excelu.
Sada dolazi do oblika.
VBA kod
Sada će korisnik unijeti podatke u ovo, pa ga moramo programirati za pohranu podataka koje je korisnik unio u ovaj obrazac.
Dvaput kliknite gumb PRIJAVI, odvest će vas do prozora makronaredbe s automatski stvorenom makronaredbom kao što je dolje.
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.