Кен знает, как создавать условные форматы в Excel. Однако он действительно хочет, чтобы Excel издавал звуковой сигнал (гудок или что-то еще), если условия соблюдены.

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

Function BeepMe() As String     Beep     BeepMe = ""

End Function

Все, что делает эта определяемая пользователем функция, — это воспроизводит звук (который будет зависеть от используемой вами системы), а затем возвращает пустую строку.

Вы можете использовать эту функцию на своем листе следующим образом:

=IF(A12>300,BeepMe(),"")

Если вы хотите воспроизвести какой-либо звук, отличный от системного сигнала по умолчанию, вам необходимо использовать функцию Windows API PlaySound. Следующий код создает определяемую пользователем функцию, которая будет воспроизводить «тада» по умолчанию

звучат так часто во многих версиях Windows.

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

Const SND_SYNC = &H0     Const SND_ASYNC = &H1     Const SND_FILENAME = &H20000

Function SoundMe() As String     Call PlaySound("c:\windows\media\tada.wav", _       0, SND_ASYNC Or SND_FILENAME)

SoundMe = ""

End Function

Эту функцию можно вызвать так же, как и в предыдущем примере:

=IF(A12>300,SoundMe(),"")

Если вы хотите воспроизвести другой файл WAV, просто измените спецификацию файла в функции SoundMe.

Обратите внимание, что код необходимо ввести во вставленный модуль в редакторе VBA, чтобы функция работала правильно.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (5834) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Conditionally_Making_a_Sound [Условное создание звука].