テキストボックスにデータを入力したリストボックスを入力

Question

複数のテキストボックスとコンボボックスを持つuserformを1つ作成しました。 私は5列のリストボックスも1つ持っています。 私が必要とするのは、保存ボタンを押すと、テキストボックスとコンボボックスに入力されたデータがリストボックスに表示され、テキストボックスとコンボボックスがクリアされて別のエントリが表示されます。

1つのエントリでは機能していますが、新しい行にデータを追加することはできません。 HERE

MY CODE IS：添付

BLOCKQUOTE

Me.ListBox1.ColumnCount = 5 
Me.ListBox1.ColumnWidths = "60;35;70;50" 
Me.ListBox1.AddItem Me.TextBox1.Text 
Me.ListBox1.List(0, 1) = Me.ComboBox1.Value 
Me.ListBox1.List(0, 2) = Me.ComboBox3.Value 
Me.ListBox1.List(0, 3) = Me.TextBox5.Value 
Me.ListBox1.List(0, 4) = Me.TextBox6.Value 

ご理解のための私のユーザーフォームのイメージがあります。

親切な意見を聞いて、これを上回る方法を助言してください。

THANKS。 サルマン・カーン

Answer 1

は、以下の（あなたは1つのテキストボックスを持っていると仮定し、TextBox1命名され、そしてあなたのListBoxがListBox1という名前で、あなたの[保存]ボタンをCommandButton1命名された）のようなものである場合があります。

Private Sub CommandButton1_Click() 
    A = TextBox1.Text 
    ListBox1.List = Array(A, "", "", " ", "") 
    TextBox1.Text = "" 
End Sub 

変更とあなたの必要に応じて完了してください。