我在用户表单上创建了 112 个 TextBox。请帮助通过宏重命名它们。
-TextBox21 - TextBox43 ==> aTextBox21 - aTextBox43
-TextBox44 - TextBox66 ==> bTextBox21 - bTextBox43
-TextBox67 - TextBox89 ==> cTextBox21 - cTextBox43
-TextBox90 - TextBox112 ==> dTextBox21 - dTextBox43
这需要为“Microsoft Visual Basic For Applications Extensibility 5.3”和“信任对 Visual Basic 项目的访问”在信任中心选项中选中的 VBProject 参考集。
Dim f
Set f = Application.VBE.ActiveVBProject.VBComponents("UserForm1")
f.Designer.Controls("TextBox1").Name = "blah"
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句