Как передать значения из модуля в модуль? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как передать значения из модуля в модуль?

3 сообщений из 3, страница 1 из 1

Как передать значения из модуля в модуль?

#38010287

pgiw99oeo

Участник

Сообщения: 2 709

Рейтинг: 0 / 0

Заставили писать макрос, долгие нудные вычисления
решил разбить на модули, чтобы не весь код в одном модуле
возникла проблема с передачей значений из модуля в модуль
попытался сделать как в интернетах советуют, что-то не выходит
типа такого
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:10

| Ответить | Цитировать | Написать

Как передать значения из модуля в модуль?

#38010376

Akina

Участник

Откуда: Зеленоград, Москва, Россия

Сообщения: 20 644

Рейтинг: 0 / 0

pgiw99oeoкак массив передать из одного модуля в другой?Описать его как Public на уровне МОДУЛЯ.

...

Рейтинг:

0 / 0

23.10.2012, 17:54

| Ответить | Цитировать | Написать

Как передать значения из модуля в модуль?

#38010394

pgiw99oeo

Участник

Сообщения: 2 709

Рейтинг: 0 / 0

Спасибо, все получилось

...

Рейтинг:

0 / 0

23.10.2012, 18:02

| Ответить | Цитировать | Написать

3 сообщений из 3, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Как передать значения из модуля в модуль?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?desktop=1&fid=61&tid=2175287]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	33ms
get topic data:	13ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	2ms
others:	319ms

total:	448ms