Таймер не хочет запускаться
ПАМ
Дата: Суббота, 23.12.2017, 17:31 |
Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 317
Репутация:
11
±
Замечаний:
20% ±
Excel 2010, Excel 2016
Здравствуйте уважаемые знатоки. Решил я как-то сам попробовать свои силы в написании макросов, нашел видео, все сделал (вроде) по нему и не пойму почему у автора видео получается макрос а у меня нет . Объясните мне пожалуйста в чем моя ошибка или что может добавить. Заранее огромное спасибо!
Здравствуйте уважаемые знатоки. Решил я как-то сам попробовать свои силы в написании макросов, нашел видео, все сделал (вроде) по нему и не пойму почему у автора видео получается макрос а у меня нет . Объясните мне пожалуйста в чем моя ошибка или что может добавить. Заранее огромное спасибо! ПАМ
Ответить
Сообщение Здравствуйте уважаемые знатоки. Решил я как-то сам попробовать свои силы в написании макросов, нашел видео, все сделал (вроде) по нему и не пойму почему у автора видео получается макрос а у меня нет . Объясните мне пожалуйста в чем моя ошибка или что может добавить. Заранее огромное спасибо! Автор - ПАМ Дата добавления - 23.12.2017 в 17:31
RAN
Дата: Суббота, 23.12.2017, 17:34 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
starttimer<>startimer
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение starttimer<>startimer Автор - RAN Дата добавления - 23.12.2017 в 17:34
InExSu
Дата: Суббота, 23.12.2017, 22:46 |
Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 650
Репутация:
96
±
Замечаний:
0% ±
Excel 2010, 365
Привет! и тут есть что улучшить: [vba]Код
sheet1.Range("B2").Value = sheet1.Range("B2").Value = TimeValue("00:00:01")
[/vba] попробуйте: [vba]Код
Range("B2").Value = TimeValue("00:00:01")
[/vba] далее: [vba]Код
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
[/vba] не уверен, может на [vba]Код
Range("B2").Value = Now
[/vba] ? Что за видео?
Привет! и тут есть что улучшить: [vba]Код
sheet1.Range("B2").Value = sheet1.Range("B2").Value = TimeValue("00:00:01")
[/vba] попробуйте: [vba]Код
Range("B2").Value = TimeValue("00:00:01")
[/vba] далее: [vba]Код
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
[/vba] не уверен, может на [vba]Код
Range("B2").Value = Now
[/vba] ? Что за видео? InExSu
Разработчик Битрикс24 php, Google Apps Script, VBA Excel Windows/Mac
Ответить
Сообщение Привет! и тут есть что улучшить: [vba]Код
sheet1.Range("B2").Value = sheet1.Range("B2").Value = TimeValue("00:00:01")
[/vba] попробуйте: [vba]Код
Range("B2").Value = TimeValue("00:00:01")
[/vba] далее: [vba]Код
Application.OnTime Now + TimeValue("00:00:01"), "nexttick", , False
[/vba] не уверен, может на [vba]Код
Range("B2").Value = Now
[/vba] ? Что за видео? Автор - InExSu Дата добавления - 23.12.2017 в 22:46
Hugo
Дата: Суббота, 23.12.2017, 22:54 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3859
Репутация:
819
±
Замечаний:
0% ±
365
По поводу сбросить запуск - смотрите внимательно пример из хелпа: [vba]Код
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False
[/vba] там не указывается время Now + TimeValue("00:00:01"), там указывается конкретное время! На практике это удобнее делать через переменную - какой задали следующее время, той и скидываем запуск.
По поводу сбросить запуск - смотрите внимательно пример из хелпа: [vba]Код
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False
[/vba] там не указывается время Now + TimeValue("00:00:01"), там указывается конкретное время! На практике это удобнее делать через переменную - какой задали следующее время, той и скидываем запуск. Hugo
webmoney: E265281470651 Z422237915069 USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
Ответить
Сообщение По поводу сбросить запуск - смотрите внимательно пример из хелпа: [vba]Код
Application.OnTime EarliestTime:=TimeValue("17:00:00"), _ Procedure:="my_Procedure", Schedule:=False
[/vba] там не указывается время Now + TimeValue("00:00:01"), там указывается конкретное время! На практике это удобнее делать через переменную - какой задали следующее время, той и скидываем запуск. Автор - Hugo Дата добавления - 23.12.2017 в 22:54
ПАМ
Дата: Воскресенье, 24.12.2017, 10:16 |
Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 317
Репутация:
11
±
Замечаний:
20% ±
Excel 2010, Excel 2016
RAN , вы правы я не заметил InExSu , ваше пока не до конца к сожалению понял Hugo , я подумаю Спасибо всем
RAN , вы правы я не заметил InExSu , ваше пока не до конца к сожалению понял Hugo , я подумаю Спасибо всемПАМ
Ответить
Сообщение RAN , вы правы я не заметил InExSu , ваше пока не до конца к сожалению понял Hugo , я подумаю Спасибо всемАвтор - ПАМ Дата добавления - 24.12.2017 в 10:16