звуковой сигнал по условию в ячейке

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » звуковой сигнал по условию в ячейке (Макросы/Sub)

amaksimus85

Дата: Среда, 06.12.2023, 13:33 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 20% ±

Здравствуйте. Пытаюсь сделать табло для соревнований. Нужно чтобы, когда закончится время, сработала сирена. Каким макросом воспользоваться, чтобы прозвучал сигнал, если в ячейке А1 значение 00:00?

К сообщению приложен файл: 3207057.xlsm (23.8 Kb)

Сообщение отредактировал amaksimus85 - Среда, 06.12.2023, 13:34

Ответить

bigor

Дата: Среда, 06.12.2023, 15:35 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1105

Репутация: 210 ±

Замечаний: 0% ±

нет

Добрый день
Ссылка на соседний форум кажется похожая задача, правда придется учитывать время загрузки медиаплеера.

Ответить

amaksimus85

Дата: Среда, 06.12.2023, 22:55 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 20% ±

нашел макрос воспроизведения сигнала при условии. Но в моём варианте не работает. Нужно, чтобы по окончании времени сработал сигнал.

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

К сообщению приложен файл: 1983477.xlsm (25.4 Kb)

Сообщение отредактировал Serge_007 - Четверг, 07.12.2023, 10:57

Ответить

mgt

Дата: Четверг, 07.12.2023, 10:50 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 98

Репутация: 25 ±

Замечаний: 0% ±

Excel 2010

У меня музыка не играет. Но чтобы что то призошло когда на Вашем таймере будет 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]