Excel VBA-Benutzerformular - Wie erstelle ich ein interaktives Benutzerformular?

Excel VBA-Benutzerformular

Benutzerformulare in VBA sind benutzerdefinierte benutzerdefinierte Formulare, mit denen Eingaben eines Benutzers im Format eines Formulars vorgenommen werden können. Es müssen verschiedene Steuerelemente hinzugefügt werden, z. B. Textfelder, Kontrollkästchenbezeichnungen usw., mit denen ein Benutzer einen Wert eingeben kann und es speichert den Wert im Arbeitsblatt, jeder Teil des Benutzerformulars hat einen eindeutigen Code.

Das Benutzerformular ist ein Objekt in der Excel-Oberfläche. In diesem Benutzerformular können wir andere nützliche benutzerdefinierte Dialogfelder erstellen, um die Daten vom Benutzer abzurufen. Wenn Sie mit einer Makrodatei arbeiten, die von Ihrem Senior erstellt oder aus dem Internet heruntergeladen werden kann, müssen Sie ein solches Benutzerformular gesehen haben.

In diesem Artikel zeigen wir Ihnen, wie Sie ein ähnliches Benutzerformular erstellen, um die Daten des Benutzers zu speichern.

Wie erstelle ich ein Benutzerformular?

Ähnlich wie Sie ein neues Modul auf ähnliche Weise einfügen, müssen Sie im Visual Basic-Editor auf die Schaltfläche EINFÜGEN klicken, um das Benutzerformular einzufügen.

Sobald Sie darauf klicken, wird auch das Benutzerformular eingefügt.

Bevor ich Ihnen erkläre, wie Sie dies programmieren, möchte ich Ihnen zeigen, wie Sie dieses Benutzerformular formatieren.

Benutzerformular formatieren

Wenn Sie das Benutzerformular auswählen, drücken Sie die Taste F4. Das Eigenschaftenfenster wird angezeigt.

In diesem Eigenschaftenfenster können wir dieses Benutzerformular formatieren. Wir können es benennen. Wir können die Farbe, den Rahmenstil usw. ändern.

Probieren Sie auf diese Weise andere Eigenschaften aus, um das Benutzerformular anzuzeigen.

Fügen Sie nun für dieses Benutzerformular die Toolbox ein.

Jetzt sehen wir eine Toolbox wie diese.

In diesem Moment wird das Benutzerformular nur eingefügt und nicht programmiert. Um zu erfahren, wie es funktioniert, klicken Sie einfach auf die Schaltfläche Ausführen. Wir werden das Formular auf dem Excel-Arbeitsblatt sehen.

Verwenden Sie jetzt das ToolBox-Zeichenetikett.

Geben Sie den Text als Mitarbeiternamen in das Etikett ein.

Für dieses Label können wir also mithilfe von Eigenschaften formatieren. Jetzt haben wir den Text als "Name des Mitarbeiters" eingegeben: Jetzt können wir dies im Eigenschaftenfenster unter Beschriftungen sehen.

Insert one more label. To insert one more label, either you can click on a toolbox, or you can drag the current label by holding the Ctrl key. You will have a replica of the current label.

Now we will have the same label.

Change the name to Employee ID.

Now similarly insert one more label and name it as “Department.”

Now from the toolbox, insert a text box.

Name this text box as EmpName in the properties window.

Like this, insert two more text boxes in from of Employee ID & Department, respectively. Name those text boxes as per their heading.

Similarly, do it for the Department.

Now from the toolbox, insert Command Button.

Change the Name of the Command Button to “SubmitButton” and change the caption to “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 ist der Name, den wir dem Benutzerformular gegeben haben. MyUserForm.Hide bedeutet, dass beim Klicken auf die Schaltfläche CANCEL das Benutzerformular ausgeblendet wird.

Ok, erstellen Sie jetzt eine Vorlage wie diese im Arbeitsblatt.

Löschen Sie alle anderen Blätter in der Arbeitsmappe mit Ausnahme dieses Vorlagenblatts.

Gehen Sie nun zum Visual Basic-Editor.

Wenn Sie das Makro mit der Taste F5 oder manuell ausführen, wird das Benutzerformular vor uns angezeigt.

Geben Sie den Namen des Mitarbeiters, die ID des Mitarbeiters und den Namen der Abteilung ein.

Wenn Sie nun auf die Schaltfläche SENDEN klicken, werden die Werte in der von uns erstellten Vorlage gespeichert.

So können Sie die Namen weiter eingeben. Das Benutzerformular speichert weiterhin die vom Benutzer eingegebenen Werte in den angegebenen Zellen.

Mit USER FORM können wir also wunderbare Projekte erstellen, um die Informationen vom Benutzer zu erhalten.