Страницы: 1
RSS
Преобразование текста в команду VBA
 
Добрый день!

каким образом можно "сцепить" текст комманды и запустить её в VBA?

Например.
Есть простая пользовательская форма с десятью текстовыми полями: Label1, Label2, ... Label10
Есть переменная-массив с десятью текстовыми значениями:
Код
Dim strName(10) as String

Необходимо значения из каждого элемента strName перенести в текстовые поля.
То есть придать значение свойству caption:
Код
UserForm1.Label1.Caption = strName(1)
UserForm1.Label2.Caption = strName(2)
UserForm1.Label3.Caption = strName(3)

Можно ли создать текст комманды:
Код
dim TEXT(10) as String
for n = 1 to 10 
     TEXT(n) = "UserForm1.Label" & n & ".Caption = strName(" & n & ""
Next n
А потом запустить получившуюся команду?
если да, то каким образом?
Изменено: Александр - 03.04.2015 23:00:46
 
Так попробуйте:
Код
UserForm1.Controls("Label" &n).Caption=strName(n)
 
'Вставка новых строк в модуль проекта
Код
ThisWorkbook.VBProject.VBComponents.Item("UserForm1").CodeModule.InsertLines №, s
'Где
'№ - Номер строки в модуле с которой будут вставляться новые строки
'S – Вставляемая строка символов
'Примечание:
'В переменной S могут содержаться коды символов конца строк , которые можно получить следующей функцией со следующим аргументом: CHR(13). Таким образом, переменная S может содержать в себе сразу несколько строк:
's = "Первая строка" + Chr(13) + "Вторая строка" + Chr(13) + "Третья строка" 'и т.д.
Страницы: 1
Наверх