Beim Erstellen von Benutzerformularen in Excel VBA, du kannst den … benutzen Steuert Sammlung um Steuerelemente einfach zu durchlaufen und eine Eigenschaft jedes Steuerelements auf einen bestimmten Wert zu setzen.
Die Userform, die wir erstellen werden, sieht wie folgt aus:
Führen Sie die folgenden Schritte aus, um dieses Benutzerformular zu erstellen:
1. Öffnen Sie den Visual Basic-Editor. Wenn der Projekt-Explorer nicht sichtbar ist, klicken Sie auf Ansicht, Projekt-Explorer.
2. Klicken Sie auf Einfügen, Benutzerformular. Wenn die Toolbox nicht automatisch angezeigt wird, klicken Sie auf Ansicht, Toolbox. Ihr Bildschirm sollte wie folgt eingerichtet sein.
3. Fügen Sie die Beschriftung, die Textfelder (zuerst oben, das zweite unter dem ersten usw.) und die Befehlsschaltfläche hinzu. Sobald dies abgeschlossen ist, sollte das Ergebnis mit dem zuvor gezeigten Bild des Benutzerformulars übereinstimmen. Erstellen Sie beispielsweise ein Textfeld-Steuerelement, indem Sie in der Toolbox auf TextBox klicken. Als Nächstes können Sie ein Textfeld auf das Benutzerformular ziehen.
4. Um die Beschriftung des Benutzerformulars, der Beschriftung und der Befehlsschaltfläche zu ändern, klicken Sie auf Ansicht, Eigenschaftsfenster, und klicken Sie auf jedes Steuerelement.
5. Platzieren Sie in Ihrem Arbeitsblatt eine Befehlsschaltfläche, und fügen Sie die folgende Codezeile hinzu, um das Benutzerformular anzuzeigen:
Private Sub CommandButton1_Click()
UserForm1.Show vbModeless
End Sub
Erläuterung: Durch Hinzufügen von vbModeless können Sie das Benutzerformular verwenden und gleichzeitig in Ihrem Arbeitsblatt arbeiten.
Wir haben nun den ersten Teil des Userform erstellt. Obwohl es bereits ordentlich aussieht, passiert noch nichts, wenn wir auf die Befehlsschaltfläche im Benutzerformular klicken.
6. Öffnen Sie den Visual Basic-Editor.
7. Doppelklicken Sie im Projekt-Explorer auf UserForm1.
8. Doppelklicken Sie auf die Befehlsschaltfläche.
9. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub CommandButton1_Click()
Dim i As Integer
Für i = 1 bis 10
Controls("TextBox" & i).Wert = Zellen(i + 1, 1).Wert
Als nächstes
End Sub
Erläuterung: Mit wenigen Codezeilen können wir die Textfelder mit den Telefonnummern aus dem Blatt füllen. Wir haben den &-Operator verwendet, um die Elemente zu verketten (zu verbinden). Diese Codezeilen funktionieren, weil wir die Namen der Textfeld-Steuerelemente (TextBox1, TextBox2, TextBox3 usw.) nicht geändert haben. Um die Namen der Steuerelemente zu ändern, klicken Sie auf Ansicht, Eigenschaftenfenster und klicken Sie auf jedes Steuerelement.
Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:
