Количество запущенных таймеров

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/Количество запущенных таймеров - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Количество запущенных таймеров (Макросы/Sub)

Количество запущенных таймеров

Nic70y

Дата: Четверг, 07.09.2023, 08:13 | Сообщение № 1

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

Здрасте!
у меня в файле куча макросов, которые останавливают, запускают таймер.
тут как-то какой-то макрос-собака вырубил таймер, а включать не захотел.
та фиг с ним ситуацию победил.

при исследовании вывел Time в ячейку и обнаружил, что таймер запущен дважды,
запустил еще вручную - три процесса.
ну в принципе это я тоже победил.

вопрос (чисто для любопытства) можно ли программно определить сколько раз запущен таймер?

ЮMoney 41001841029809

Ответить

Nic70y

Дата: Пятница, 08.09.2023, 13:30 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9005

Репутация: 2369 ±

Замечаний: 0% ±

Excel 2010

через костыль
[vba]

Код

Public DateTime As Date
Public u As Double
Sub vaa_SW()
    If u = 0 Then Exit Sub
    Range("c4") = Time '''''
    DateTime = Now + TimeSerial(0, 0, 10)
    Application.OnTime DateTime, "vaa_SW"
End Sub
Sub vac_Start()
    u = u + 1
    Range("c5") = u '''''
    Call vaa_SW
End Sub
Sub vab_Stop()
    u = 0
    Range("c5") = u '''''
End Sub

[/vba]
а вот это [vba]

Код

If u = 0 Then Exit Sub

[/vba]аж самому понравилось

К сообщению приложен файл: 1376114.xlsm (18.5 Kb)

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Пятница, 08.09.2023, 13:30

Ответить

Количество запущенных таймеров (Макросы/Sub)

Страница 1 из 1
1