excel VBAを使用してユーザーフォームで選択したデータを表示する方法

Question

彼は自分が望むデータを選択したが、このデータをina MsgBoxではなくテーブルに表示したいと考えています。

は、これは私のコードで、私は誰かが私にあなたがリストボックスで必要なもの

Private Sub CommandButton1_Click() 

Dim ws1 As Worksheet 
Dim ws2 As Worksheet 

Dim table1 As Range 
Dim table2 As Range 

Dim table1Rows As Integer 
Dim table1Cols As Integer 

Set ws1 = Worksheets("Feuil1") 
Set ws2 = Worksheets("Feuil2") 
Set table1 = ws1.Cells 
Set table2 = ws2.Cells 

table1Rows = ws1.UsedRange.Rows.Count 
table1Cols = ws1.UsedRange.Columns.Count 

For i = 1 To table1Rows 
    For j = 1 To table1Cols 
     If table1(i, 1).Value <> table2(i, 1).Value Then 
      MsgBox "Libellé : " & table1(i, 1) & ", du montant : " & table1(i, 3) & " est ajouté !" 
     End If 
    Next 
Next 
End Sub 

Answer 1

のための解決策を見つけることができることを願っています。ユーザーフォーム（Userform1など）とリストボックス（Listbox1など）を作成します。次に、この式でデータを内部に置くことができます.AddItem関数。あなたのループは次のようになります：

For i = 1 To table1Rows 
    For j = 1 To table1Cols 
     If table1(i, 1).Value <> table2(i, 1).Value Then 
      UserForm1.ListBox1.AddItem "Libellé : " & table1(i, 1) & ", du montant : " & table1(i, 3) & " est ajouté !" 
     End If 
    Next 
Next 
End Sub 
UserForm1.Show