VBA 循环中的变量

Question

我有很多字段 TextBox1 TextBox2 TextBox3 .... 我想用字段中的数据填充数组。

    Private Sub CommandButton1_Click() 
Dim Schild(32, 32) As String
Dim i As Integer
Dim prompt_deti As String

For i = 1 To UBound(Schild)
    Schild(i, i + 1) = Me.TextBox(i).Text
    Schild(i, i) = Me.TextBox(i).Text
    prompt_deti = prompt_deti & Schild(i, i) & Schild(i, i + 1) & Chr(10)
Next i

MsgBox prompt_deti

End Sub

找不到错误方法或数据成员！

Schild(i, i + 1) = Me.TextBox (i) .Text

如何设置这个变量？我做错了什么？

Answer 1

您根本无法通过这种方式引用文本框。如果确实有很多文本框，您可以考虑将数据放在 table 中，而不是所有这些文本框。这样你就可以遍历 table 行。

VBA 循环中的变量

VBA variable in the loop

vba

ms-word