Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чувствую себя идиотом...Не могу передать переменную из модуля... / 3 сообщений из 3, страница 1 из 1
03.08.2006, 17:18
    #33898105
Eslavnov
Eslavnov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чувствую себя идиотом...Не могу передать переменную из модуля...
Есть экселевский файл. В нем есть модуль с кодом. В коде есть переменная fl типа Boolean.
Так же есть лист, в коде которого нужно использовать ту переменную. Никак не получается ее передать.
Как это сделать?)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 17:45
    #33898187
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чувствую себя идиотом...Не могу передать переменную из модуля...
Что значит "передать"? Из макроса в листе надо использовать переменню объявленую в модуле? Ну основных вариантов два.

Можно передавать свою локальную переменную по ссылке:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
' код листа Sheet1
Private Sub CommandButton1_Click()
    Dim fl As Boolean
    fl = False
    Call Macro1(fl)
    MsgBox ("Value of fl is " & fl)
End Sub

' код модуля Module1
Sub Macro1(ByRef b As Boolean)
    b = Not b
End Sub

Объявить в модуле глобальную публичную переменую
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
' код листа Sheet1
Private Sub CommandButton1_Click()
    fl = False
    Call Macro2
    MsgBox ("Value of fl is " & fl)
End Sub

' код модуля Module1
Public fl As Boolean
Sub Macro2()
    fl = Not fl
End Sub

Есть и еще способы, но менее простые :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.08.2006, 17:53
    #33898211
Eslavnov
Eslavnov
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Чувствую себя идиотом...Не могу передать переменную из модуля...
Спасибо огромное) Про Public fl As Boolean совершенно вылетело из головы. Чувствовал же, что как-то просто все делается)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Чувствую себя идиотом...Не могу передать переменную из модуля... / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 473ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2165492]:
 0ms
get settings:
 6ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 177ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 36ms
get tp. blocked users:
 1ms
others: 223ms
total:  473ms
x
x
Закрыть


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