Excel VBA TextBox
Tekstvak is gewoon als een vak dat wordt gebruikt om invoer van een gebruiker te krijgen, tekstvakken maken deel uit van gebruikersformulieren en op het ontwikkelaarstabblad in elk Excel-werkblad.Als we tekstvakken in een gebruikersformulier willen maken, kunnen we de tekstvakoptie selecteren van gebruikersformulierbesturingselementen in VBA of in het werkblad kunnen we het selecteren op het ontwerptabblad.
VBA TextBox is een van de besturingselementen van de vele besturingselementen van het gebruikersformulier. Door het tekstvak op het gebruikersformulier weer te geven, kunnen we hen vragen de gegevens in het tekstvak in te voeren, en gegevens die door de gebruiker zijn ingevoerd, kunnen met eenvoudige codes in het werkblad worden opgeslagen.
Gebruikersformulieren zijn erg aantrekkelijk in VBA-codering. Het helpt ons enorm, vooral als we input van de gebruikers nodig hebben. Met gebruikersformulieren hebben we veel bedieningselementen, en om de invoerwaarde van de gebruikers te krijgen, is "Tekstvak" de ideale optie in een gebruikersformulier. Door een tekstvak op het gebruikersformulier te plaatsen, kunnen we de gebruiker daadwerkelijk vertellen om de vereiste waarde in te voeren in het tekstvak dat we weergeven. Als u geen idee heeft van VBA-tekstvakken, neemt dit artikel een rondleiding door VBA-tekstvakken.
Hoe TextBox in VBA UserForm invoegen?
Om eerst een tekstvak in te voegen, moeten we een gebruikersformulier invoegen. Om een gebruikersformulier in te voegen, gaat u naar Invoegen> Gebruikersformulier.
Zodra u op Gebruikersformulier klikt, zullen we Gebruikersformulier gebruiken, net als een andere module.
Klik op Gebruikersformulier om de bedieningselementen van het gebruikersformulier te zien.
Selecteer vanuit deze Controls-toolbox “TextBox” en sleep naar het gebruikersformulier.
Hiermee kunnen we veel eigenschappen zien die aan dit tekstvak zijn gekoppeld.
TextBox-eigenschappen
Druk op F4 om de eigenschappen van het tekstvak te zien.
Zoals we kunnen zien, heeft het tekstvak Naam, kleur, Rand zoals zoveel. Geef nu een eigennaam zodat we gemakkelijk naar dit tekstvak kunnen verwijzen tijdens het coderen.
Voorbeeld van het gebruik van TextBox in Userform
We voeren een van de projecten uit met VBA-tekst. We zullen een gebruikersformulier voor gegevensinvoer maken om de gegevens van de werknemers op te slaan.
Stap 1: Teken op het gebruikersformulier Label.
Stap 2: Wijzig de standaardtekst van het label in 'Naam werknemer'.
Stap 3: Teken voor het label een tekstvak.
Stap 4: Geef het tekstvak een eigen naam als 'EmpNameTextBox'.
Stap 5: Teken nu nog een label onder het eerste label en voer de tekst in als 'Werknemers-ID'.
Stap 6: Teken vóór het tweede label nog een tekstvak en noem dit 'EmpIDTextBox'.
Stap 7: Teken nog een label en voer de tekst in als 'Salaris'.
Stap 8: Teken nog een tekstvak vóór het label 'Salaris' en noem dit 'SalaryTextBox'.
Stap 9: Voeg nu de "Command-knop" in de ToolBox in.
Stap 10: Wijzig de tekst van de opdrachtknop als 'Verzenden'.
Ok, we are done with the User Form design part. Now we need to write the code to store the data entered in this user form. As of now, run the user form by pressing the F5 key. We should see a user form like this.
Step 11: Change the Caption of the User Form in the Properties window.
Step 12: Now double click on the Submit Command Button.As soon as you double click you will see this auto sub procedure like the below.
This is when you click on the Submit button, what should happen. We need to mention the tasks in the VBA code. In this project, our aim is to store the data entered in the text box as soon as we click on the Submit Button.
For this, first, create a Template like this in the worksheet named “Employees Sheet.”
Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub
Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub
Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub
Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
Vanaf nu zijn alle dozen leeg.
Vul eerst de details in.
Klik nu op de knop "Verzenden". Het slaat de gegevens op het werkblad op.
Op deze manier kunt u de gegevens blijven invoeren en op de knop Verzenden drukken. Dit is het eenvoudige gebruikersformulier voor gegevensinvoer met een tekstvak.
