Здравствуйте. Пытаюсь сделать табло для соревнований. Нужно чтобы, когда закончится время, сработала сирена. Каким макросом воспользоваться, чтобы прозвучал сигнал, если в ячейке А1 значение 00:00?
Здравствуйте. Пытаюсь сделать табло для соревнований. Нужно чтобы, когда закончится время, сработала сирена. Каким макросом воспользоваться, чтобы прозвучал сигнал, если в ячейке А1 значение 00:00?amaksimus85
нашел макрос воспроизведения сигнала при условии. Но в моём варианте не работает. Нужно, чтобы по окончании времени сработал сигнал.
[vba]
Код
Sub timer() 'запуск таймера
interval = Now + TimeValue("00:00:01")
If Range("A1").Value = 0 Then Exit Sub
Range("A1") = Range("A1") - TimeValue("00:00:01")
Application.OnTime interval, "timer"
End Sub
Sub sound() iFileName = "C:\Windows\Media\predupreditelnaya-oglushitelnaya-gromkaya-sirena.wav" iMacroFunction = "SOUND.PLAY(,""" & iFileName & """)" ExecuteExcel4Macro iMacroFunction End Sub Sub ssse() "запуск при условии, что время остановится т.е. будет 00:00 в ячейке А1 If [a1] = 0 Then Call sound End If End Sub
[/vba]
Когда в ячейке 00:00 при запуске макрос работает. А вот если его вставить в макрос таймера, то нет. Как правильно воспользоваться этими макросами?
нашел макрос воспроизведения сигнала при условии. Но в моём варианте не работает. Нужно, чтобы по окончании времени сработал сигнал.
[vba]
Код
Sub timer() 'запуск таймера
interval = Now + TimeValue("00:00:01")
If Range("A1").Value = 0 Then Exit Sub
Range("A1") = Range("A1") - TimeValue("00:00:01")
Application.OnTime interval, "timer"
End Sub
Sub sound() iFileName = "C:\Windows\Media\predupreditelnaya-oglushitelnaya-gromkaya-sirena.wav" iMacroFunction = "SOUND.PLAY(,""" & iFileName & """)" ExecuteExcel4Macro iMacroFunction End Sub Sub ssse() "запуск при условии, что время остановится т.е. будет 00:00 в ячейке А1 If [a1] = 0 Then Call sound End If End Sub
[/vba]
Когда в ячейке 00:00 при запуске макрос работает. А вот если его вставить в макрос таймера, то нет. Как правильно воспользоваться этими макросами?amaksimus85
У меня музыка не играет. Но чтобы что то призошло когда на Вашем таймере будет 0 попробуйте записать так: [vba]
Код
Sub timer() interval = Now + TimeValue("00:00:01") If Range("A1").Value = 0 Then Call sound Exit Sub End If Range("A1") = Range("A1") - TimeValue("00:00:01") Application.OnTime interval, "timer" End Sub
[/vba]
У меня музыка не играет. Но чтобы что то призошло когда на Вашем таймере будет 0 попробуйте записать так: [vba]
Код
Sub timer() interval = Now + TimeValue("00:00:01") If Range("A1").Value = 0 Then Call sound Exit Sub End If Range("A1") = Range("A1") - TimeValue("00:00:01") Application.OnTime interval, "timer" End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
