«Будильник»
Помимо электронных часов, можно настроить «будильник». Смысл данного трюка заключается в том, что в определенное время на экране отобразится окно с указанным ранее информационным сообщением (а при наличии колонок и иных сопутствующих устройств – вместе со звуковым сигналом). В листинге 2.27 приведен код макроса, который позволяет решить эту задачу.
Листинг 2.27. «Будильник»
Sub Clock()
' Уведомляем Excel, что процедуру Alarm нужно вызвать в 20:55
Application.OnTime TimeValue(«20:55:00»), «Alarm»
End Sub
Sub Alarm()
MsgBox «Пора ужинать!!!»
End Sub
После выполнения макроса Clock на экране в назначенное время (20 часов 55 минут) появится окно с сообщением Пора ужинать!!!. Следует учитывать, что для каждого последующего появления в назначенное время такого окна необходимо отдельно запускать макрос.