Excel VBA-brukerskjema - Hvordan lage et interaktivt brukerskjema?

Excel VBA brukerskjema

Brukerform i VBA er tilpassede brukerdefinerte skjemaer som er laget for å ta inndata fra en bruker i formatet til et skjema, den har forskjellige sett med kontroller for å legge til, for eksempel tekstbokser, avmerkingsbokser, etiketter osv. For å veilede en bruker til å legge inn en verdi og den lagrer verdien i regnearket, hver del av brukerskjemaet har en unik kode med seg.

Userform er et objekt i Excel-grensesnittet, og inne i dette brukerskjemaet kan vi lage andre nyttige tilpassede dialogbokser for å få data fra brukeren. Når du jobber med en makrofil som er opprettet av eldre eller som kan lastes ned fra internett, må du ha sett et brukerformular som dette.

I denne artikkelen vil vi vise deg hvordan du lager et lignende brukerskjema for å lagre dataene fra brukeren.

Hvordan lage brukerform?

Som hvordan du setter inn en ny modul på samme måte, må du klikke på INSERT-knappen i Visual Basic Editor for å sette inn Userform.

Så snart du klikker på dette, blir også brukerskjemaet satt inn.

Før jeg forteller deg hvordan du programmerer dette, la meg vise deg hvordan du formaterer dette brukerskjemaet.

Formatering av brukerform

Ved å velge brukerform, trykk på F4-tasten, den viser deg eiendomsvinduet.

Ved å bruke dette egenskapsvinduet kan vi formatere dette brukerskjemaet. Vi kan nevne det. Vi kan endre farge, kantstil osv. …

Som dette, prøv andre egenskaper for å få synet på brukerformen.

Nå for denne brukerformen, sett inn verktøykasse.

Nå får vi se en verktøykasse som denne.

For øyeblikket er brukerformen bare satt inn, ikke programmert. For å vite hvordan det fungerer, er det bare å klikke på Run-knappen. Vi ser skjemaet på Excel-regnearket.

Bruk nå tegneetiketten for verktøykasse.

Skriv inn teksten som ansattnavn inne i etiketten.

For denne etiketten, slik at vi kan formatere ved hjelp av egenskaper. Nå har vi lagt inn teksten som “Ansattes navn:” nå kan vi se dette i eiendomsvinduet under Tekster.

Sett inn en etikett til. For å sette inn en etikett til, kan du enten klikke på en verktøykasse, eller du kan dra den nåværende etiketten ved å holde Ctrl- tasten. Du vil ha en kopi av den nåværende etiketten.

Nå skal vi ha samme etikett.

Endre navnet til ansatt-ID.

Sett nå inn en etikett til og navngi den som "Avdeling".

Nå fra verktøykassen, sett inn en tekstboks.

Navngi denne tekstboksen som EmpName i eiendomsvinduet.

Sett inn to tekstbokser fra henholdsvis ansattes ID og avdeling. Nevn tekstboksene i henhold til overskriften.

Tilsvarende gjør det for avdelingen.

Nå fra verktøykassen, sett inn kommandoknappen.

Endre navnet på kommandoknappen til “SubmitButton” og endre bildeteksten til “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 er navnet vi hadde gitt brukerformen. MyUserForm.Hide betyr at ved å klikke på AVBRYT-knappen vil det skjule brukerformen.

Ok, lag nå en mal som dette i regnearket.

Slett alle de andre arkene i arbeidsboken unntatt dette malarket.

Gå nå til Visual Basic Editor.

Og kjør makroen ved hjelp av F5-tasten eller manuelt, vi ser brukerformularen foran oss.

Skriv inn ansattens navn, ansattes ID og avdelingsnavnet.

Nå, hvis du klikker på SUBMIT-knappen, vil den lagre verdiene på malen vi har opprettet.

Slik kan du fortsette å skrive inn navnene. Brukerformen vil fortsette å lagre verdiene som er angitt av brukeren i de angitte cellene.

Så ved å bruke USER FORM kan vi faktisk lage fantastiske prosjekter for å få informasjonen fra brukeren.