Время работы макроса (несколько процедур)

[Евгений Таб]

Добрый день, товарищи

Всегда пользовался таким макросом для подсчета времени его выполнения.

PHP код:

Sub test()
    t = Timer
    For i = 1 To 30000000: Next
    MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation
End Sub 


Все более чем устраивало.

Когда столкнулся с более сложными макросами, данное решение не подходит. Сложность заключается в том, что я использую запуск одного макроса, далее вызов другого, и так 2 раза. Т.е мне нужно подсчитать суммарное количество работы нескольких макросов запущенных "по цепочке", объединить их не подразумевается.

Как решить данную проблему максимально просто? без API желательно. Пытался играться с переменными, но что-то результата ноль считает только время выполнения первого макроса.

Заранее огромное спасибо

[gling]

Что то не понятно.

далее вызов другого,

в ручную или макросом? Хотите сцепку проверить

Sub test()
    t = Timer
    'For i = 1 To 30000000: Next
    Макрос1
    Макрос2
    ............
    Макрос10
    MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation
End Sub

Или так не получается?

[Евгений Таб]

Вызов макроса осуществляется из макроса.

Первый макрос открывает второй, второй третий, третий четвертый.

Способ который вы показали к сожалению не подходит.

[gling]

Первый макрос закрывается после вызова второго? Мне не понятно, для проверки то наверно можно собрать их в кучу. Или назначьте t публичной переменной, в первой процедуре присвойте значение, в последней выводите информацию о времени от начала до конца. Можно в конце каждой процедуры поставить MsgBox. Или тоже не то?

[Евгений Таб]

Получилось обработать с помощью НЕ публичной переменной, как вы и писали.

PHP код:

Sub test()
    t = Timer
    'For i = 1 To 30000000: Next
    Макрос1
    Макрос2
    ............
    Макрос10 ' тут лежит UserForm
    MsgBox "Обработка данных продолжалась  " & Timer - t & " сек.", vbInformation
End Sub 


Как мне теперь вывести переменную t в UserForm, которая запускается из макроса10? Здесь поможет публичная переменная? Как ее правильно обьявить?

[IgorGO]

так и обьявите
Dim t

[Евгений Таб]

Сообщение от IgorGO

объявите

Обьявил,

Sub test()
Dim t
t = Timer
'For i = 1 To 30000000: Next
Макрос1
Макрос2
............
Макрос10 ' тут лежит UserForm
MsgBox "Обработка данных продолжалась " & Timer - t & " сек.", vbInformation
End Sub


в юзер форме прописал ::

PHP код:

Label11 = t 


Но данные не записываются

[Hugo121]

Sub test()
Dim t
вот эти строки поменяйте местами.

[Евгений Таб]

Сообщение от Hugo121

Sub test()
Dim t
вот эти строки поменяйте местами.

Поменял, но количество секунд не прилетает в юзерформ...

PHP код:

Dim t

Sub GO()

' Dim t
t = Int(Timer)
   ' For i = 1 To 30000000: Next
    

Application.Run "STEP_1"
Application.Run "HEADER_transfer"
Application.Run "ITEM_transfer"
Application.Run "LOOPFINALREPORT" ' тут лежит команда открытия юзер форм 


Юзер форма :

PHP код:

Label11 = t 


[Евгений Таб]

Естественно юзер форма инициализирована