„Excel VBA“ vartotojo forma
„VBA“ naudotojo forma yra pritaikytos vartotojo nustatytos formos, kurios yra sukurtos tam, kad būtų imamas iš vartotojo įvestas formos formatas. Joje yra įvairių valdiklių rinkinių, kuriuos galima pridėti, pvz., Teksto laukelius, žymimųjų langelių etiketes ir kt., Kad vartotojas galėtų įvesti vertę ir ji saugo vertę darbalapyje, kiekvienoje vartotojo formos dalyje yra unikalus kodas.
„Userform“ yra „Excel“ sąsajos objektas, o šioje vartotojo formoje galime sukurti kitus naudingus pasirinktinius dialogo langus, kad gautume duomenis iš vartotojo. Kai dirbate su makrokomanda, kurią sukūrė jūsų vyresnysis narys arba kurią galite atsisiųsti iš interneto, turite būti matę tokią vartotojo formą.
Šiame straipsnyje parodysime, kaip sukurti panašią vartotojo formą, kad būtų saugomi vartotojo duomenys.
Kaip sukurti „Userform“?
Kaip ir tai, kaip panašiai įterpiate naują modulį, norėdami įterpti „Userform“, turite spustelėti mygtuką „Įterpti“ Visual Basic Editor.
Kai tik spustelėsite tai, bus įterpta ir vartotojo forma.
Prieš sakydamas, kaip tai užprogramuoti, leiskite man parodyti, kaip formatuoti šią vartotojo formą.
„Userform“ formatavimas
Pasirinkę vartotojo formą, paspauskite klavišą F4, jis parodys ypatybių langą.
Naudodami šį ypatybių langą galime formatuoti šią vartotojo formą. Mes galime tai įvardinti. Mes galime pakeisti spalvą, sienų stilių ir kt.
Pabandykite kitas savybes, kad pamatytumėte vartotojo formą.
Dabar, naudodamiesi šia vartotojo forma, įdėkite „Toolbox“.
Dabar pamatysime tokį įrankių rinkinį.
Šiuo metu vartotojo forma tiesiog įterpiama, o ne užprogramuojama. Norėdami sužinoti, kaip tai veikia, tiesiog spustelėkite paleidimo mygtuką. Formą pamatysime „Excel“ darbalapyje.
Dabar naudojate „ToolBox“ piešimo etiketę.
Etiketėje įveskite tekstą kaip darbuotojo vardą.
Šią etiketę galime formatuoti naudodami ypatybes. Dabar mes įvedėme tekstą kaip „Darbuotojo vardas:“. Dabar tai galime pamatyti ypatybių lango dalyje Antraštės.
Įdėkite dar vieną etiketę. Norėdami įterpti dar vieną etiketę, galite spustelėti įrankių dėžutę arba vilkti dabartinę etiketę laikydami nuspaudę klavišą „ Ctrl“ . Turėsite dabartinės etiketės kopiją.
Dabar turėsime tą pačią etiketę.
Pakeiskite vardą į Darbuotojo ID.
Dabar panašiai įdėkite dar vieną etiketę ir pavadinkite ją „Departamentas“.
Dabar iš įrankių dėžutės įterpkite teksto laukelį.
Pavadinkite šį teksto laukelį EmpName ypatybių lange.
Panašiai įterpkite dar du teksto laukelius iš darbuotojų ID ir departamento. Pavadinkite tuos teksto laukelius pagal jų antraštę.
Panašiai darykite tai Departamentui.
Dabar iš įrankių dėžutės įdėkite komandų mygtuką.
Pakeiskite komandos mygtuko pavadinimą į „SubmitButton“ ir pakeiskite antraštę į „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“ yra vardas, kurį suteikėme vartotojo formai. „MyUserForm.Hide“ reiškia, kad paspaudus mygtuką ATŠAUKTI, paslėps vartotojo formą.
Gerai, dabar sukurkite tokį šabloną darbalapyje.
Ištrinkite visus kitus darbaknygės lapus, išskyrus šį šablono lapą.
Dabar eikite į „Visual Basic“ redaktorių.
Ir paleiskite makrokomandą naudodami F5 klavišą arba rankiniu būdu, mes pamatysime vartotojo formą priešais save.
Įveskite darbuotojo vardą, darbuotojo ID ir skyriaus pavadinimą.
Dabar, jei spustelėsite mygtuką PATEIKTI, jis išsaugos vertes mūsų sukurtame šablone.
Taip galite toliau įvesti vardus. „Userform“ toliau išsaugos vartotojo įvestas vertes nurodytuose langeliuose.
Taigi, naudodami VARTOTOJO FORMĄ, iš tikrųjų galime sukurti nuostabius projektus, kad gautume informaciją iš vartotojo.
