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

Posted by obzor under VBA

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

VictorM

Можно с использованием системных звуков самой Windows

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

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

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

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel