ListBoxに値を追加していくには。

質問

Private Sub CommandButton31_Click()

ListBox12.ColumnCount = 5
ListBox12.ColumnWidths = "4.0cm;4.0cm;2.0cm;3.0cm;2.0cm"
End Sub

Private Sub TextBox175_Change()
SetList
End Sub

Private Sub TextBox176_Change()
SetList
End Sub

Private Sub TextBox177_Change()
SetList
End Sub

Private Sub TextBox178_Change()
SetList
End Sub

Private Sub TextBox179_Change()
SetList
End Sub

Private Sub SetList()
ListBox12.Clear
ListBox12.AddItem TextBox175.Text
ListBox12.List(0, 1) = TextBox176.Text
ListBox12.List(0, 2) = TextBox177.Text
ListBox12.List(0, 3) = TextBox178.Text
ListBox12.List(0, 4) = TextBox179.Text
End Sub

ここで、TextBox175~179の値をコマンドボタン1を押す度、
ListBox12の最終行の直下に挿入されていくようにしたいです。
列はそのままです。
1行目 (0,1),(0,2),(0,3),(0,4)
2行目 (1,1),(1,2),(1,3),(1,4)
3行目 (2,1),(2,2),(2,3),(2,4)
どのようにやればいいでしょうか。

回答No.1

okgoo3 · ベストアンサー

質問文に書いてあるコードの意味がわかりません。

質問事項である 「"コマンドボタン1" を押したときに ListBox へ登録する」 だけではだめなのでしょうか。
変な入力仕様を実装するよりは、「5つのテキストボックスにデータを入力してから登録ボタンをクリックする」 というシンプルなほうがいいと思います。

Private Sub SetList()
　With ListBox12
　　.AddItem
　　.List(.ListCount - 1, 0) = TextBox175.Text
　　.List(.ListCount - 1, 1) = TextBox176.Text
　　.List(.ListCount - 1, 2) = TextBox177.Text
　　.List(.ListCount - 1, 3) = TextBox178.Text
　　.List(.ListCount - 1, 4) = TextBox179.Text
　End With
End Sub

現状の仕様では、おそらく一件目のデータ入力は登録ボタンのクリックを省略できるようにしたいのだと思いますが、それが故に各テキストボックスの値が変化するたびに ListBox へ値を登録するコードが必要となり、その都度 ListBox12.Clear の呼び出しが必要となっているようです。
2件目以降もテキストボックスに値を入力する必要があるため、1件目登録のために作ったロジックが 2件目以降の邪魔になってしまいます。

お礼

回答ありがとうございます。
解決できました。