| Вопрос: Выполнение макроса с заданным временным интервалом | Добавлено: 24.08.06 14:40 |
Автор вопроса:  Juveman
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  Juveman Вопросов: 1 Ответов: 9 |
Профиль | | #16 | Добавлено: 31.08.06 17:53 |
Всё сделал, всё работает! Всем обсуждавшим огромное спасибо! 
|
||
|
Номер ответа: 17 Автор ответа:  DrugON ICQ: nospam Вопросов: 10 Ответов: 53 |
Профиль | | #17 | Добавлено: 03.11.06 11:59 |
|
Оно-то работает, но работает во всех ячейках A1 всех открытых книг.
Как указать конкретную книгу, чтобы таймер работал только в ней? И можно ли сделать так, чтобы он запускался при открытии книги сам (есссссно, при соответствующем уровне Security) |
||
|
Номер ответа: 18 Автор ответа: DrugONICQ: nospam Вопросов: 10 Ответов: 53 |
Профиль | | #18 | Добавлено: 03.11.06 12:00 |
| Сорри... Это я про пример Василия | ||
|
Номер ответа: 19 Автор ответа: ВасилийВопросов: 8 Ответов: 27 |
Профиль | | #19 | Добавлено: 03.11.06 17:02 |
| Прикольно я и не заметил. Погодь что нить придумаем.))) | ||
|
Номер ответа: 20 Автор ответа: ВасилийВопросов: 8 Ответов: 27 |
Профиль | | #20 | Добавлено: 03.11.06 17:43 |
|
Алекс.
Этот код вставь в "Эта книга" Private Sub Workbook_Open()
UpdateTime End Sub Этот в модуль Sub UpdateTime()
Dim varNextCall As Variant ' Записываем в ячейку текущее время Sheets("Лист2"  .Range("A5".Value = Now
' Лист2, А5 - меняй на своё ' Записываем в varNextCall время, когда вызвать этот макрос _ в следующий раз (через 1 секунду) varNextCall = TimeSerial(Hour(Now), Minute(Now), Second(Now) + 1) ' Уведомляем Excel в необходимости вызова макроса Application.OnTime varNextCall, "UpdateTime" End Sub Удачи. |
||