Как остановить счётчик

[BDA2011]

не догоняю я, помогите пожалуйста!
куда вставить Application.OnTime EarliestTime:=Время, Procedure:="KillTheForm", Schedule:=False

[Казанский]

Пример с пуском и остановкой повторяющейся процедуры:
http://www.cyberforum.ru/vba/thread3...ml#post2044327

[BDA2011]

да мне эту форму по таймеру надо показать один раз при запуске файла, в любом другом случае пользователь сам её открывает и закрывает, когда ему это потребуется

[Казанский]

Офф

- Прапорщик, остановите счетчик.
- Счетчик, стой! Раз-два!

[IgorGO]

ага, так прапорщики останавливают поезд.

да мне эту форму по таймеру надо показать один раз при запуске файла, в любом другом случае пользователь сам её открывает и закрывает, когда ему это потребуется

пишете Вы одно, а делаете другое.
форма отображается по открытию книги и закрывается самостоятельно через 5 сек.
Какие тут где мигания по экрану - не вижу и откуда им взяться - не понимаю (может вам к окулисту, а не на этот форум, извините).
в чем собственно проблема? описать словами можете?

[IgorGO]

вот это в модуль1

Sub Открыть_заставку()
  Application.OnTime Now + TimeValue("00:00:10"), "ShowUF2"
  Application.OnTime Now + TimeValue("00:00:20"), "KillUF2"
End Sub

Sub ShowUF2()
  UserForm2.Show
End Sub

Sub KillUF2()
  Unload UserForm2
End Sub

[BDA2011]

Спасибо за ответы!
Ребят извините если некорректно излагаю свои мысли, я ж не програмист, я только учусь причем опытным путем, умные книжки читать некогда (если только урывками) а хочется что бы всё работало как задумал....

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

[IgorGO]

у вашего файла 6 просмотров и мой единственный ответ, что проблем не обнаружено...
остальные, полагаю, просто обломились об этом писать.

[BDA2011]

IgorGO не этот код совсем не решает задачи в остановке таймера тут просто старт и стоп по двум разным таймерам...

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

[IgorGO]

а в Вашем коде останавливать-то нечего... указано 1 раз выполнить нечто, это нечто 1 раз сработает, что тут останавливать????

dim sec as long

Sub StartTimer()
  sec = 0
  NextSecond
End Sub

Sub NextSecond()
  application.statusbar =  sec
  sec = sec + 1
  Application.OnTime Now + TimeValue("00:00:01"), "NextSecond"
End Sub

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