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

[kuklp]

Вариант:

Option Explicit
Dim t#
Sub Main()
    Dim i As Integer
    For i = 1 To 500
        Obrabotka_tabl
        Do While t + 5 > Timer
            DoEvents
        Loop
    Next
End Sub

Public Sub Obrabotka_tabl()
    MsgBox "ok"    ' Здесь код процедуры
    t = Timer ' Это в конец процедуры
End Sub

[-Anton-]

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

Совершенно верно, вы правы. Но вместе с кодом DoEvents получается именно то, что я хочу.


Задача такая: Есть основной код программы (main). Из этого кода запускается несколько макросов ( например №1 и №2) для обработки таблицы. Макросы запускаются друг за другом.

Причем, макрос №2 запускаются только после завершения работы №1, так как требуется время на завершение обработки таблицы №1.


main должен выполняться постоянно, т.е. зациклен.

При итерации main должна быть предусмотрена пауза, секунд 5, в которую управление передается пользователю.

[-Anton-]

В общем, решил сделать так.

Объявил глобальную переменную Obrab_tabl_zak as boolean

В макросе Obrabotka_tabl, в самом конце поставил Obrab_tabl_zak = true


А в main вставил проверку после вызова макроса

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

  Do While Obrab_tabl_zak = False
  DoEvents
  Loop

[-Anton-]

Вариант:

вот. сначала написал, потом ваше сообщение увидел.
По сути, то же самое сделал.

[Казанский]

И при этом процессор (или одно ядро, которое ведет процесс VBA) загружен(о) на 100%

Попробуйте так:

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub Main()
Dim i&
For i = 1 To 500
    Obrabotka_tabl
    Obrabotka_tabl_1
    Sleep 5000
Next
End Sub

[kuklp]

Леш, во время Sleep ничего нельзя сделать с таблицей, а с DoEvents можно.