次の方法で共有


ListBox コントロール、Column プロパティ、ColumnCount プロパティ、List プロパティの例

次の例では、データを含む 2 次元配列を読み込み、Columnプロパティと List プロパティを使用して 2 つの ListBox コントロールを読み込みます。 Column プロパティを使用した場合は、配列の要素の行と列が反転した状態でデータが読み込まれます。

この例を使用するには、このサンプル コードをフォームの宣言セクションにコピーします。 フォームに ListBox1 および ListBox2 という名前のリスト ボックス コントロールが含まれていることを確認します。

Dim MyArray(6,3) 
 
Private Sub UserForm_Initialize() 
 Dim i As Single 
 'The 1st list box contains 3 data columns 
 ListBox1.ColumnCount = 3 
 'The 2nd box contains 6 data columns 
 ListBox2.ColumnCount = 6 
 
 'Load integer values into first column of MyArray 
 For i = 0 To 5 
 MyArray(i, 0) = i 
 Next i 
 
 'Load columns 2 and three of MyArray 
 MyArray(0, 1) = "Zero" 
 MyArray(1, 1) = "One" 
 MyArray(2, 1) = "Two" 
 MyArray(3, 1) = "Three" 
 MyArray(4, 1) = "Four" 
 MyArray(5, 1) = "Five" 
 
 MyArray(0, 2) = "Zero" 
 MyArray(1, 2) = "Un ou Une" 
 MyArray(2, 2) = "Deux" 
 MyArray(3, 2) = "Trois" 
 MyArray(4, 2) = "Quatre" 
 MyArray(5, 2) = "Cinq" 
 
 'Load data into ListBox1 and ListBox2 
 ListBox1.List() = MyArray 
 ListBox2.Column() = MyArray 
 
End Sub

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

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