arrays - 将所有工作表数据打印到用户表单文本框中

Question

我是 excel VBA 的新手，有人可以帮助我理解并告诉我如何将所有工作表数据打印到用户表单文本框，而不是此代码正在打印的单列。我在 sheet6("Tables") 中有数据，直到列 AA 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

我认为使用 ListBox而不是 TextBox对你会更有用。添加到UserForm1 (如果您没有更改它，它是您的用户表单的名称)并添加值:

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

您可以在 .ColumnWidths 中操作值为您的数据调整它。