Страницы: 1
RSS
выбор объектов UserForm (VBA)
 
Доброе утро уважаемые.  
Снова я обращаюсь к вам за подсказкой.  
 
Необходимо программно выбрать конкретный объект UserForm.  
Имя объекта в процедуру передается переменной string. Обект combobox.  
Необходимо заполнить его списком элементов.    
 
И у меня не получается его инициализировать для добавления.  
 
Т.е. в процедуру передается название Combobox и параметры по которым выбирается список элементов comboBox. Элементы я выбираю но добавить их (.addItem) не могу ((
 
userform1.controls("combobox1").additem ...
 
А чтобы так же выбирать UserForm ?
 
Ну или определить с какой UserForm вызвана данная процедура...  
Процедура храниться в отдельном модуле VBA
 
{quote}{login=mult_ru}{date=27.07.2011 10:59}{thema=}{post}Ну или определить с какой UserForm вызвана данная процедура...  
Процедура храниться в отдельном модуле VBA{/post}{/quote}  
 
посмотрите - отвлеченный пример, но наверное поможет...
 
{quote}{login=mult_ru}{date=27.07.2011 10:59}{thema=}{post}Ну или определить с какой UserForm вызвана данная процедура... Процедура храниться в отдельном модуле VBA{/post}{/quote}Создаём глобальную переменную, в формах присваиваем ей значение: Переменная=Me.name
 
Юрий а какой формат глобальной переменной должен быть ?  
По умолчанию он идет как string и соответственно в процедуре выдает ошибку...  
 
Или активировать окно надо как то по другому?  
Вот на эту строку ругается  
Forma.Controls(PoleObj).AddItem Sheets("Îñòàòêè").Cells(r, 1).Value  
 
Forma это переменная через которую передается имя UserForm  
Public Sub SkladSort(ByVal Forma, ByVal PoleObj As String, ByVal Sort As String, Optional ByVal Cat As String = "")
 
Передавайте контрол как объект. Контрол находится в определенном родительском объекте, так что путаницы не будет, даже если запущено несколько форм:  
 
Public Sub SkladSort(PoleObj As combobox, ByVal Sort As String, Optional ByVal Cat As String = "")  
PoleObj.AddItem ...  
 
Вызывать, соответственно:  
 
SkladSort MyCombo, ...
 
2 Казанский  
Гениально ))  
Спасибо большое, прям гора с плеч и упрощение кода во многих местах...
Страницы: 1
Читают тему
Наверх