VBA Excel中，如何重命名用户窗体上的文本框

Question

我在userform上创建了112个TextBox。 请帮助通过宏重命名它们。

-TextBox21 - TextBox43 ==> aTextBox21 - aTextBox43
-TextBox44 - TextBox66 ==> bTextBox21 - bTextBox43
-TextBox67 - TextBox89 ==> cTextBox21 - cTextBox43
-TextBox90 - TextBox112 ==> dTextBox21 - dTextBox43

Answer 1

这需要为信任中心选项中选中的“ Microsoft Visual Basic应用程序可扩展性5.3”和“对Visual Basic项目的信任访问”设置一个VBProject参考。

Dim f

Set f = Application.VBE.ActiveVBProject.VBComponents("UserForm1")

f.Designer.Controls("TextBox1").Name = "blah"