Erstellen einer dynamischen Liste in einem benutzerdefinierten Dialogfeld

In Microsoft Excel ist es möglich, eine dynamische Liste oder eine Liste in einem benutzerdefinierten Dialogfeld erstellen, die Änderungen auf einige z. B. eine Schaltfläche im Dialogfeld ausgewählten Steuerelement basiert. Das folgende Beispiel zeigt, wie Sie die Liste ändern können, die in einem benutzerdefinierten Dialogfeld angezeigt wird, während das Dialogfeld weiterhin angezeigt wird.

Microsoft bietet Programmierbeispiele für Abbildung nur ohne Gewährleistung oder konkludent. Dies umfasst, ist jedoch nicht beschränkt auf konkludenten Garantien der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. Dieser Artikel setzt voraus, dass Sie mit der Programmiersprache, die Programmierungsbeispiele ist und mit den Tools, die zum Erstellen und Debuggen von Prozeduren verwendet werden vertraut sind. Microsoft Support-Technikern helfen Erläuterung die Funktionalität einer bestimmten Prozedur, Sie werden ändert jedoch nicht diese Beispiele bieten Funktionen hinzugefügt oder Verfahren, um Ihren Anforderungen entsprechend zu erstellen. In diesem Beispiel wird das Dialogfeld, die Sie erstellen eine leere Liste (Listenfeld-Steuerelement) zeigt beim ersten Ausführen im Dialogfeld. Wenn Sie die Liste eine Schaltfläche auswählen, wird eine Liste der verschiedenen Arten von Obst im Dialogfeld angezeigt. Wenn Sie die Schaltfläche Liste zwei auswählen, wird eine Liste der Farben im Dialogfeld angezeigt.

So erstellen Sie das Dialogfeld "Anpassen"

1. Um Ihrer Arbeitsmappe ein neues Dialogblatt hinzuzufügen, wählen Sie Makro einfügen Menü, und wählen Sie dann Dialog.
2. Verwenden Sie die Formularsymbolleiste, So fügen Sie das Dialogfeld ein Listenfeld und zwei Schaltflächen hinzu.
3. Geben Sie auf die benutzerdefinierten Schaltflächen angezeigt, z. B. gewünschten Text Liste eine und Zwei Listen .
4. Aktivieren Sie das Liste. Geben Sie im Feld Name die Liste , und drücken Sie die [EINGABETASTE].
5. Wählen Sie eine der benutzerdefinierten Schaltflächen (nicht OK oder Abbrechen), und wählen Sie Objekt aus dem Menü "Format". Wählen Sie im Dialogfeld Objekt formatieren die Registerkarte Steuerelement und aktivieren Sie das Kontrollkästchen schließen und wählen Sie dann OK.
6. Wiederholen Sie Schritt 4 für die zweite benutzerdefinierte Schaltfläche.

Eingeben von Daten im Arbeitsblatt

1. Geben Sie auf ein Arbeitsblatt in der Arbeitsmappe die zwei separate Listen, die im Dialogfeld angezeigt werden soll. Geben Sie beispielsweise die folgenden Sheet1:

         A1: Apple    B1: Red
         A2: Orange   B2: White
         A3: Banana   B3: Blue
         A4: Pear     B4: Green
         A5: Grapes   B5: Yellow

So erstellen Sie eine Prozedur zum Ausführen des Dialogfelds

1. Fügen Sie ein neues Modulblatt in Ihrer Arbeitsmappe indem und Makro aus dem Menü Einfügen und dann Module auswählen.
2. Geben Sie Folgendes in das neue Modul ein:

         ' Dimension variables.
         Dim chosen As Integer, selected As Integer, MyList As Object
         Dim ListOneRange As String, ListTwoRange As String
   
         Sub Main()
            ' Set value of variable 'chosen' to 1.
            chosen = 1
   
            ' Assign value of variable 'MyList' to listbox in dialog box.
            Set MyList = Application.DialogSheets("Dialog1").ListBoxes("List")
   
            ' Define variable 'ListOneRange' as the cell range
            ' that contains your first list on the worksheet.
            ListOneRange = "Sheet1!$A$1:$A$5"
   
            ' Define variable 'ListTwoRange' as the cell range
            ' that contains your second list on the worksheet.
            ListTwoRange = "Sheet1!$B$1:$B$5"
   
            ' Initialize the list displayed in dialog box to be empty.
            MyList.ListFillRange = ""
   
            ' Loop to display the dialog box.
            ' Loop displays the dialog box until it is canceled.
            While chosen > 0
   
               show:
   
               ' Display the dialog box.
               DialogSheets("Dialog1").show
   
               ' If the value of 'chosen' is 1, the List One button was 
               ' chosen.
               If chosen = 1 Then
   
                  ' Set range to first list on worksheet
                  ' and display dialog box again.
                  MyList.ListFillRange = ListOneRange
                  GoTo show
   
               ' If the value of 'chosen' is 2, the List One button was 
               ' chosen.
               ElseIf chosen = 2 Then
   
                  ' Set range to second list on worksheet
                  ' and display dialog box again.
                  MyList.ListFillRange = ListTwoRange
                  GoTo show
   
               End If
   
            ' Repeat loop.
            Wend
   
         End Sub
   
         Sub OptionOne_Click()
   
            ' Set value of variable 'chosen' to 1.
            chosen = 1
   
         End Sub
   
         Sub OptionTwo_Click()
   
            ' Set value of variable 'chosen' to 2.
            chosen = 2
   
         End Sub
   
         Sub CancelChosen()
   
            ' Set value of variable 'chosen' to 0.
            chosen = 0
   
         End Sub
   
         Sub OKChosen()
   
            ' OK button was chosen.
            ' Set value of variable 'selected' to number
            ' corresponding to the item selected in the list.
            selected = MyList.ListIndex
   
            If selected = 0 Then
   
               ' Alert if no item is selected.
               MsgBox "nothing selected"
   
            Else
   
               ' Display selected item in message box.
               MsgBox MyList.List(selected)
   
            End If
   
         End Sub
   						

3. Wählen Sie die Dialogfeld-Blattregisterkarte. Im Dialogfeld Rahmen klicken Sie auf die Schaltfläche "OK", und wählen Sie Makro zuweisen aus im Menü Extras. Aus dem Makro Name-Referenz-Liste, wählen Sie OKChosen, und klicken OK.
4. Wählen Sie die Abbrechen-Schaltfläche, und wählen Sie Makro zuweisen aus im Menü Extras. Wählen Sie aus der Liste Name/Referenz Macro CancelChosen, und wählen Sie "OK".
5. Wählen Sie die erste benutzerdefinierte Schaltfläche (Liste 1 in diesem Beispiel) und hinzufügen wählen Makro aus dem Menü Extras. Wählen Sie aus der Liste Name/Referenz Macro OptionOne_Click, und wählen Sie "OK".
6. Wählen Sie die zweite benutzerdefinierte Schaltfläche (Liste 2 in diesem Beispiel) und hinzufügen wählen Makro aus dem Menü Extras. Wählen Sie aus der Liste Name/Referenz Macro OptionTwo_Click, und wählen Sie "OK".
7. Im Menü Extras Wählen Sie Makro aus, um das Dialogfeld anzuzeigen. Aus der Liste Name/Referenz Macro Main wählen, und wählen.

Wenn Sie die Liste eine Schaltfläche im Dialogfeld die erste Liste auswählen wird die Liste der Obst angezeigt. Wenn Sie Schaltfläche zwei Listen, die zweite Liste, die Liste der Farben auswählen, werden angezeigt. Wenn Sie OK wählen, wird ein Dialogfeld mit dem Element, das Sie in der Liste ausgewählt angezeigt. Wählen Sie Abbrechen, um das benutzerdefinierte Dialogfeld zu schließen.

Weitere Informationen über die Schaltfläche der Eigenschaften oder Listenfeld-Schaltfläche Wählen Sie die Schaltfläche Suchen in Hilfe und Typ: