Здравствуйте! Помогите разобраться в чем проблема или подскажите как это реализовать правильно. Нужно выводить сообщения, после прохождения определенного времени от указанного в ячейке.
Например: вводим 11:30 в ячейке А1, через 30 минут от указанного времени (т.е. в 12) появляется сообщения, после через час от указанного времени (12:30) другое сообщение и т.п.
В программировании для Excel и VBA не силен, но смог соорудить такой примитивный макрос, который вывод сообщения, правда оно выводится каждый раз по 2 раза, а как сделать чтобы сообщение выводилось только 1 раз, понять не могу.
Sub Напоминание()
' Сочетание для запуска: Ctrl+Shift+A
timeStart = TimeValue(Format(Range("A1"), "h:m:s"))
firstAlarm = timeStart + CDate("00:30:00")
secondAlarm = timeStart + CDate("01:00:00")
Application.OnTime firstAlarm, "Alarm"
Application.OnTime secondAlarm, "secAlarm"
End Sub
Sub Alarm()
MsgBox "Сообщение 1"
End Sub
Sub secAlarm()
MsgBox "Сообщение 2"
End Sub