vba excel, Как переименовать TextBoxes на пользовательской форме - PullRequest
0 голосов
/ 01 декабря 2018

Я создал 112 TextBox в пользовательской форме.Пожалуйста, помогите переименовать их с помощью макроса.

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

1 Ответ

0 голосов
/ 01 декабря 2018

Для этого требуется установить набор ссылок VBProject для «Microsoft Visual Basic For Applications Extensibility 5.3» и «Доверительный доступ к проекту Visual Basic», отмеченных в параметрах центра управления безопасностью.

Dim f

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

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