複数列リスト ボックスの列をスワップする

次の例は、複数列を持つリスト ボックス ( ListBox ) コントロールの列を入れ替えます。 この例では、 List プロパティを次の 2 つの方法で使用します。

1. リスト ボックス ( ListBox ) コントロール内の個別の値を操作し、交換します。 この使用方法では、指定した値のある行と列を明示するために、 List プロパティに値を指定します。

2. 最初に配列から値を取得してリスト ボックス ( ListBox ) コントロールに読み込みます。 この使用方法では、 List プロパティには行と列を指定しません。

この例を利用するには、次のコード例をフォームのスクリプト エディターにコピーします。 コードを実行するには、 Open イベントが生じるようにフォームを開く必要があります。 フォームに、ListBox1 と命名された ListBox と CommandButton1 と命名された CommandButton が含まれていることを確認します。

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

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。