Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Количество запущенных таймеров (Макросы/Sub)
Количество запущенных таймеров
Nic70y Дата: Четверг, 07.09.2023, 08:13 | Сообщение № 1
Группа: Друзья
Ранг: Экселист
Сообщений: 8748
Репутация: 2269 ±
Замечаний: 0% ±

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

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

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


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

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

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

Автор - Nic70y
Дата добавления - 07.09.2023 в 08:13
Nic70y Дата: Пятница, 08.09.2023, 13:30 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8748
Репутация: 2269 ±
Замечаний: 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
 
Ответить
Сообщениечерез костыль
[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]аж самому понравилось :)

Автор - Nic70y
Дата добавления - 08.09.2023 в 13:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Количество запущенных таймеров (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!