Звуковой сигнал

[Eugenio]

Доброго времени суток,
помогите, пожалуйста, написать макрос:
есть изменяющаяся ячейка, данные в нее поступают извне,
нужно, когда значение будет например больше пяти подать звуковой сигнал.
Как это сделать?

[valerij]

Сообщение от Eugenio

Как это сделать?

Вот с книги
......использовать следующую функцию API и задать корректный путь к звуковому файлу:

Public Declare Function PlayWavSound Lib "winmm.dll" _ 
Alias "sndPlaySoundA" (ByVal LpszSoundName As String, _
ByVal uFlags As Long) As Long

Public Sub PlaySoundO
Dim SoundName As String
SoundName = "C:\WinNT\Media\Chimes.wav"
PlayWavSound SoundName,  0
End Sub

[EducatedFool]

Вот весь код:

Private Sub Worksheet_Calculate()
    If [a1] > 5 Then Beep 440, 500
End Sub

Для формирования звука через встроенный динамик компа присутствует дополнительный модуль с кодом:

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Пример во вложении:

[IFRSoff]

Сообщение от EducatedFool

Вот весь код:

Private Sub Worksheet_Calculate()
    If [a1] > 5 Then Beep 440, 500
End Sub

Для формирования звука через встроенный динамик компа присутствует дополнительный модуль с кодом:

Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Пример во вложении:

Супер! Надо взять на заметку

[valerij]

Сообщение от EducatedFool

Вот весь код

Игорь, нет музона у меня, что твой код, что книжный(нет, книжный заработал, путь был не правильный), в чем причина?

[mchip]

На некоторых компьютерах (материнских платах) отсутсвуют системные динамики. Когда компьютер загружается он пищит или нет, а при входе в (выходе) из БИОС? Если нет, то возможно просто нет системного динамика. Тогда код правильный просто играть нечему...

[valerij]

Сообщение от mchip

Тогда код правильный просто играть нечему...

В ХР играет, а в висте нет!

[EducatedFool]

В ХР играет, а в висте нет!

Скорее всего, причина в настройках безопасности Vista...

Раньше (в Windows98/Me) работала встроенная в VBA функция Beep

В WinXP эта функция оказалась на 3-м Ring-е OC (все низкоуровневые функции упрятали подальше от пользователей), и, соответственно, без использования API-функции Beep уже не обойтись.

Возможно, в Висте её упрятали ещё глубже, или же система безопасности Висты просто не позволяет приложению Excel вызвать эту функцию.

Для проверки надо заменить код Beep 440,500 на код msgbox Beep (440,500)
и посмотреть, какое значение возвратит эта функция.

Можно использовать API-функцию Beep. Beep генерирует простые звуки на динамике компьютера. Функция синхронная; она не возвращает управления до тех пор, пока звук не прекратится. Объявление: BOOL Beep (DWORD dwFreq, // частота звука в герцах DWORD dwDuration // продолжительность звука в миллисекундах ); dwFreq – определяет частоту звука в герцах. Значение параметра должно лежать в диапазоне от 37 до 32,767 (0x25 до 0x7FFF). В случае успеха возвращается ненулевое значение. В случае неудачи возвращается нуль. Для получения дополнительной информации об ошибке вызовите функцию GetLastError

[Eugenio]

Спасибо, все получилось!

[valerij]

Сообщение от EducatedFool

Для проверки надо заменить код Beep 440,500 на код msgbox Beep (440,500)
и посмотреть, какое значение возвратит эта функция.

При запуске этого кода, ноль

Sub beepNew(): msgbox Beep (440,500) ' Beep 440, 500: End Sub
End Sub