在文本框中打印数组

Question

我正在做的代码中，按钮1将从工作表中获取数据并存储在数组中，而按钮2将在工作表和文本框中打印数组。

Public arr As Variant
Private Sub UserForm_Click()
End Sub

Private Sub CommandButton1_Click()
arr = Range("B8:C17")
Range("B8:C17") = Clear
End Sub

Private Sub CommandButton2_Click()
Range("B8:C17") = arr
TextBox1.Text = arr

End Sub    
Private Sub CommandButton3_Click()
Unload Me

End Sub

一切都很好，除了它不能在文本框中打印数组。这里出了什么问题？

Answer 1

因此，您需要做的是循环遍历数组数据行，并逐个填充它。

首先，您需要确保在textbox属性中将Multiline设置为True。

然后添加以下内容：

Private Sub CommandButton2_Click()

Range("B8:C17") = arr

Dim i As Long
For i = 1 To UBound(arr, 1)
    Me.TextBox1.Text = Me.TextBox1.Text & arr(i, 1) & Chr(9) & arr(i, 2) & vbCr
Next i

End Sub

注意：

这只适用于数组中的2列。如果有更多的列编号，则需要在该行中添加另一个& arr(i, x)，并将x作为列号。

如果在两列之间需要额外的制表符，请在现有& Chr(9)旁边的行中添加另一个制表符。看看这对你是不是有用。