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 기능에서 파일 사양을 변경하면됩니다.

함수가 제대로 작동하려면 VBA 편집기의 삽입 된 모듈에 코드를 입력해야합니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (5834)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Conditionally_Making_a_Sound [조건부로 소리 만들기].