Angeben der Spalte in einem mehrspaltigen Listenfeld zum Speichern von Daten für das Steuerelement
The following example demonstrates how the BoundColumn property influences the value of a ListBox. Benutzer können den Wert von ListBox bei Bedarf auf den Indexwert der angegebenen Zeile oder auf eine angegebene Spalte mit Daten im ListBox -Steuerelement festlegen.
To use this example, copy this sample code to the Script Editor of a form. To run the code you need to open the form so the Open event will activate. Make sure that the form contains:
Ein ListBox -Steuerelement mit der Bezeichnung "ListBox1".
Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
Drei Optionsfeld-Steuerelemente ( OptionButton ) mit der Bezeichnung "OptionButton1", "OptionButton2" und "OptionButton3".
Dim Listbox1
Dim OptionButton1
Dim OptionButton2
Dim OptionButton3
Dim Label1
Sub Item_Open
Set Listbox1 = Item.GetInspector.ModifiedFormPages("P.2").Listbox1
Set OptionButton1 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton1
Set OptionButton2 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton2
Set OptionButton3 = Item.GetInspector.ModifiedFormPages("P.2").OptionButton3
Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Label1
Listbox1.ColumnCount = 2
Listbox1.AddItem "Item 1, Column 1"
Listbox1.List(0, 1) = "Item 1, Column 2"
Listbox1.AddItem "Item 2, Column 1"
Listbox1.List(1, 1) = "Item 2, Column 2"
Listbox1.Value = "Item 1, Column 1"
OptionButton1.Caption = "List Index"
OptionButton2.Caption = "Column 1"
OptionButton3.Caption = "Column 2"
OptionButton2.Value = True
End Sub
Sub OptionButton1_Click
Listbox1.BoundColumn = 0
Label1.Caption = Listbox1.Value
End Sub
Sub OptionButton2_Click
Listbox1.BoundColumn = 1
Label1.Caption = Listbox1.Value
End Sub
Sub OptionButton3_Click
Listbox1.BoundColumn = 2
Label1.Caption = Listbox1.Value
End Sub
Sub Listbox1_Click
Label1.Caption = Listbox1.Value
End Sub
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für