Ken은 Excel에서 조건부 서식을 만드는 방법을 알고 있습니다. 그러나 그가 정말로 원하는 것은 조건이 충족되면 Excel에서들을 수있는 소리 (경고음 등)를 내도록하는 것입니다.

매크로를 사용하지 않고는이 작업을 수행 할 수 없습니다. 경고음 만 내고 싶다면 다음과 같이 사용할 수 있습니다.

Function BeepMe() As String     Beep     BeepMe = ""

End Function

이 사용자 정의 함수가 수행하는 모든 작업은 사운드 (사용중인 시스템에 따라 다름)를 재생 한 다음 빈 문자열을 반환하는 것입니다.

다음과 같은 방식으로 워크 시트에서 함수를 사용할 수 있습니다.

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

기본 시스템 경고음 이외의 다른 소리를 재생하려면 Windows API PlaySound 기능을 사용해야합니다. 다음 코드는 기본 “tada”를 재생하는 사용자 정의 함수를 만듭니다

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 [조건부 소리 만들기].