Макрос, условие времени

i777 Гость	#1 09.11.2010 00:35:43 Подскажите, пожалуйста как прописать условие -с17.00-24.00? (Application.OnTime ) Спасибо

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

09.11.2010 01:39:44

Непонятно, чего Вы хотите. Вот пример действия, которое будет совершаться с17.00-24.00 через каждые 5 сек

Sub Starter()
Application.OnTime TimeValue("17:00"), "mySub"
End Sub

Sub MySub()
Debug.Print Time 'действие
If Time < TimeValue("23:59") Then _
Application.OnTime Now + TimeValue("0:0:5"), "mySub"
End Sub

ww Гость	#3 09.11.2010 05:26:49 Может что-то типа этого: If Time < TimeValue("23:59") And Time > TimeValue("1:59") Then MsgBox "Время!!!"

ww Гость	#4 09.11.2010 05:29:56 точнее If Time < TimeValue("23:59") And Time > TimeValue("18:59") Then MsgBox "Время!!!"

Читают тему