/ / Excel-VBA-Steuerelementsammlung

Excel-VBA-Steuerelementauflistung

Beim Erstellen von Benutzerformularen in Excel VBA, du kannst den ... benutzen Steuert die Sammlung Einfaches Durchlaufen von Steuerelementen und Festlegen einer Eigenschaft für jedes Steuerelement auf einen bestimmten Wert.

Die Benutzerform, die wir erstellen werden, sieht folgendermaßen aus:

Steuert Sammlung in Excel VBA

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.

Benutzerbildschirm Setup in Excel VBA

3. Fügen Sie die Beschriftung, die Textfelder (zuerst oben, die 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 Textfeldsteuerelement, indem Sie in der Toolbox auf TextBox klicken. Als Nächstes können Sie ein Textfeld auf dem Benutzerformular ziehen.

4. Um die Beschriftung der Benutzermaske, Beschriftung und Befehlsschaltfläche zu ändern, klicken Sie auf Ansicht, Eigenschaftenfenster, und klicken Sie auf jedes Steuerelement.

5. Um das Benutzerformular anzuzeigen, platzieren Sie eine Befehlsschaltfläche in Ihrem Arbeitsblatt und fügen Sie die folgende Codezeile hinzu:

Private Sub CommandButton1_Click()

UserForm1.Show vbModeless

End Sub

Erklärung: Wenn Sie vbModeless hinzufügen, können Sie das Benutzerformular verwenden und gleichzeitig in Ihrem Arbeitsblatt arbeiten.

Wir haben jetzt den ersten Teil des Benutzerformulars erstellt. Obwohl es bereits ordentlich aussieht, wird nichts passieren, wenn wir auf die Befehlsschaltfläche in der Benutzermaske klicken.

6. Öffnen Sie den Visual Basic-Editor.

7. Doppelklicken Sie im Projektexplorer 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

For i = 1 To 10
    Controls("TextBox" & i).Value = Cells(i + 1, 1).Value
Next i

End Sub

Erläuterung: Mit nur ein paar Zeilen Code können wir die Textfelder mit den Telefonnummern aus dem Blatt füllen. Wir haben den Operator & zum Verketten (Verbinden) der Elemente verwendet. Diese Codezeilen funktionieren, weil wir die Namen der Textfeldsteuerelemente (TextBox1, TextBox2, TextBox3 usw.) nicht geändert haben.Um die Namen der Steuerelemente zu ändern, klicken Sie auf View, Properties Window, und klicken Sie auf jedes Steuerelement.

Ergebnis, wenn Sie auf die Befehlsschaltfläche auf dem Blatt klicken:

Steuert Collection-Ergebnis

Lesen Sie auch: