VBA UserForm - Hoe UserForm in Excel te maken met behulp van VBA-code?

Excel VBA UserForm

In Excel VBA hebben we een zeer handige tool die bekend staat als UserForm. Het is een praktische manier om informatie van een gebruiker te krijgen. Wat is een UserForm in VBA? UserForm is als een tovenaarsvak of een dialoogvenster waarin we gebruikers vragen gegevens in te voeren en waarop enkele instructies staan.

VBA UserForm is ook ingebouwd in Excel en kan worden gemaakt door de ontwikkelaars. Om het VBA-gebruikersformulier eerst te gebruiken, moeten we het tabblad Ontwikkelaar activeren via het tabblad Opties. Zodra het tabblad voor ontwikkelaars is geactiveerd, kunnen we doorgaan in Excel VBA en UserForms maken. Gebruikersformulieren worden gebruikt om gegevens op te slaan in Excel. Het kan worden vergeleken met Google-formulieren waar we een specifieke set instructies hebben en de gebruiker vragen gegevens in te voeren volgens de instructies.

UserForm wordt overal veel gebruikt. In UserForm worden de door de gebruiker ingevoerde gegevens opgeslagen in de bijbehorende kolom. Het is de meest praktische manier om Excel uit te voeren van de gebruiker en de gegevens op te slaan in Excel relatief op de juiste locatie.

Hoe UserForm te maken in Excel VBA?

Hieronder staan de verschillende voorbeelden om UserForm in Excel te maken met behulp van VBA-code.

U kunt deze VBA UserForm Excel-sjabloon hier downloaden - VBA UserForm Excel-sjabloon

Excel VBA UserForm - Voorbeeld # 1

Laten we eerst naar de basis van het UserForm gaan. Hoe een UserForm te bekijken en wat een UserForm is.

Ga in Excel-werkblad naar het tabblad Ontwikkelaar en klik op de Visual Basic-editor.

Hoe voegen we nu een gebruikersformulier toe aan dit lege scherm? Klik in het invoeggereedschap op UserForms.

Er wordt een nieuw wizardvenster geopend en dit is leeg. Dit is ons lege gebruikersformulier.

Het wordt momenteel userform1 genoemd omdat we het nog geen naam hebben gegeven. We kunnen dat doen door de naam ervan te wijzigen via de optie aan de linkerkant van het scherm.

Laten we de naam in voorbeeldvorm wijzigen en het resultaat bekijken.

Ons gebruikersformulier wordt nu als voorbeeld genoemd.

Laten we nu proberen de kleur van het gebruikersformulier te wijzigen. In de eigenschappen-toolbox hebben we een vervolgkeuzelijst met de naam Back-kleur. We kunnen elke gewenste set kleuren selecteren.

Nadat ik de optie voor zwarte kleur heb geselecteerd, is de kleur van mijn voorbeeld UserForm als volgt gewijzigd,

Hoe voeren we dit gebruikersformulier uit? Zorg ervoor dat we op het gebruikersformulier zelf hebben geklikt en klik op de knop Uitvoeren die in de onderstaande schermafbeelding wordt weergegeven. Als we op de knop Uitvoeren klikken, zien we dat een blanco formulier in het Excel-scherm verschijnt.

Het heeft geen andere opties dan het te sluiten omdat we er geen andere knoppen aan hebben toegevoegd.

Excel VBA UserForm - Voorbeeld # 2

Laten we eens kijken hoe u knoppen kunt toevoegen aan een gebruikersformulier om de gegevens in Excel VBA in te voeren. We zullen een eenvoudig VBA-gebruikersformulier maken waarin we de gebruiker vragen zijn naam, leeftijd en geslacht in te voeren. De stappen voor het maken van een dergelijk gebruikersformulier zijn als volgt.

Ga in Excel-werkblad naar het tabblad Ontwikkelaar en klik op de Visual Basic-editor.

Klik nu in het tabblad invoegen op gebruikersformulier om een gebruikersformuliervenster te openen.

We moeten knoppen toevoegen aan dit gebruikersformulier om invoer van de gebruiker te krijgen. We kunnen zien dat er naast ons gebruikersformulier ook een toolbox met bedieningsknoppen wordt geopend.

Deze toolbox heeft verschillende bedieningselementen die worden gebruikt in UserForms.

Dus voor ons voorbeeld hebben we een naam, leeftijd en geslacht nodig om door de gebruiker te worden ingevoerd. We hebben in principe drie labels nodig die onze instructies vertegenwoordigen. Klik op Labels .

Beweeg de muis over het gebruikersformulier en klik en sleep om een label in het gebruikersformulier in te voegen.

Momenteel wordt het label 1 genoemd. We moeten de labelnaam wijzigen in " Naam " voor de instructie aan de gebruiker. Klik op het label en verwijder de opgegeven standaardnaam en voer de nieuwe naam in.

Plaats nu het label voor Leeftijd en Geslacht op een vergelijkbare manier en hernoem ze.

Nu naast de labels, moeten we een tekstvak invoegen zodat de gebruiker waarden kan invoeren. Klik in de knoppen van de toolbox op TextBox

Beweeg de muis naast de labels en klik op het formulier.

Laten we nu de opdrachtknop in het gebruikersformulier invoegen die de gegevens voor ons opslaat. Klik in de knoppen van de toolbox op CommandButton .

Beweeg de muis over het formulier.

Wijzig het bijschrift van CommandButton1 in "Submit" .

Plaats een CommandButton en noem deze als " Annuleren ".

De volgende stap is het hernoemen van elk van de tekstvakken zodat we ze gemakkelijk in onze codes kunnen gebruiken. Geef het tekstvak een andere naam als Nameva voor naamwaarde en voor leeftijd als Ageva op dezelfde manier voor geslacht als Genderva voor geslachtswaarde,

Voer het UserForm uit door op de afspeelknop te klikken of door op F5 te drukken.

In het Excel-blad moet de koptekst voor de gegevens als volgt worden ingevoerd.

Dubbelklik op de verzendknop die het codevenster voor ons als volgt opent voor de verzendknop.

Code:

 Private Sub CommandButton1_Click () End Sub

Geef in het codevenster een variabele op, zoals hieronder wordt weergegeven.

Code:

 Private Sub CommandButton1_Click () Dim A As Long End Sub

Laten we nu de eerste lege cel in de eerste kolom met de volgende code verplaatsen.

Code:

 Private Sub CommandButton1_Click () Dim A zo lang A = cellen (Rows.Count, 1). End (xlUp). Row + 1 End Sub

Laten we de door de gebruiker opgegeven waarde in het werkblad opslaan met de volgende code.

Code:

 Private Sub CommandButton1_Click () Dim A zo lang A = cellen (Rows.Count, 1). End (xlUp). Row + 1 Cells (A, 1) .Value = Nameva.Value Cells (A, 2) .Value = Ageva .Waarde cellen (A, 3) .Waarde = Genderva.Value Nameva.Value = "" Ageva.Value = "" Genderva.Value = "" End Sub

Dubbelklik nu op de knop Annuleren, dit toont u ook de automatische macronaam zoals deze.

Code:

 Private Sub CommandButton2_Click () End Sub

Gebruik de onderstaande code.

Code:

 Private Sub CommandButton2_Click () UserForm1.Hide End Sub

Voer het gebruikersformulier uit met de meegeleverde knop Uitvoeren of door op F5 te drukken en we krijgen het volgende resultaat.

Voer de waarden in de tekstvakken als volgt in.

Druk op de knop Verzenden om het resultaat als volgt in Excel te bekijken.

Dit is hoe we een gebruikersformulier maken om de gegevens van de gebruiker te krijgen.

Dingen om te onthouden

Gebruikersformulieren zijn ingebouwd of kunnen door de ontwikkelaar in VBA worden gemaakt.
De eigenschappen van het gebruikersformulier kunnen worden gewijzigd vanuit het vak met de eigenschappenwizard in VBA.
Gebruikersformulieren moeten knoppen hebben om gegevens van de gebruiker op te halen.
Zorg ervoor dat het gebruikersformulier is geselecteerd om een gebruikersformulier uit te voeren.

Aanbevolen artikelen

Dit is een handleiding voor VBA UserForm. Hier bespreken we hoe u UserForm in Excel kunt maken met behulp van VBA-code, samen met enkele praktische voorbeelden en een downloadbare Excel-sjabloon. U kunt ook onze andere voorgestelde artikelen doornemen -