Uporabniški obrazec Excel VBA
Uporabniški obrazec v VBA so prilagojeni uporabniško določeni obrazci, ki so narejeni tako, da od uporabnika sprejmejo vnos v obliki obrazca, ima različne sklope kontrol, ki jih je treba dodati, na primer polja z besedilom, oznake potrditvenih polj itd. in vrednost shrani na delovni list, vsak del uporabniškega obrazca ima s seboj edinstveno kodo.
Userform je objekt v Excelovem vmesniku in znotraj tega uporabniškega obrazca lahko ustvarimo druga uporabna pogovorna okna po meri, s katerimi uporabnik pridobi podatke. Ko delate z makro datoteko, ki jo ustvari starejši ali jo lahko prenesete z interneta, ste morali videti tak uporabniški obrazec.
V tem članku vam bomo pokazali, kako ustvariti podoben uporabniški obrazec za shranjevanje podatkov od uporabnika.
Kako ustvariti uporabniški obrazec?
Tako kot vstavite nov modul na podoben način, morate klikniti gumb INSERT v urejevalniku Visual Basic, da vstavite Userform.
To predlogo VBA Userform Excel lahko prenesete tukaj - Predloga VBA Userform Excel
Takoj ko kliknete na to, bo vstavljen tudi uporabniški obrazec.
Preden vam povem, kako to programirati, naj vam pokažem, kako formatirati ta uporabniški obrazec.
Oblikovanje uporabniške oblike
Z izbiro uporabniške oblike pritisnite tipko F4, da se prikaže okno lastnosti.
S pomočjo tega okna lastnosti lahko formatiramo ta uporabniški obrazec, lahko ga poimenujemo, spremenimo barvo, slog obrobe itd.
Takole poskusite z drugimi lastnostmi, da si ogledate uporabniško obliko.
Zdaj za ta uporabniški obrazec vstavite Toolbox.
Zdaj bomo videli takšno orodje.
Trenutno je uporabniški obrazec samo vstavljen in ni programiran. Če želite vedeti, kako deluje, samo kliknite gumb za zagon, videli bomo obrazec na delovnem listu excela.
Zdaj uporabljamo nalepko ToolBox.
Besedilo vnesite kot ime zaposlenega znotraj nalepke.
Za to oznako lahko formatiramo z uporabo lastnosti. Zdaj smo besedilo vnesli kot »Ime zaposlenega:«, zdaj lahko to vidimo v oknu lastnosti pod Napisi.
Vstavite še eno nalepko. Če želite vstaviti še eno oznako, lahko kliknete na orodjarno ali pa povlečete trenutno oznako tako, da držite tipko Ctrl , dobili boste kopijo trenutne oznake.
Zdaj bomo imeli isto oznako.
Spremenite ime v ID zaposlenega.
Zdaj podobno vstavite še eno nalepko in jo poimenujte "Oddelek".
Zdaj iz orodjarne vstavite besedilno polje.
Poimenujte to besedilno polje kot EmpName v oknu lastnosti.
Tako kot vstavite še dve polji z besedilom ID-ja zaposlenega in oddelka. Poimenujte polja z besedilom v skladu z njihovimi naslovi.
Podobno naredite za oddelek.
Zdaj iz orodjarne vstavite ukazni gumb.
Spremenite ime ukaznega gumba v »SubmitButton« in spremenite napis v »Submit«.
Vstavite še en gumb in ga pokličite »Prekliči«.
Zdaj samo, da vidite zagon, pritisnite gumb za zagon ali uporabite tipko F5 in si oglejte, kako izgleda vaš uporabniški obrazec v Excelu.
Zdaj prihaja do oblike.
Koda VBA
Zdaj bo uporabnik v to vnesel podatke, zato ga moramo programirati za shranjevanje podatkov, ki jih je uporabnik vnesel v ta obrazec.
Dvokliknite gumb POŠLJI, pripeljal vas bo do okna makra s samodejno ustvarjenim makrom, kot je spodaj.
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.