Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вставка значений в массив переменных, Есть массив из переменных. Переменным из этого массива нужно присвоить значения
 
#1
20.11.2023 12:12:13
Добрый день, Уважаемые специалисты! Надеюсь с вашей помощью разобраться в данном случае.
Есть 10 Texbook, в которые из 10 ячеек таблицы вставляю данные. Создаю из этих 10 Texbook массив.
dim Mas()     Mas = array(Texbook1,Texbook2,........Texbook10)
For i=Lbound(Mas) to Ubound(Mas)  Mas(i)= cells(i+1,1)  next i   'при таком способе ничего не получается. Значения не присваиваются Texbook.
Как можно с помощью массива или другим способом присвоить значения Texbook1,Texbook2 и т.д. с помощью цикла For ?
И еще.  Можно ли добавлять к названию Texbook & i (переменную), чтобы упростить макрос?
Спасибо.  
 
 
 
#2
20.11.2023 12:23:05
Добрый день. Так можно:
Код
    For i = 1 To 10
        Me.Controls("Textbox" & i) = Cells(i, 1)
    Next i
 
 
 
#3
20.11.2023 12:51:10
Спасибо за ответ.
А если массив переменных состоит из разных названий  Mas = array(Texbook1_Date, ComboBox1_P,  ListBox4_Itog.BackColor  и т.д.)
Как можно с помощью цикла им  присвоить значения ?
 
 
 
#4
20.11.2023 13:00:32
Цитата
написал:
А если массив переменных состоит из разных названий
Код
Me.Controls(Mas(i))

Только должно быть так: Mas = array("Texbook1_Date", "ComboBox1_P", ....)
Изменено: webley - 20.11.2023 13:03:55
 
 
 
#5
20.11.2023 13:05:37
Большое спасибо!
 
 
 
#6
20.11.2023 13:29:49
Цитата
vbaS написал:
Можно ли добавлять к названию Texbook & i (переменную), чтобы упростить макрос?
Не уверен, что это будет проще, но, для полноты ответа. Как раз пример на TextBox'ах
РАБОТА С МОДУЛЯМИ КЛАССОВ
Согласие есть продукт при полном непротивлении сторон.

Контакты, благодарности
 
 
 
#7
20.11.2023 16:06:31
Спасибо за информацию. Обязательно посмотрю.  
 
 
 
Страницы: 1
Наверх