идиотские вопросы. туплю

[Danilka]

Здрасте !
Во первых и в самых важных -какие справочники/ учебники по VB и VBA в частности вы посоветуете (кроме MSDN)
и КАК в эксельном макросе объявить массив, который можно передать в другой userform или модуль -у меня ничего не выходит ...
с уважением,
Danilka

[GSerg]

1. Справка офиса.
2. А как пытался?

[lord0n]

Public NAkt() As String

[Danilka]

Public NAkt() As String

именно так я и пытался, но получаю такай error message :

Constants, fixed-length strings, arrays, user-defined types, and Declare statements not allowed as Public members of an object module

[alibek]

Верно, объявляй его в модуле.

[Danilka]

Верно, объявляй его в модуле.

а у меня кнопка на листе и такой текст


Private Sub CommandButton1_Click()

i = 5
Worksheets("sales").Activate
While Cells(i, 2) <> ""
UserForm1.ComboBox1.AddItem (Cells(i, 2))

i = i + 1
Wend

Load UserForm1
Load UserForm2
UserForm1.Show


End Sub



и все вычисления внутри userform'ов , а модули я не использую

[lord0n]

если внутри одной формы, то пойдет перед всеми sub`ами поставить DIM

[Danilka]

если внутри одной формы, то пойдет перед всеми sub`ами поставить DIM

в том-то и дело что мне надо из одной формы передать массив в другую

[lord0n]

если внутри одной формы, то пойдет перед всеми sub`ами поставить DIM

в том-то и дело что мне надо из одной формы передать массив в другую

тагда создавай модуль, я все глобальные переменные там обьявляю

[Danilka]

если внутри одной формы, то пойдет перед всеми sub`ами поставить DIM

в том-то и дело что мне надо из одной формы передать массив в другую

тагда создавай модуль, я все глобальные переменные там обьявляю

а как ? понимаю, что вопрос тупой, но ответь плз

[CORBA]

ну а если так попробывать обратится непосредствено т.е. сначала указать форму потом обьект на ней, а потом свойство что-то типа:

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


from2.text1.text=form1.text1.text 'присваеваем значение текстбокса с                                                      'первой формы значению текстбокса                                                     'со второй


[Danilka]

ну а если так попробывать обратится непосредствено т.е. сначала указать форму потом обьект на ней, а потом свойство что-то типа:

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

from2.text1.text=form1.text1.text 'присваеваем значение текстбокса с                                                      'первой формы значению текстбокса                                                     'со второй


у меня создан массив вида fin(хх,3), который затем загружен в четырехколоночный listbox

UserForm2.MultiPage1.Page2.ListBox3.ColumnCount = 4
UserForm2.MultiPage1.Page2.ListBox3.List() = fin()

пользователь должен выбрать интересующие его строки и отметить их checkbox'ами (это я уже сделал)
а теперь я хочу ВСЕ выбранное записать в другой массив и работать с ним в другой userform'e ...

[Info_m.be_free]

ну так передавай параметрами ф функцию другого модуля и будет тебе счастье...

[Danilka]

ну так передавай параметрами ф функцию другого модуля и будет тебе счастье...

а пример можешь привести ?

[lord0n]

ну так передавай параметрами ф функцию другого модуля и будет тебе счастье...

не красивое и не быстрое решение, особенно если массив многомерный

модуль создается так: меню insert -> module

[Danilka]

ну так передавай параметрами ф функцию другого модуля и будет тебе счастье...

не красивое и не быстрое решение, особенно если массив многомерный

модуль создается так: меню insert -> module

а в модуле,-то че делать?

переписал туда все declarations
а результат тот же

[lord0n]

ну так передавай параметрами ф функцию другого модуля и будет тебе счастье...

не красивое и не быстрое решение, особенно если массив многомерный

модуль создается так: меню insert -> module

а в модуле,-то че делать?

переписал туда все declarations
а результат тот же

public a(100,100) as что это у тя будет (string, integer и т.д.)

[Info_m.be_free]

Люди, я с цитатами запутался и вообще сомневаюсь в информативности данного топика ....
lord0n какая разница какой массив передавать мы передаем переменную или я чего-то не понял?

[lord0n]

Люди, я с цитатами запутался и вообще сомневаюсь в информативности данного топика ....
lord0n какая разница какой массив передавать мы передаем переменную или я чего-то не понял?

ты предлогаешь сделать вот так?:

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


a=b


зачем?
в данном случае требуется создать одну глобальную переменную и все
дальше работать имено с ней, а не плодить 10 не нужных переменных

[Info_m.be_free]

Я наверно не врубаюсь, так по полкам-
форма1 - UserForm2; форма2 - UserForm2
Код формы 2

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

Private Sub UserForm_Click()
UserForm2.groove ("zzzz")
End Sub


Код формы 1

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

Sub groove(ByRef a As String)
MsgBox a
End Sub


Кликаем на форму 2 получаем строку (массив значение UDT)из формы 1
Такэ чи ні?

[lord0n]

Я наверно не врубаюсь, так по полкам-
форма1 - UserForm2; форма2 - UserForm2
Код формы 2

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

Private Sub UserForm_Click()
UserForm2.groove ("zzzz")
End Sub


Код формы 1

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

Sub groove(ByRef a As String)
MsgBox a
End Sub


Кликаем на форму 2 получаем строку (массив значение UDT)из формы 1
Такэ чи ні?

наверно я туплю: а где обещаный массив?

[Info_m.be_free]

Нехай массив у нас - "а"
Запиховываем его вместо "zzzz"
а там гда "MessageBox a" например

for i = LBound(a) to Ubound(a)
MsgBox a(i)
next i

All Clear