Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как передать значения из модуля в модуль? / 3 сообщений из 3, страница 1 из 1
23.10.2012, 17:10
    #38010287
pgiw99oeo
pgiw99oeo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как передать значения из модуля в модуль?
Заставили писать макрос, долгие нудные вычисления
решил разбить на модули, чтобы не весь код в одном модуле
возникла проблема с передачей значений из модуля в модуль
попытался сделать как в интернетах советуют, что-то не выходит
типа такого
Module1
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Public Type TZapis
i1 As Integer
i2 As Integer
End Type

Dim Msv(1 To 3) As TZapis
--------------------------------------------------------
Public Sub MyMacro(ByRef a As Variant)
  For i = 1 To 3
   Msv(i).i1 = i: Msv(i).i2 = i * i
  Next
a = Msv()
End Sub



Module2
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Public Type TZapis
i1 As Integer
i2 As Integer
End Type
Public Sub PoluchitMassive()
Dim Msv2(1 To 3) As TZapis
Dim a As Variant
-------------------------------------
Module1.MyMacro (a)
Msv2 = a
MsgBox Msv2(1).i1
End Sub


получается какая-то каша, в которой не могу разобраться
в общем вопрос такой: как массив передать из одного модуля в другой?
если заполнение и вызов в одном модуле происходят, то вроде получается, а как сделать передачу из модуля в модуль?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2012, 17:54
    #38010376
Akina
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как передать значения из модуля в модуль?
pgiw99oeoкак массив передать из одного модуля в другой?Описать его как Public на уровне МОДУЛЯ.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.10.2012, 18:02
    #38010394
pgiw99oeo
pgiw99oeo
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как передать значения из модуля в модуль?
Спасибо, все получилось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как передать значения из модуля в модуль? / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 509ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2175287]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 368ms
total:  509ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]