Excel VBA-gebruikersformulier
Gebruikersformulier in VBA zijn aangepaste, door de gebruiker gedefinieerde formulieren die zijn gemaakt om input van een gebruiker te ontvangen in de indeling van een formulier, het heeft verschillende sets bedieningselementen om toe te voegen, zoals tekstvakken, selectievakjes, labels, enz. Om een gebruiker te begeleiden bij het invoeren van een waarde en het slaat de waarde op in het werkblad, elk deel van het gebruikersformulier heeft een unieke code.
Userform is een object binnen de Excel-interface en binnen dit gebruikersformulier kunnen we andere handige aangepaste dialoogvensters maken om de gegevens van de gebruiker te krijgen. Wanneer u werkt met een macrobestand dat is aangemaakt door uw senior of kan worden gedownload van internet, moet u een gebruikersformulier als dit hebben gezien.
In dit artikel laten we u zien hoe u een vergelijkbaar gebruikersformulier kunt maken om de gegevens van de gebruiker op te slaan.
Hoe maak je een gebruikersformulier aan?
Net als hoe u op dezelfde manier een nieuwe module invoegt, moet u op de INSERT-knop in Visual Basic Editor klikken om Userform in te voegen.
Zodra je hierop klikt, wordt ook het gebruikersformulier ingevoegd.
Voordat ik je vertel hoe je dit moet programmeren, wil ik je laten zien hoe je dit gebruikersformulier moet opmaken.
Gebruikersformulier opmaken
Door het gebruikersformulier te selecteren, drukt u op de F4-toets, het zal u het eigenschappenvenster tonen.
Met behulp van dit eigenschappenvenster kunnen we dit gebruikersformulier opmaken. We kunnen het noemen. We kunnen de kleur, randstijl, enz. Veranderen …
Probeer op deze manier andere eigenschappen om het gebruikersformulier te zien.
Voeg nu Toolbox in voor dit gebruikersformulier.
Nu zullen we een toolbox als deze zien.
Op dit moment is het gebruikersformulier gewoon ingevoegd, niet geprogrammeerd. Om te weten hoe het werkt, klikt u op de knop Uitvoeren. We zullen het formulier op het Excel-werkblad zien.
Gebruik nu het ToolBox-tekenlabel.
Voer de tekst in als werknemersnaam binnen het label.
Voor dit label kunnen we dus opmaken met behulp van eigenschappen. Nu hebben we de tekst ingevoerd als “Medewerker Naam:” nu kunnen we dit zien in het eigenschappenvenster onder Bijschriften.
Voeg nog een label in. Om nog een label in te voegen, kunt u ofwel op een gereedschapskist klikken, of u kunt het huidige label slepen door de Ctrl- toets ingedrukt te houden. Je hebt een replica van het huidige label.
Nu hebben we hetzelfde label.
Wijzig de naam in Werknemers-ID.
Voeg nu op dezelfde manier nog een label in en noem het "Afdeling".
Voeg nu vanuit de toolbox een tekstvak in.
Noem dit tekstvak EmpName in het eigenschappenvenster.
Voeg op deze manier nog twee tekstvakken in van respectievelijk Werknemer-ID & Afdeling. Geef die tekstvakken een naam volgens hun kop.
Doe het ook voor de afdeling.
Voeg nu vanuit de toolbox de Command-knop in.
Wijzig de naam van de opdrachtknop in "SubmitButton" en verander het bijschrift in "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 is de naam die we aan het gebruikersformulier hadden gegeven. MyUserForm.Hide betekent dat wanneer u op de knop ANNULEREN klikt, het gebruikersformulier wordt verborgen.
Ok, maak nu een sjabloon zoals deze in het werkblad.
Verwijder alle andere bladen in de werkmap behalve dit sjabloonblad.
Ga nu naar Visual Basic Editor.
En voer de macro uit met behulp van de F5-toets of handmatig, we zullen het gebruikersformulier voor ons zien.
Voer de naam van de werknemer, de ID van de werknemer en de naam van de afdeling in.
Als u nu op de knop VERZENDEN klikt, worden de waarden opgeslagen in de sjabloon die we hebben gemaakt.
Zo kun je de namen blijven invoeren. Het gebruikersformulier zal de waarden blijven opslaan die door de gebruiker zijn ingevoerd in de opgegeven cellen.
Dus door GEBRUIKERSFORMULIER te gebruiken, kunnen we eigenlijk prachtige projecten maken om de informatie van de gebruiker te krijgen.
