vba-excel,如何重命名用户表单上的TextBoxes



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

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

这需要一个VBProject引用集,用于在信任中心选项中选中的"Microsoft Visual Basic for Applications Extensibility 5.3"one_answers"信任对Visual Basic Project的访问"。

Dim f
Set f = Application.VBE.ActiveVBProject.VBComponents("UserForm1")
f.Designer.Controls("TextBox1").Name = "blah"

最新更新