Excel-VBA-Dependent Comboboxen - EASY Excel-Makros
Im Folgenden werden wir ein Programm in Excel VBA, die auf eine Userform erstellt, die abhängig Kombinationsfelder enthält. Die Userform wir schaut gehen wie folgt zu erstellen:
Der Benutzer wählt Tiere aus einer Dropdown-Liste. Als Ergebnis kann der Benutzer ein Tier von einer zweiten Dropdown-Liste auswählen.
Der Benutzer wählt Sport aus einer Dropdown-Liste. Als Ergebnis kann der Benutzer einen Sport von einer zweiten Dropdown-Liste auswählen.
Um diese Userform zu erstellen, führen Sie die folgenden Schritte.
1. Öffnen Sie das Visual Basic-Editor. Wenn das 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 unten aufgebaut werden.
3. Fügen Sie die Combo-Boxen (zuerst auf der linken Seite, der zweite auf der rechten Seite) und den Befehlsschaltflächen. Sobald dies abgeschlossen ist, sollte das Ergebnis mit dem Bild von der Userform gezeigt früher konsistent sein. Erstellen Sie zum Beispiel ein Steuerkombinationsfeld von der Toolbox auf ComboBox klicken. Als Nächstes können Sie ein Kombinationsfeld auf dem Benutzerformular ziehen.
4. Sie können die Namen ändern und die Beschriftungen der Kontrollen. Die Namen werden in dem Excel-VBA-Code verwendet. Bildunterschriften sind diejenigen, die auf dem Bildschirm angezeigt. Es empfiehlt sich, die Namen der Kontrollen zu ändern, aber es ist hier nicht notwendig, da wir nur wenige Kontrollen in diesem Beispiel haben. Um die Beschriftung der Userform und Befehlsschaltfläche zu ändern, klicken Sie auf Ansicht, Eigenschaften-Fenster und klicken Sie auf jede Kontrolle.
5. die Userform zu zeigen, eine Befehlsschaltfläche auf dem Arbeitsblatt platzieren und die folgende Codezeile hinzu:
Private Sub CommandButton1_Click ()
Wir werden jetzt die Sub UserForm_Initialize zu erstellen. Wenn Sie die Show-Methode für die Userform verwenden, wird diese Unter automatisch ausgeführt werden.
7. Geben Sie in dem Projekt-Explorer direkt auf UserForm1 und klicken Sie dann auf Code anzeigen klicken.
8. Wählen Sie Userform aus der linken Dropdown-Liste. Wählen Sie Initialisieren von der rechten Dropdown-Liste.
9. Fügen Sie die folgenden Codezeilen:
Private Sub UserForm_Initialize ()
mit ComboBox1
.AddItem "Animals"
.AddItem „Sport“
.AddItem "Food"
Ende mit
Erläuterung: Diese Codezeilen füllen Sie das erste Kombinationsfeld.
Wir haben nun den ersten Teil der Userform erstellt. Obwohl es schon ordentlich aussieht, wird noch nichts geschehen, wenn wir ein Element aus dem ersten Kombinationsfeld auswählen.
10. In dem Projekt-Explorer, klicken Sie doppelt auf UserForm1.
11. Doppelklicken Sie auf das erste Kombinationsfeld.
12. Fügen Sie die folgenden Codezeilen:
Private Sub ComboBox1_Change ()
Dim Index As Integer
index = ComboBox1.ListIndex
Select Case Index
Fall = 0
mit ComboBox2
.AddItem "Dog"
.AddItem „Katze“
.AddItem „Pferd“
Ende mit
Fall = 1
mit ComboBox2
.AddItem "Tennis"
.AddItem „Schwimmen“
.AddItem "Basketball"
Ende mit
Fall 2 =
mit ComboBox2
.AddItem „Pfannkuchen“
.AddItem "Pizza"
.AddItem "Chinese"
Ende mit
End Select
Erläuterung: Excel VBA verwendet den Wert der Variablen Index jede nachfolgende Case-Anweisung zu testen, um zu sehen, mit denen Elemente der zweite Kombinationsfeld gefüllt werden soll. Gehen Sie durch unser Select Case-Programm mehr über die Select Case-Struktur zu lernen.
13. Doppelklicken Sie auf die Schaltfläche Importieren.
14. Fügen Sie den folgenden Code-Zeile:
Private Sub CommandButton1_Click ()
