我是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
我认为使用ListBox
而不是TextBox
对您更有用。将其添加到UserForm1
(如果尚未更改,则为用户表单的名称)并添加值:
With UserForm1.ListBox1
.ColumnCount = 27
.ColumnWidths = "50"
.RowSource = "'Tables'!A1:AA360"
End With
您可以在其中操纵值.ColumnWidths
以针对您的数据进行调整。
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句