Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/звуковой сигнал по условию в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
звуковой сигнал по условию в ячейке
amaksimus85 Дата: Среда, 06.12.2023, 13:33 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

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


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

Автор - amaksimus85
Дата добавления - 06.12.2023 в 13:33
bigor Дата: Среда, 06.12.2023, 15:35 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1173
Репутация: 226 ±
Замечаний: 0% ±

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

Автор - bigor
Дата добавления - 06.12.2023 в 15:35
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
 
Ответить
Сообщениенашел макрос воспроизведения сигнала при условии. Но в моём варианте не работает. Нужно, чтобы по окончании времени сработал сигнал.

[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
Дата добавления - 06.12.2023 в 22:55
mgt Дата: Четверг, 07.12.2023, 10:50 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 101
Репутация: 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]


Сообщение отредактировал mgt - Четверг, 07.12.2023, 10:50
 
Ответить
СообщениеУ меня музыка не играет. Но чтобы что то призошло когда на Вашем таймере будет 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]

Автор - mgt
Дата добавления - 07.12.2023 в 10:50
NikitaDvorets Дата: Четверг, 07.12.2023, 11:10 | Сообщение № 5
Группа: Авторы
Ранг: Ветеран
Сообщений: 577
Репутация: 129 ±
Замечаний: 0% ±

Excel 2019
amaksimus85, добрый день.
Отредактирован макрос timer() , привязанный к кнопке "ОТ" запуска обратного отсчета для воспроизведения TADA.
К сообщению приложен файл: test_306_generate_tada_07_12_2.xlsm (25.6 Kb)
 
Ответить
Сообщениеamaksimus85, добрый день.
Отредактирован макрос timer() , привязанный к кнопке "ОТ" запуска обратного отсчета для воспроизведения TADA.

Автор - NikitaDvorets
Дата добавления - 07.12.2023 в 11:10
amaksimus85 Дата: Четверг, 07.12.2023, 22:17 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 20% ±

Всем большое спасибо! Вопрос закрыт.
 
Ответить
СообщениеВсем большое спасибо! Вопрос закрыт.

Автор - amaksimus85
Дата добавления - 07.12.2023 в 22:17
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!