Воспроизвести звук при появлении в ячейке заданного значения

[SVGuss]

К сожалению, дальше элементарной записи макроса с помощью кнопочек мои знания не простираются, поэтому прошу помощи.
В ячейки экселевского листа через DDE транслируются котировки. Дальше я перевожу их в проценты и мне нужно, чтобы, когда этот процент будет выше определенного значения, эксель инициировал бы звуковой сигнал. Скажем, если прибыль/убыток выше 5% от общей суммы счета, звучит сигнал. При этом желательно, чтобы этот звук воспроизводился бы виндой, то бишь без запуска медиа-плейера, и чтобы звуковой файл можно было бы менять (или повторять несколько раз, но это наверное сложнее, проще просто подставить отредактированный файл).
Раньше я сталкивался с макросами как с одноразовым действием, которое запускается кнопкой. А тут нужно, чтобы условие проверялось бы постоянно, каждый раз, когда меняется значение в ячейке, или пересчитывается формула. То есть, я понимаю это так: лист обновился, макрос проверил значение, если оно меньше, то ждем следующего тика, если больше, то звучит звонок.
Как это сделать,я не представляю, буду благодарен за любую помощь.

[doober]

Смотрите здесь,он не только играть на трубе умеет,но и разговаривает,если вы настроите речь
И говорит значение в ячейке

[VictorM]

Можно еще так.

[VictorM]

Или еще проще, с использованием системных звуков самой Windows

Sub sound()
iFileName = "C:\Windows\Media\chimes.wav"
iMacroFunction = "SOUND.PLAY(,""" & iFileName & """)"
ExecuteExcel4Macro iMacroFunction
End Sub

[SVGuss]

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

Можно еще так.

doober - У меня выскакивает ошибка и открывается VB. Сложно для меня все это.

VictorM, звиняйте чайника, а где в макросе прописано это условие, что должно быть именно число 99 в ячейке? Мне это совершенно подходит, только нужно прописать условие, что если число в ячейке больше, чем значение другой ячейки, которую я заполню руками, то раздается звук. Ткните носом, как это условие прописать или хотя бы где оно, пожалуйста.

-----------
ааа, кажется, нашел - это в MS objects условие запрятано. Спасибо, вроде понял теперь, попробую сделать.

[doober]

Значит у вас 7,там агент не идет

[VictorM]

где в макросе прописано это условие, что должно быть именно число 99 в ячейке

В коде модуля листа (пкм на ярлыке листа - исходный код) увидите вот такое

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [a1] = 0.99 Then '99% - здесь проценты
          Call Звук
    End If
End Sub

Здесь и проценты прописаны и другие действия можно прописать

если число в ячейке больше, чем значение другой ячейки, которую я заполню руками

примерно так

If [a1] > [a2] Then
          Call Звук
    End If

Чтобы, например, отслеживать события только в ячейках столбца А, а не на всем листе, можно написать так

Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim iTarget As Range
    Set iTarget = Intersect(Me.Range("A1:A1000"), Target)
    If Not iTarget Is Nothing Then
        If [a1] > [a2] Then 'сравниваемые ячейки
            Call Звук
        End If
    End If
End Sub

[SVGuss]

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

Чтобы, например, отслеживать события только в ячейках столбца А, а не на всем листе, можно написать так

Спасибо! Как только заработаю чего-нибудь с помощью этого прибамбаса, скажу "Большое спасибо".

[SVGuss]

Увы, на живых тиках попробовал - не работает. Вернее, работает, но только тогда, когда я вручную кликаю на ячейках. В приложении видео: живые котировки транслируются, но звука нет. Нужно кликнуть на другую ячейку, только тогда макрос срабатывает (условие, которое тут должно срабатывать при обновлении листа - значение в ячейке P5>G2).

Макрос - как тут меня научили. Код в объектах

Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [p5] < [g1] Then
          Call Звук
    End If
        If [p5] > [g2] Then
          Call Звук
    End If
End Sub

в модуле

Private Declare Function PlaySound Lib "winmm.dll" _
                                   Alias "PlaySoundA" (ByVal lpszName As String, _
                                                       ByVal hModule As Long, ByVal dwFlags As Long) As Long

Sub Звук()
Dim WAVFile As String
    Const SND_ASYNC = &H1
    Const SND_FILENAME = &H20000
    WAVFile = ThisWorkbook.Path & "\Close.wav"
    Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Sub

Что надо поменять?

[VictorM]

на живых тиках попробовал - не работает.

Все правильно событие SelectionChange здесь работать не будет.

Что надо поменять?

думается нужен другой подход, можно попробовать проверять значения этих ячеек таймером, допустим каждые 5 сек.
Посмотрите во вложении.
Если нужно запускать таймер сразу при открытии книги, раскоментируйте код в модуле Эта книга