コントロール ListBoxコントロール、Listプロパティの使用例
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
Dim MyArray(6, 3) Private Sub UserForm_Initialize() Dim i As Single ListBox1.ColumnCount = 3 For i = 0 To 5 MyArray(i, 0) = i MyArray(i, 1) = Rnd MyArray(i, 2) = Rnd Next i ListBox1.List() = MyArray End Sub Private Sub CommandButton1_Click() ' 1 列目と 3 列目の内容を入れ替えます。 Dim i As Single Dim Temp As Single For i = 0 To 5 Temp = ListBox1.List(i, 0) ListBox1.List(i, 0) = ListBox1.List(i, 2) ListBox1.List(i, 2) = Temp Next i End Sub |