Здравствуйте!
Понадобилось, чтобы автоматически воспроизводился звук при появлении заданного значения в ячейке.
Используется EXCEL 2003. Данные погружаются из внешнего источника в режиме онлайн, меняются ежесекундно.
Смысл такой:
Значение (условно) A1 - подгружаемое и обновляемое онлайн значение из внешнего источника 1 раз в секунду
A2 - задаваемое пользователем вручную
A3 - условная формула, которая сравнивает A1 и A2 и выдает 1 из 2х значений соответственно.
Нужен звук при появлении нужного значения в поле A3.
Перед созданием темы выудил с данного форума и других кучу кодов. Т.к. я вообще не спец, то компоновал и мучался, как мог. Сделал, звук идет, но (!) только если я ввожу в конкретный момент заведомо подставное нужное значение в A2. Тогда появляется нужное значение в A3 и звук дзынькает. Однако если A3 изменяется при проверке данных из внешнего источника, то звука нет. Вот мой код:
Понадобилось, чтобы автоматически воспроизводился звук при появлении заданного значения в ячейке.
Используется EXCEL 2003. Данные погружаются из внешнего источника в режиме онлайн, меняются ежесекундно.
Смысл такой:
Значение (условно) A1 - подгружаемое и обновляемое онлайн значение из внешнего источника 1 раз в секунду
A2 - задаваемое пользователем вручную
A3 - условная формула, которая сравнивает A1 и A2 и выдает 1 из 2х значений соответственно.
Нужен звук при появлении нужного значения в поле A3.
Перед созданием темы выудил с данного форума и других кучу кодов. Т.к. я вообще не спец, то компоновал и мучался, как мог. Сделал, звук идет, но (!) только если я ввожу в конкретный момент заведомо подставное нужное значение в A2. Тогда появляется нужное значение в A3 и звук дзынькает. Однако если A3 изменяется при проверке данных из внешнего источника, то звука нет. Вот мой код:
| Код |
|---|
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
If [A3] <> "" And [A3] = [A4] Then
mciExecute ("Play C:\tada.wav")
End If
End Sub
|
Изменено: - 14.07.2023 10:10:52
