ожидание завершения работы макроса

[-Anton-]

Добрый день форумчане!

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

Из одного макроса (1) запускается другой (2). Как дождаться завершения работы 2 и только после этого продолжить работу макроса 1?

Пример:

Sub Main()

Dim i As Integer

For i = 1 To 500

Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"

DoEvents

Next i

End Sub

Программа работает просто. Из Main() вызывается макрос (Obrabotka_tabl), после чего следует передача управления системе на небольшой промежуток времени (5 сек), далее выполнение макроса Obrabotka_tabl, и всё по-новой...


В данном случае программа не дожидается завершения выполнения Obrabotka_tabl, и цикл запускается повторно, что приводит к отсутствию запланированной паузы в 5 сек.

Можно ли каким-то образом при выполнении макроса Obrabotka_tabl дождаться его завершения, и только после этого продолжить работу main?

[kuklp]

Вынести за цикл строку

Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"

а в макрос "Obrabotka_tabl" последней строкой сделать

call main

Еще в макросе "Obrabotka_tabl" убрать DoEvents

[-Anton-]

Вынести за цикл строку
Код:

Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"

А как тогда запустить этот макрос 500 раз?

а в макрос "Obrabotka_tabl" последней строкой сделать
Код:

call main

Тогда получится запуск "main" из "Obrabotka_tabl", потом из "main" запустится "Obrabotka_tabl" и т.д. имхо ни к чему хорошему это не приведет..

Еще в макросе "Obrabotka_tabl" убрать DoEvents

Там нет такого кода.

[kuklp]

Sub Main()

    Dim i As Integer, n&
    Do While n < 500
        For i = 1 To 500
            DoEvents
        Next i
        Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"
        n = n + 1
    Loop
End Sub

[Казанский]

По-моему, это надо немного по-другому делать:

Dim i&

Sub main()
i = 500
Obrabotka_tabl
End Sub

Sub Obrabotka_tabl()
'действия
i = i - 1
If i >= 0 Then Application.OnTime Now + #12:00:05 AM#, "Obrabotka_tabl"
End Sub

[kuklp]

И то верно, нафиг там цикл с DoEvents.

[-Anton-]

Sub Main()

Dim i As Integer, n&
Do While n < 500
For i = 1 To 500
DoEvents
Next i
Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"
n = n + 1
Loop
End Sub

Данный код вызывает постоянный запуск "Obrabotka_tabl", пауза отсутствует.

И то верно, нафиг там цикл с DoEvents.

Для того, чтоб на некоторое время передать управление пользователю. (в частности на 5 секунд, указанные в

Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"

Склоняюсь к мысли, что единственный вариант - сделать "Obrabotka_tabl" функцией, и по завершении работы возвращать true, и только после этого продолжать выполнение main.

[kuklp]

А чем вариант Алексея(Казанский) не устраивает?

[-Anton-]

А чем вариант Алексея(Казанский) не устраивает?

В нем нет возврата в main после каждого выполнения "Obrabotka_tabl".

[Казанский]

> Для того, чтоб на некоторое время передать управление пользователю. (в частности на 5 секунд, указанные в
Application.OnTime Now + TimeValue("00:00:05"), "Obrabotka_tabl"

Метод OnTime работает совсем не так. Вышеприведенный оператор назначает старт процедуры Obrabotka_tabl через 5 секунд, при этом выполнение программы продолжается.

Опишите задачу подробнее. Возможно, процедуру Obrabotka_tabl лучше запускать не по времени, а по какому-то событию?