Spalten eines mehrspaltigen Listenfelds austauschen

Das folgende Beispiel vertauscht die Spalten eines mehrspaltigen Listenfelds ( ListBox ). Dieses Beispiel veranschaulicht zwei Einsatzmöglichkeiten der List -Eigenschaft:

1. To access and exchange individual values in the ListBox. In this usage, List has subscripts to designate the row and column of a specified value.

2. To initially load the ListBox with values from an array. In this usage, List has no subscripts.

Kopieren Sie diesen Beispielcode in den Skript-Editor eines Formulars. Zum Ausführen des Codes müssen Sie das Formular öffnen, damit das Open -Ereignis aktiviert wird. Stellen Sie sicher, dass das Formular ein ListBox -Objekt mit der Bezeichnung "ListBox1" und ein CommandButton -Objekt mit der Bezeichnung "CommandButton1" aufweist.

Dim Listbox1 
Dim MyArray(6, 3) 
 
Sub Item_Open 
 Dim i 
 Set Listbox1 = Item.GetInspector.ModifiedFormPages("P.2").Listbox1 
 
 Listbox1.ColumnCount = 3 
 For i = 0 to 5 
 MyArray(i, 0) = i 
 MyArray(i, 1) = Rnd 
 MyArray(i, 2) = Rnd 
 Next 
 
 Listbox1.List() = MyArray 
End Sub 
 
Sub CommandButton1_Click 
 Dim i 
 Dim Temp 
 
 For i = 0 to 5 
 Temp = Listbox1.List(i, 0) 
 Listbox1.List(i, 0) = Listbox1.List(i, 2) 
 Listbox1.List(i, 2) = Temp 
 Next 
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.