Excel VBA lietotāja forma - Kā izveidot interaktīvu Userform?

Satura rādītājs

Excel VBA Userform

Excel VBA Userform

Lietotāja forma VBA ir pielāgotas lietotāja definētas veidlapas, kas tiek veidotas, lai ņemtu no lietotāja ieejas formas formā, tai ir dažādas pievienojamo vadīklu kopas, piemēram, tekstlodziņi, izvēles rūtiņu etiķetes utt., Lai lietotājam palīdzētu ievadīt vērtību un tā saglabā vērtību darblapā, katrai lietotāja veidlapas daļai ir unikāls kods.

Userform ir objekts Excel saskarnē, un šajā lietotāja formā mēs varam izveidot citus noderīgus pielāgotus dialoglodziņus, lai iegūtu datus no lietotāja. Kad strādājat ar makro failu, kuru izveidojis vecākais vai kuru var lejupielādēt no interneta, jums ir jābūt redzamam šādai lietotāja formai.

Šajā rakstā mēs parādīsim, kā izveidot līdzīgu lietotāja veidlapu, lai saglabātu lietotāja datus.

Kā izveidot Userform?

Tāpat kā tas, kā līdzīgi ievietojat jaunu moduli, Visual Basic Editor ir jānoklikšķina uz pogas IEVADĪT, lai ievietotu Userform.

Tiklīdz noklikšķināsiet uz šī, tiks ievietota arī lietotāja veidlapa.

Pirms es jums saku, kā to ieprogrammēt, ļaujiet man parādīt, kā formatēt šo lietotāja formu.

Lietotāja formas formatēšana

Atlasot lietotāja formu, nospiediet taustiņu F4, un tas parādīs rekvizītu logu.

Izmantojot šo rekvizītu logu, mēs varam formatēt šo lietotāja formu. Mēs to varam nosaukt. Mēs varam mainīt krāsu, apmales stilu utt.

Tāpat kā šis, izmēģiniet citas īpašības, lai redzētu lietotāju formu.

Tagad šai lietotāja formai ievietojiet rīkjoslu.

Tagad mēs redzēsim šādu rīkkopu.

Šajā brīdī lietotāja forma ir vienkārši ievietota, nevis ieprogrammēta. Lai uzzinātu, kā tas darbojas, vienkārši noklikšķiniet uz palaist pogu. Veidlapu redzēsim Excel darblapā.

Tagad izmantojat ToolBox zīmēšanas etiķeti.

Ievadiet tekstu kā darbinieka vārdu etiķetē.

Lai šo etiķeti varētu formatēt, izmantojot rekvizītus. Tagad mēs esam ievadījuši tekstu kā “Darbinieka vārds:”. Tagad to varam redzēt rekvizītu loga sadaļā Paraksti.

Ievietojiet vēl vienu etiķeti. Lai ievietotu vēl vienu etiķeti, varat noklikšķināt uz rīkjoslas vai vilkt pašreizējo etiķeti, turot nospiestu taustiņu Ctrl . Jums būs pašreizējās etiķetes kopija.

Tagad mums būs tā pati etiķete.

Mainiet vārdu uz Employee ID.

Tagad līdzīgi ievietojiet vēl vienu etiķeti un nosauciet to kā “Departaments”.

Tagad no rīkjoslas ievietojiet tekstlodziņu.

Nosauciet šo tekstlodziņu kā EmpName rekvizītu logā.

Šādi ievietojiet vēl divus tekstlodziņus no darbinieka ID un nodaļas. Nosauciet šos tekstlodziņus atbilstoši to virsrakstiem.

Tāpat dariet to departamenta labā.

Tagad no rīkjoslas ievietojiet komandu pogu.

Mainiet komandas pogas nosaukumu uz “SubmitButton” un nomainiet parakstu uz “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 ir nosaukums, kuru mēs saņēmām userform . MyUserForm.Hide nozīmē, ka, noklikšķinot uz pogas ATCELT, lietotāja forma tiks paslēpta.

Labi, tagad darblapā izveidojiet šādu veidni.