Question

我正在寻找一种使用变量数组中的数据更新Excel用户窗体中的多个文本框的方法。这些文本框被命名为TextBox1，TextBox2等。我想在DO LOOP中更新这些文本框，而不是逐行更新每个文本框。

变量数组将包含用户窗体中n个文本框的n个值。

我对用户表格很陌生；任何帮助表示赞赏。

谢谢。

Answer 1

尝试并根据您的需要对其进行自定义：

' Declare variables
Dim arrValues As Variant
Dim counter As Integer

' Initialize array
arrValues = Array("a", "b", "c")

' Loop through array items
For counter = 0 To UBound(arrValues)

    ' Refer to textboxes names from controls collections and assign array values
    Me.Controls("TextBox" & counter + 1).Text = arrValues(counter)

Next counter

使用变量中的数据更新Excel用户窗体中的多个文本框

1 个答案: