Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Таймер VBA
 
#1
02.08.2014 18:13:29
Всем привет) Пришел за помощью - мне необходимо сделать таймер обратного отсчета 2 минуты и чтобы по факту его окончания книга закрывалась, таймер запускается при открытии книги.


Заранее спасибо.
 
 
 
#2
02.08.2014 18:19:54
Код
Application.OnTime

+F1
 
 
 
#3
02.08.2014 18:34:47
Не совсем понял ваш ответ, т.к. новичок в этом деле)
 
 
 
#4
02.08.2014 18:36:11
начало
 
 
 
#5
02.08.2014 18:38:09
Можете русским языком написать чего вам не хватает, а не просто блестать умением подкидывать ссылки без объяснений!
 
 
 
#6
02.08.2014 19:10:56
ALFA, Вам в #2 дан совет посмотреть справку по Application.OnTime. Не помогло?
 
 
 
#7
02.08.2014 19:16:07
К сожалению не разобрался как с ним справиться..
 
 
 
#8
02.08.2014 19:28:32
Если не получается, то в #4 RAN подсказывает - нужен Ваш файл (согласно Правил), где было бы видно, ЧТО конкретно у Вас не получилось.
А теперь перечитайте свой #5 - к чему он?
 
 
 
#9
02.08.2014 19:35:32
Я не понял к чему меня тыкнули в правила... Фаил посчитал не нужным выкладывать, т.к. данная операция не связана ни с какими данными, можно открыть новую книгу и все...
 
 
 
#10
02.08.2014 19:35:54
:)  
Код
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:02:00"), "CloseBook"
End Sub
Private Sub CloseBook()
Me.Saved = True
Me.Close
End Sub  
Все дополнительные вопросы к автору
Цитата
Фаил посчитал не нужным выкладывать
Изменено: RAN - 14.08.2014 21:05:12
 
 
 
#11
02.08.2014 19:38:05
Цитата
ALFA пишет: Фаил посчитал не нужным выкладывать
Ну показали бы тогда свой неудачный вариант кода...
 
 
 
#12
02.08.2014 21:35:24
Приложил пример
 
 
 
#13
03.08.2014 10:14:22
Спасибо всем за помощь, все работает)
 
 
 
#14
03.08.2014 11:18:33
А можно ли данный таймер поместить в Label1 формы?
Изменено: ALFA - 03.08.2014 11:18:46
 
 
 
#15
03.08.2014 11:37:24
Варианты предложили RAN и ZVI - Вы про какой "данный" сейчас?
 
 
 
#16
03.08.2014 11:43:58
Юр, да хоть какой. Как его в лейбл засунуть? Точнее что?  :)
 
 
 
#17
03.08.2014 12:13:55
Ну, раз нет разницы, то такой вариант))
 
 
 
#18
03.08.2014 21:10:10
Круто)) то что нужно! Спасибо огромное всем за помощь!
 
 
 
#19
25.02.2024 06:50:38
Доброго времени суток. Новую тему создавать не стала, тема подходит для моего вопроса.

Товарищи, просьба помочь.
Имеется таймер в ячейке А1, при открытии книги он запускается и отрабатывает "как в примере 10 секунд."
Подскажите, как продублировать - именно продублировать таймер в Label1 из ячейки?

Так дублируется, но не обновляется, статично стоит на 00.00.10
Код
'Работает но не верно.
Private Sub UserForm_Initialize()
Label1.Caption = Format(Range("A1"), "hh:nn:ss")
End Sub

Суть в том, что не могу поместить его в userform как показывал Юрий М.
Цитата
написал:
Ну, раз нет разницы, то такой вариант))

Прикрепленные файлы
Таймер 01.xlsm  (17.31 КБ)

Не могу, потому, что форма у меня несколько раз открывается, и закрывается.
Нужно, что бы таймер работал в ячейке А1, а в Label1 - дублировался.
Это вообще возможно? Спасибо)
Изменено: Alenochka93 - 25.02.2024 06:55:17
 
 
 
#20
25.02.2024 08:04:11
Alenochka93 Здрввствуйте так надо.
Изменено: Евгений Смирнов - 25.02.2024 08:28:46
 
 
 
#21
25.02.2024 08:38:28
Цитата
написал:
Здрввствуйте так надо.
То что нужно. Большое Спасибо. Буду использовать Таймер 03

А подскажите пожалуйста еще, что такое UserForm1.Lab, и от куда берется этот Lab.?
 
 
 
#22
25.02.2024 09:01:24

Lab это имя процедуры, которая расположена в модуле формы с именем UserForm1. Для ее вызова пишем UserForm1.Lab
 
 
 
#23
25.02.2024 21:06:31
Спасибо большое
 
 
 
Страницы: 1
Читают тему
Наверх