Вот кстати да. Я уже подумал об этом. Шутка шуткой, а похоже, что это пригодится )

Ура! Спасибо вам большое человеческое! Я-таки сделал. Накопировал этих текстбоксов аж под 30шт, завязал на каждую ячейку в столбце B отдельно. Звук идет, всё норм. В итоге все вышло примерно так:

Скрытый текст

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long Private Sub TextBox1_Change()  If [D51] <> "" And [D51] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox2_Change()  If [D52] <> "" And [D52] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox3_Change()  If [D54] <> "" And [D54] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox4_Change()  If [D55] <> "" And [D55] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox5_Change()  If [D57] <> "" And [D57] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox6_Change()  If [D58] <> "" And [D58] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox7_Change()  If [D60] <> "" And [D60] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox8_Change()  If [D61] <> "" And [D61] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox9_Change()  If [D63] <> "" And [D63] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox10_Change()  If [D64] <> "" And [D64] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox11_Change()  If [D66] <> "" And [D66] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox12_Change()  If [D67] <> "" And [D67] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox13_Change()  If [D69] <> "" And [D69] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox14_Change()  If [D70] <> "" And [D70] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox15_Change()  If [D72] <> "" And [D72] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox16_Change()  If [D73] <> "" And [D73] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox17_Change()  If [D75] <> "" And [D75] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox18_Change()  If [D76] <> "" And [D76] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox19_Change()  If [D78] <> "" And [D78] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox20_Change()  If [D79] <> "" And [D79] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox21_Change()  If [D81] <> "" And [D81] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox22_Change()  If [D82] <> "" And [D82] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox23_Change()  If [D84] <> "" And [D84] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox24_Change()  If [D85] <> "" And [D85] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox25_Change()  If [D87] <> "" And [D87] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox26_Change()  If [D88] <> "" And [D88] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox27_Change()  If [D90] <> "" And [D90] = [S2] Then    mciExecute ("Play C:\tada.wav")  End If End Sub Private Sub TextBox28_Change()  If [D91] <> "" And [D91] = [S3] Then    mciExecute ("Play C:\tada.wav")  End If End Sub

Может, немного колхозно и стоило как-то сделать звук на диапазон этих ячеек, но главное, что задача выполнена.
Преодолел повторное долбление звука на мозг очень просто: добавил 10сек тишины в конце звукового файла. Пока файл проигрывается, его уже ничто не может остановить. Даже если в других ячейках выполнится условие. Будет тишина. Ну а 1 раз в 11 секунд послушать пару раз звук - ничего страшного.
Сразу скажу, что таймер на проверку вопрос не решит, т.к. реакция должна быть на изменение с моей стороны максимально быстрой. А вот когда уже смотришь на таблицу, то без разницы. Так что тишина эффективней таймера.
Режим конструктора в 2003 включается немного мудрено: надо правой кнопкой тыкнуть на панель с пиктограммами и добавить Visual Basic. Затем нажать на треугольную линейку с карандашом. Тогда текстбоксы начинают отзываться на правую кнопку и их можно редактировать.

Ну так изменения нет, а оно срабатывает все равно. Фишка в том, что по DDE данные-то меняются, но от их изменения значение текста не меняется. Однако видимо изменение все равно видится и звук идет заново постоянно.
Щас будем копать, спасибо. А вы в каком делали? Может я для редактирования временно его поставлю если что

Не совсем понял, что имеется в виду. Связывать разные формулы никак нельзя. Треньканье и обсчет нужны по каждой ячейке отдельно, чтоб точно без глюков и ошибок. Не ну можно конечно обсчитывать весь столбец D и тренькать при измении любой ячейки в столбце, я все равно обращу внимание на экран и буду разбираться руками, как и делаю это сейчас. Но по каждой ячейке вполне устраивает, пусть это даже долго и нудно копипастить.
Вы про 5 сек? Я читал, но это проблему не решает. Если значение горит и не меняется, то каждые 5 сек ведь будет долбить все равно. Ну да ладно.
Отлично, сейчас пытаюсь понять, где эта зараза в 2003м excel... Я просто нажимаю правой кнопкой на лист, далее "исходный текст" и там появляется окно с кодом. Но из относящего к делу там только строка ща будет звук и всё.

Да, звук идет. Подсунул в ваш файл вывод по DDE, значение ловит, бренькает.
Строку с сообщением о звуке удалил, потому что оно парализует работу. Но это единственное, с чем я справился.

Скрытый текст

Данные обсчитываются постоянно и звук идет всегда, когда выполняется условие. То есть звенеть будет бесконечно при неизменно горящей ячейке. Это неудобно, но терпимо, т.к. вводом нужного сравнительного значения можно заставить заткнуться. Интересно, можно ли как-то научить его, чтобы он не звенел заново при прежнем значении? Это не просьба, просто вопрос для интереса. Наглеть не буду, буду терпеть, как есть )) Просто спросил

Но вот с чем не могу справиться, так это с настройками этого самого текстбокса. Я не пойму, где он, как привязан к ячейке и как его убрать. Получается, что мне таких текстбоксов надо на весь столбец от B35 и ниже. Соответственно, размножить не могу. Но в целом основа задачи выполнена.

Отчего же, если ТС сам ставит вопрос про DDE? Все в точности, как у меня, по крайней мере, по ссылке №1

Вот кстати накопал АБСОЛЮТНО зеркальную проблему. Вроде бы предложена куча решений, щас буду копаться в этом болоте:
https://www.programmersforum.ru/showthread.php?t=125104
Как я понял, у ТС всё в итоге заработало.
Местных прошу оценить предложенные решения

И вот вроде тоже заработало у кого-то:
http://programmersforum.ru/showthread.php?t=42215

Видимо, придется разбираться с нуля с этими вашими боксами...
Пока что только совет про тайский бокс был дан по сути, ну или как его там ))

так проще некуда - чтобы звук бренькал однократно каждый раз при изменении указанной ячейки (точно так же, как он срабатывает при ручном вводе в поля E)
понятное дело, чтобы можно накопипастить на несколько десятков ячеек самостоятельно + выбирать сам звук, но это очевидно я думаю
то есть то же, что сделал я, только с DDE
и я как писал в 1 посте обязательно office 2003 + winXP/win7

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

В успели скачать неверный файл ))) Я перезалил, но вы были быстрее

все именно так и осталось. просто я написал для упрощения, но теперь залил прям вообще всё

Прикладываю файл.
Еще раз суть: в куче пустых рядов сверху идет выгрузка данных по DDE. Далее эти параметры обрабатываются по формулам и вставляются в B35, B36 и далее вниз. В столбце E вводятся вручную параметры, которыми нужно сравнивать столбец B. В столбце D условные формулы, выдающие (в зависимости от результата сравнения) 1 из 2 текстовых значений. Ну далее уже в коде VBA указано на сравнение данного текста и текста из ячеек G с выдачей/невыдачей звука.
Если забивать значения в столбец E руками, то колонка D меняется и звук идет. Если же колонка D меняется из-за изменения данных с DDE, то звука нет.
Описал, как смог.

Так я бы рад понять ответ, но не могу. Да, у меня вывод через DDE-сервер из сторонней программы. По "DDE" найти на форуме что-то вменяемое невозможно, надо сужать поиск. Как - не знаю. Текстбокс для меня темный лес. Просто слово.

Ппоробовал. Compile error: sub or function not defined

Я имел в виду представленный мною код. Неужели его нельзя никак допилить?
DDE поискал. Выдает чертову тучу ссылок, ничего толком непонятно.
Про файл не понял. Свой файл скинуть сюда нужно? Так я ж все описал вроде бы.

Почитал. Темный лес для меня... Прям совсем. А с моей формулой ничего сделать нельзя? Немного допилить, скажем?

Простите, но я не понимаю, что это значит, что за текстбокс. Про повтор тоже немного не понял. В ячейке 2 значения: в основном горит одно, мне оно не нужно, но иногда загорается второе, вот его мне и надо. Поскольку данные обновляются ежесекундно, то значение может менятся каждую секунду. Мне надо, чтобы дзынькало при каждом появлении. Повтор звука (зацикливание), если нужное значение длительное время продолжает гореть, не нужен.
Возможно, дело именно в винде. Я тестил эту штуку на двух компах: WinXP 32bit и Win7 64bit. На обоих звякает отлично, а Win10 и Win11 я не пользуюсь вообще.

Возможно, из кода непонятно, но если имеет значение, то используется A4 для ввода сигнального значения A3. Просто я не знал, как написать значения A3 в формуле и записал в отдельных ячейках, после чего их сравнил (A3=A4).
Честно говоря, вообще не понимаю, какое может иметь значение обновление данных и ввод вручную. Неужели есть какая-то разница? Ведь код не обсчитывает ячейки, которые грузятся из внешнего источника (A1). Код не обсчитывает даже напрямую A3. Он просто сравнивает появляющееся в A3 значение с заведомой константой из A4. Какая этой дурной проге разница, есть ли вообще обновление данных?

Здравствуйте!
Понадобилось, чтобы автоматически воспроизводился звук при появлении заданного значения в ячейке.
Используется EXCEL 2003. Данные погружаются из внешнего источника в режиме онлайн, меняются ежесекундно.
Смысл такой:
Значение (условно) A1 - подгружаемое и обновляемое онлайн значение из внешнего источника 1 раз в секунду
A2 - задаваемое пользователем вручную
A3 - условная формула, которая сравнивает A1 и A2 и выдает 1 из 2х значений соответственно.
Нужен звук при появлении нужного значения в поле A3.
Перед созданием темы выудил с данного форума и других кучу кодов. Т.к. я вообще не спец, то компоновал и мучался, как мог. Сделал, звук идет, но (!) только если я ввожу в конкретный момент заведомо подставное нужное значение в A2. Тогда появляется нужное значение в A3 и звук дзынькает. Однако если A3 изменяется при проверке данных из внешнего источника, то звука нет. Вот мой код: