нашел макрос воспроизведения сигнала при условии. Но в моём варианте не работает. Нужно, чтобы по окончании времени сработал сигнал.
[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 при запуске макрос работает. А вот если его вставить в макрос таймера, то нет.
Как правильно воспользоваться этими макросами?