Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2019, 19:45   #1
s.p.il
Пользователь
 
Регистрация: 18.10.2013
Сообщений: 13
По умолчанию Загрузка идентичного списка в разные комбобоксы

Здравствуйте.
Ребята помогите создать загрузку идентичного списка, например
Код:
Split ("Тест1 Тест2 Тест3") ‘Список загрузки
в разные комбобоксы форм, при открытии формы, например
Код:
Private Sub UserForm_Initialize() 'Событие открытия формы UserForm1
    UserForm1.ComboBox1= 'Список загрузки
End Sub
Private Sub UserForm_Initialize() 'Событие открытия формы UserForm2
    UserForm2.ComboBox1= 'Список загрузки
End Sub
Private Sub UserForm_Initialize() 'Событие открытия формы UserForm3
    UserForm2.ComboBox1= 'Список загрузки
End Sub
_________________________
Сергей13
Вложения
Тип файла: zip test.zip (15.4 Кб, 5 просмотров)

Последний раз редактировалось s.p.il; 04.04.2019 в 19:57.
s.p.il вне форума Ответить с цитированием
Старый 04.04.2019, 22:56   #2
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

В модуль поместите функцию, которая возвращает требуемый массив
Код:
Public Function ComboList()
  ComboList = Split("Тест1 Тест2 Тест3")
End Function
Вызывайте ее из процедуры инициализации формы
Код:
Private Sub UserForm_Initialize() 'Событие открытия формы UserForm1
  ComboBox1.List = ComboList
End Sub
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 05.04.2019, 00:53   #3
s.p.il
Пользователь
 
Регистрация: 18.10.2013
Сообщений: 13
По умолчанию

Казанский, Благодарю!
s.p.il вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как дать всем частям списка разные ссылки? Саша223 PHP 5 24.12.2018 16:15
Загрузка картинок в разные image mitiay Общие вопросы Delphi 5 08.11.2015 10:20
Загрузка списка в ListBox reyn90 Помощь студентам 2 31.05.2009 04:17
Поиск идентичного текста Cvieri Microsoft Office Excel 7 26.03.2009 00:26