Страницы: 1
RSS
заполнить данными из массива ComboBox UserForm
 
Друзья, подскажите. Как передать массив из модуля в User form

объявил массив публичным но форма в упор не хочет его видеть и возникает ошибка

Код
Private Sub UserForm_initialize()
CBpost.List = apost()
End Sub

в модуле сверху

Код
Public apost()

сам модуль типа такого:
Код
sub www()

for i=...
....
 Dim apost()
 ReDim Preserve apost(k)
        Set arr(k) = art
        apost(k) = furnbook.Worksheets("бла_бла").Cells(art.Row, rgc.Column)  
        k = k + 1

...
next i
 end sub
Что и где не так...?
 
Публичную переменную нужно объявлятъ в общем модуле
 
Не понял ... Она вроде и находится в общем модуле (точнее не в модуле формы)
ошибка 380  invalid property value
 
По сообщению непоятно, в каком модуле (сверху код формы, снизу - общего модуля). Пример?

Странное размещение Dim apost(). Почему в цикле?
 
массив одномерный динамический ... собирает данные с листа и эти данные должны попасть в combobox. цикл идет по размеру таблицы и сравнивает параметры..Сейчас проверил что обычные переменные (объявленные как public) передаются в в модуль Userform
 
Ваш массив - горизонтальный, список - вертикальный
 
о как  ... этого я не подозревал  transpose использовать?
 
Лучше массив заполняйте "нормальный". ReDim Preserve медленный, Transpose медленный
 
Пкажите как заполняете массив полный код
"Все гениальное просто, а все простое гениально!!!"
Страницы: 1
Наверх