すべてのワークシートデータをユーザーフォームのテキストボックスに出力

Question

Excelで新しいVBAですが、このコードが印刷している単一の列ではなく、すべてのシートデータをユーザーフォームのテキストボックスに印刷する方法を教えていただけますか？私はListBox代わりのTextBoxを使用すると、あなたのためにはるかに有用であろうことを考えるコラムAAまでsheet6のデータ（「テーブル」）360

Dim arr As Variant 
    Dim myarr As String 
    Dim i As Long 
    myarr = Sheets("Tables").Range("A:AA").Value 
    For i = LBound(myarr, 1) To UBound(myarr, 1) 
     myarr = myarr & myarr(i, 1) & vbCrLf 
    Next i 
    TextBox1 = myarr 

Answer 1

を持っています。 （あなたがそれを変更していない場合、それはあなたのユーザーフォームの名前です）UserForm1にそれを追加し、値を追加します。

With UserForm1.ListBox1 
    .ColumnCount = 27 
    .ColumnWidths = "50" 
    .RowSource = "'Tables'!A1:AA360" 
End With 

あなたはあなたのデータのためにそれを調整するために.ColumnWidthsの値を操作することができます。