Mit nur wenigen Zeilen Code können wir ganz einfach Kontrollen durchschleifen auf ein Excel VBA-Benutzerformular. 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 Kontrollkästchen (zuerst oben, die zweite unter der 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 Kontrollkästchen-Steuerelement, indem Sie in der Toolbox auf CheckBox klicken. Als Nächstes können Sie ein Kontrollkästchen auf das Benutzerformular ziehen.
4. Sie können die Namen und Beschriftungen der Steuerelemente ändern. Namen werden im Excel VBA-Code verwendet. Untertitel sind die, die auf Ihrem Bildschirm erscheinen. Es hat sich bewährt, die Namen der Steuerelemente zu ändern, aber dies ist hier nicht erforderlich, da wir in diesem Beispiel nur wenige Steuerelemente haben. Um die Beschriftung des Benutzerformulars, der Beschriftung, der Kontrollkästchen und der Befehlsschaltfläche zu ändern, klicken Sie auf Ansicht, Eigenschaftenfenster, 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
End Sub
Wir haben nun den ersten Teil des Userform erstellt. Obwohl es bereits ordentlich aussieht, passiert noch nichts, wenn wir auf die Schaltfläche Löschen klicken.
6. Öffnen Sie den Visual Basic-Editor.
7. Doppelklicken Sie im Projekt-Explorer auf UserForm1.
8. Doppelklicken Sie auf die Schaltfläche Löschen.
9. Fügen Sie die folgenden Codezeilen hinzu:
Private Sub CommandButton1_Click()
Dim contr Als Steuerung
Für jeden contr In UserForm1.Controls
Wenn TypeName(contr) = "CheckBox" Then
contr.Value = False
Ende Wenn
Nächste
End Sub
Erläuterung: Excel VBA durchläuft alle Steuerelemente des Benutzerformulars. Die TypeName-Funktion wird verwendet, um die Kontrollkästchen-Steuerelemente herauszufiltern. Bei einem Kontrollkästchen-Steuerelement deaktiviert Excel VBA das Kontrollkästchen. contr wird hier zufällig gewählt, Sie können einen beliebigen Namen verwenden. Denken Sie daran, sich im Rest Ihres Codes auf diesen Namen zu beziehen.
Ergebnis, wenn Sie auf die Schaltfläche Löschen klicken:
