excel vba，使用for next循环为具有相似名称的变量赋值答案

【问题标题】：excel vba, assigning values to variables with similar names using for next loopexcel vba，使用for next循环为具有相似名称的变量赋值
【发布时间】：2016-04-10 06:18:45
【问题描述】：

stackoverflow 的新手，对编程也很陌生。我非常感谢这个令人难以置信的资源。谢谢！
我的用户窗体上有 30 个文本框。文本框1 文本框2……文本框30。我想使用 For Next 循环快速为所有这些赋值。只是不太确定如何。示例：

For X=1 to 30
   TextBox & X.Value ="Hello"
Next X

提前感谢您的帮助。

【问题讨论】：

标签： vba excel variables for-loop

【解决方案1】：

应该这样做。

Private Sub UserForm_Initialize()
    For x = 1 To 30
        Controls("Textbox" & x).Value = "Hello " & x
    Next x
End Sub

【讨论】：

非常感谢您的帮助。这当然奏效了。祝你有美好的一天。
标记为答案

【解决方案2】：

这个怎么样：

For x = 1 To 30
  Sheets(1).Shapes("textbox " & x).TextFrame.Characters.Text = "Hello"
Next x

【讨论】：

文本框在用户表单中，而不是在工作表上