Вопрос новичка - как в VBA передать массив из формы в форму

[Danilka]

Здрасте всем!
проблема следующая - в ходе выполнения макроса загружается userform1 и формируется двумерный массив
задача - перенести массив в userform2 - как это сделать?
почитав форум - догаадываюсь, что надо это сделать через модуль класа - только вот разобраться в этом неполучается...
подкиньте ссылочку или пример плз.
Заранее благодарен,
Danilka.

[ZlydenGL]

Danilka, вариант 1 - глобальная переменная типа Variant

Вариант 2 - передавать переменную в userform2... Допустим через

Код: Выделить всё

Public Sub UserForm2_GetAr(Ar)
   MyArr = Ar
End Sub

[ZlydenGL]

А можно еще в сторону ParamArray покопаться... Только не забывать, что этот элемент должен быть ПОСЛЕДНИМ в списке переменных, передаваемых процедуре/функции.

[Danilka]

Danilka, вариант 1 - глобальная переменная типа Variant

а как двумерный массив записать в переменную? (хотя уменя массив значений long) ?

Danilka
Вариант 2 - передавать переменную в userform2... Допустим через

Код: Выделить всё

Public Sub UserForm2_GetAr(Ar)
   MyArr = Ar
End Sub

а это куда вставлять ?

(да-да, я -ламер)

заранее благодарен,
Danilka

[Danilka]

[quote="ZlydenGL"]А можно еще в сторону ParamArray покопаться... [quote]

встроенный хелп ничего подобного в Excel2003 не находит

[ZlydenGL]

а как двумерный массив записать в переменную? (хотя уменя массив значений long) ?

А в чем проблема? В Variant можно все, что угодно писать

а это куда вставлять ?

"Парутчик Ржевский, МААААААЛЧАТЬ!!!" (с) неизвестный полковник
Если серьезно - то в код формы 2 И вызывать эту процедуру для передачи переменной/массива

А насчет ParamArray - как це нет?!! Вот вырезки из встроенного хелпа (в msdn.microsoft.com точно есть):

The arglist argument has the following syntax and parts:

[Optional] [ByVal | ByRef] [ParamArray] varname[( )] [As type] [= defaultvalue]

ParamArray Optional. Used only as the last argument in arglist to indicate that the final argument is an Optional array of Variant elements. The ParamArray keyword allows you to provide an arbitrary number of arguments. ParamArray can't be used with ByVal, ByRef, or Optional.

[Krasnaja Shapka]

Вариант 2 - передавать переменную в userform2... Допустим через

Код: Выделить всё

Public Sub UserForm2_GetAr(Ar)
   MyArr = Ar
End Sub

а можно уточнить... тут Ar это имя массива в первой форме?
а MyArr - во второй?

[Amed]

Danilka, сделай Public-массив не в форме, а в модуле; он будет доступен отовсюду.

[Danilka]

У меня массив динамический - как же я го сделаю public ?

в Excel2003 userform1 (initialize) я считываю данные с листа :

Код: Выделить всё

Range(Cells(2, 2), Selection.End(xlDown)).Select
nms_used = Selection.Count
ReDim biga(nms_used - 1, 22)
Range(Cells(2, 1), Cells(nms_used + 1, 23)).Select
biga() = Selection

Затем загружаю их в listbox и редактирую.

какой код мне необходимо прописать в userform2 чтобы загрузить массив в новый listbox userform2?(именно из массива а не с листа?)

[ZlydenGL]

Вариант с паблик переменной: у тебя же наверняка в проекте еще и модули есть? Создай переменную типа

Код: Выделить всё

Public MyArr() as НужныйТебеТип

и все дела В UserForm1 ты будешь заполнять этот массив, а из UserForm2 - просто к нему обращаться.

Это в самом деле более простой вариант. Ну а если не хочешь заморачиваться с глобальными переменными - юзай мой вариант 2 В приведенном примере MyArr - внутренняя переменная UserForm2, а сама процедура - паблик (внешняя), но содержащаяся в UserForm2. Вызывать ее надо из кода так:

Код: Выделить всё

UserForm2_GetAr(ОбработанныйИЗаполненныйМассив)

Естественно, вызывать ее надо ПОСЛЕ того, как соответствующий массив будет заполнен.