ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA как вызвать один SUB из другого?
13 сообщений из 13, страница 1 из 1
VBA как вызвать один SUB из другого?
    #36647713
Shun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shun
Гость
Подскажите, пожалуйста!

У меня возникла на VBA ошибка Procedure too large.
Надо разбить один SUB на 2. Как вызвать из одного SUBа другой? Чтобы работало как одна программа (один SUB продолжение другого).

Спасибо..
...
Рейтинг: 0 / 0
25.05.2010, 14:39
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647720
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ShunПодскажите, пожалуйста!

У меня возникла на VBA ошибка Procedure too large.
Надо разбить один SUB на 2. Как вызвать из одного SUBа другой? Чтобы работало как одна программа (один SUB продолжение другого).

Спасибо..

В конце одного sub-а написать имя другого
...
Рейтинг: 0 / 0
25.05.2010, 14:40
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647747
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub MyProc1()
 ...
 MyProc2 'вызов процедуры 2

End Sub

Sub MyProc2()
...
End Sub
...
Рейтинг: 0 / 0
25.05.2010, 14:47
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647909
Shun
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shun
Гость
Уже разобралась) Если просто после другого ставить там не вызывалось - надо было Call написать
Спасибо -)
...
Рейтинг: 0 / 0
25.05.2010, 15:36
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647915
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: plaintext
1.
MyProc Param1
Call MyProc(Param1)

почувствуйте разницу
...
Рейтинг: 0 / 0
25.05.2010, 15:38
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647927
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_One,

Не, не так надо чувствовать разницу, не на одиночном параметре, на одиночном скобки можно:
Код: plaintext
1.
MyProc (Param1)

На двух:
Код: plaintext
1.
MyProc Param1,Param2
Call MyProc(Param1,Param1)
...
Рейтинг: 0 / 0
25.05.2010, 15:41
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647937
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Shocker.ProKonst_One,

Не, не так надо чувствовать разницу, не на одиночном параметре, на одиночном скобки можно:
Код: plaintext
1.
MyProc (Param1)

На двух:
Код: plaintext
1.
MyProc Param1,Param2
Call MyProc(Param1,Param1)


первый случай очевиден и будет сразу ошибка. я привёл примеры правильных вызовов, но они отличаются для разных типов входящих параметров у самой вызываемой ф-ии/процедуры
...
Рейтинг: 0 / 0
25.05.2010, 15:43
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647945
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
так вот
Call MyProc(Param1)
делать не надо если MyPrjc - это Sub.
так вызывать можно только ф-ии , да и то не всегда.

используйте синтаксис такой:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
'sub
MyProc Param1

'function с возвратом значения
ret = MyProc(Param1)

'function без возврата значения
MyProc Param1
...
Рейтинг: 0 / 0
25.05.2010, 15:46
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647947
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneпервый случай очевиден и будет сразу ошибка.

Не, не будет, в частности для числовых значений, ибо скобки рассматриваются при этом как часть выражения, а не часть синтаксиса.
...
Рейтинг: 0 / 0
25.05.2010, 15:47
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #36647954
SashaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SashaM
Участник
Konst_Oneпочувствуйте разницу
Те же яйца только в профиль
...
Рейтинг: 0 / 0
25.05.2010, 15:49
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
VBA как вызвать один SUB из другого?
    #39361081
kwadrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kwadrad
Гость
SashaM,

Подскажите, пож, синтаксис если SUB в другой книге
...
Рейтинг: 0 / 0
06.12.2016, 11:17
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #39361092
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
kwadrad,
Код: vbnet
1.
Run "ИмяКниги.xls!ИмяМодуля.ИмяПроцедуры"

См. F1 - Application.Run Method
...
Рейтинг: 0 / 0
06.12.2016, 11:40
| Ответить | Цитировать | Написать  
VBA как вызвать один SUB из другого?
    #39361112
kwadrad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kwadrad
Гость
Спасибо, понял ошибку:

модуль пропустил)
...
Рейтинг: 0 / 0
06.12.2016, 12:05
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA как вызвать один SUB из другого?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=18&tid=2155373]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 24ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 307ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


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