Кен знает, как создавать условные форматы в 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.

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

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

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

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

Этот совет (7658) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и новее) здесь:

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