Tassos는 특정 셀의 값이 임계 값을 초과 할 때 Excel에서 오디오 파일을 재생하도록하고 싶습니다. 예를 들어 셀의 값이 999를 초과하면 특정 사운드 파일이 재생되기를 원합니다.

Excel에서이 작업을 수행하는 기본 제공 방법은 없습니다 (Excel의 조건부 서식 기능에 흥미로운 추가 기능이기는하지만). 그러나 매크로를 사용하여 Windows API를 호출하여 사운드 파일을 재생할 수 있습니다.

통합 문서의 Sheet 개체에 일부 코드를 배치하여 시작해야합니다. (워크 시트의 탭을 마우스 오른쪽 단추로 클릭하고 상황에 맞는 메뉴에서 코드보기를 선택합니다.) 다음 코드를 사용하여 “playsound”함수를 선언합니다.

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

다음으로 실제로 사운드 파일을 재생할 짧은 매크로를 만들 수 있습니다. 사운드 파일이 통합 문서와 동일한 디렉터리에 있다고 가정하면 다음 코드가 작동합니다. (적절한 파일 이름과 위치를 포함하도록 코드를 수정해야합니다.)

Sub PlayWAV()

WAVFile = ThisWorkbook.Path & "\MyAudioFile.wav"

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

마지막으로 파일이 재생 될 때 기준을 설정합니다. 이 경우 대상 셀의 값이 임계 값 999를 초과 할 때마다 사운드 파일을 재생하려고합니다. 다음은 셀 C5에서 해당 조건을 확인하고 보증되는 경우 사운드 파일을 재생합니다.

Private Sub Worksheet_Change(ByVal Target As Range)

Threshold = 999     If Range("C5").Value > Threshold Then PlayWAV End Sub

이제 Cell C5의 값이 변경되어 999를 초과 할 때마다 오디오 파일이 한 번 재생됩니다. 값이 999 미만으로 변경되면 아무 것도 재생되지 않습니다. 값이 999를 초과하는 다른 값으로 변경되면 사운드 파일이 다시 재생됩니다.

오디오 파일 재생에 대한 추가 아이디어는 다음 사이트를 확인하십시오.

http://www.j-walk.com/ss/excel/tips/tip87.htm http://www.cpearson.com/excel/PlaySound.aspx

또한 데이터 유효성 검사를 사용하여 Excel에서 시스템 소리를 재생하도록 할 수 있습니다. 유효성 검사 기준 (_ExcelTips_의 다른 문제에 설명 됨)을 설정 한 다음 오류 탭에서 Excel을 중지, 경고 또는 사용자에게 알릴 지 여부를 지정하면됩니다. 기준에 맞지 않는 값을 셀에 입력하면 대화 상자가 표시되고 시스템 사운드가 들립니다.

_ 참고 : _

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

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

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

이 팁 (6559)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.