Excel VBA TextBox
Textbox ist einfach wie ein Feld, mit dem Eingaben von einem Benutzer abgerufen werden. Textfelder sind Teil von Benutzerformularen und auf der Registerkarte "Entwickler" in einem Excel-Arbeitsblatt. Wenn wir Textfelder in einem Benutzerformular erstellen möchten, können Sie die Option "Textfeld" auswählen Über die Steuerelemente für Benutzerformulare in VBA oder im Arbeitsblatt können Sie sie auf der Registerkarte "Design" auswählen.
VBA TextBox ist eines der Steuerelemente der vielen Steuerelemente des Benutzerformulars. Durch Anzeigen des Textfelds im Benutzerformular können wir sie auffordern, die Daten in das Textfeld einzugeben, und die vom Benutzer eingegebenen Daten können mit einfachen Codes im Arbeitsblatt gespeichert werden.
Benutzerformulare sind in der VBA-Codierung sehr attraktiv. Es hilft uns immens, insbesondere wenn wir Eingaben von den Benutzern benötigen. Bei Benutzerformularen gibt es viele Steuerelemente. Um den Eingabewert von den Benutzern zu erhalten, ist „Textfeld“ die ideale Option in einem Benutzerformular. Durch Einfügen eines Textfelds in das Benutzerformular können wir den Benutzer tatsächlich anweisen, den erforderlichen Wert in das angezeigte Textfeld einzugeben. Wenn Sie keine Ahnung von VBA-Textfeldern haben, führt dieser Artikel durch die VBA-Textfelder.
Wie füge ich TextBox in VBA UserForm ein?
Um zuerst ein Textfeld einzufügen, müssen wir ein Benutzerformular einfügen. Um ein Benutzerformular einzufügen, gehen Sie zu Einfügen> Benutzerformular.
Sobald Sie auf Benutzerformular klicken, werden wir Benutzerformular wie ein anderes Modul.
Klicken Sie auf Benutzerformular, um die Steuerelemente des Benutzerformulars anzuzeigen.
Wählen Sie in dieser Steuerelemente-Toolbox "TextBox" aus und ziehen Sie das Benutzerformular.
Damit sehen wir viele Eigenschaften, die diesem Textfeld zugeordnet sind.
TextBox-Eigenschaften
Drücken Sie die Taste F4, um die Eigenschaften des Textfelds anzuzeigen.
Wie wir sehen können, hat das Textfeld Name, Farbe, Rand wie so viele. Geben Sie nun einen richtigen Namen ein, damit wir beim Codieren leicht auf dieses Textfeld verweisen können.
Beispiel für die Verwendung von TextBox in Userform
Wir werden eines der Projekte mit VBA-Text durchführen. Wir erstellen ein Benutzerformular für die Dateneingabe, in dem die Details der Mitarbeiter gespeichert werden.
Schritt 1: Zeichnen Sie im Benutzerformular Beschriftung.
Schritt 2: Ändern Sie den Standardtext des Etiketts in "Name des Mitarbeiters".
Schritt 3: Zeichnen Sie vor dem Etikett ein Textfeld.
Schritt 4: Geben Sie dem Textfeld einen richtigen Namen als "EmpNameTextBox".
Schritt 5: Zeichnen Sie nun ein weiteres Etikett unter das erste Etikett und geben Sie den Text als "Mitarbeiter-ID" ein.
Schritt 6: Zeichnen Sie vor dem zweiten Etikett ein weiteres Textfeld und nennen Sie es "EmpIDTextBox".
Schritt 7: Zeichnen Sie ein weiteres Etikett und geben Sie den Text als "Gehalt" ein.
Schritt 8: Zeichnen Sie ein weiteres Textfeld vor das Etikett "Gehalt" und nennen Sie es "SalaryTextBox".
Schritt 9: Fügen Sie nun "Command Button" aus der ToolBox ein.
Schritt 10: Ändern Sie den Text der Befehlsschaltfläche in "Senden".
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.
Ab sofort sind alle Felder leer.
Füllen Sie zuerst die Details aus.
Klicken Sie nun auf die Schaltfläche "Senden". Die Daten werden im Arbeitsblatt gespeichert.
Auf diese Weise können Sie die Daten weiter eingeben und auf die Schaltfläche "Senden" klicken. Dies ist das einfache Dateneingabe-Benutzerformular mit einem Textfeld.
