엑셀 매크로 실행 시, 시작할 때와 끝날 때 소리로 알려주기

Question

안녕하세요.

오피스365 사용자입니다.

질문 제목 그대로 입니다.

실행에 오래 걸리는 매크로들이 있습니다.

지금은 실행이 끝날 때까지 눈으로 확인하고 있는데요... 소리로 알려주는 기능이 있으면 좋겠다 생각했습니다.

하지만 아무리 검색해도 제가 원하는 답을 찾을 수 없어 이곳에 기대봅니다.

제가 원하는 것을 예로 들면, 매크로 실행 버튼을 눌렀을 때 "Start"라고 알려주고, 실행이 끝날 때 "Complete"라고 알려주는 식입니다.

실행 시간이 짧은 매크로는 버튼을 누르면 "총소리" 등이 나도록 설정하는 것입니다.

며칠 헤매이다 결국 이곳까지 와서 질문 올립니다.

많은 가르침 부탁드리겠습니다. 감사합니다.

Answer 1

안녕 타이거 하운드

저는 AnnaThomas이며 귀하의 질문에 기꺼이 도움을 드리겠습니다. 이 포럼에서 우리는 여러분과 마찬가지로 Microsoft 소비자이며 여기 있는 누구도 Microsoft 직원이 아닙니다.

"이 문서( https://helpdeskgeek.com/office-tips/how-to-create-and-ring-a-sound-alarm-in-microsoft-excel/ )에서는 시스템 소리 재생: Visual Basic 몇 줄만으로 Excel에서 시스템 소리를 재생하도록 할 수 있습니다. 그런 다음 셀의 값을 기반으로 이 사운드를 트리거할 수 있습니다.

사용할 수 있는 코드는 다음과 같습니다.

문자열로 함수 MakeABeep() 경고음 MakeABeep = "" 최종 기능

매크로의 시작과 끝에서 이 함수를 호출하여 시스템 경고음을 재생할 수 있습니다.

사용자 지정 소리 재생: 기본 시스템 경고음을 재생하는 대신 고유한 소리를 선택하려는 경우 Excel에서 특정 소리 파일을 재생하도록 할 수도 있습니다. 사용할 수 있는 코드는 다음과 같습니다.

Win64를 #If 다음 개인 선언 PtrSafe 함수 PlaySound Lib "winmm.dll" _ 별칭 "PlaySoundA"(ByVal lpszName As String, _ ByVal hModule As LongPtr, ByVal dwFlags As Long) 부울로 #Else 개인 선언 함수 PlaySound Lib "winmm.dll" _ 별칭 "PlaySoundA"(ByVal lpszName As String, _ ByVal hModule As Long, ByVal dwFlags As Long) 부울로 #End 만약에

상수 SND_ASYNC = &H1 상수 SND_FILENAME = &H20000

함수 AlarmSound()를 문자열로 PlaySound("C:\path\to\your\sound.wav", _ 0, SND_ASYNC 또는 SND_FILENAME) 알람 소리 = "" 최종 기능

"C:\path\to\your\sound.wav"를 사용할 사운드 파일의 파일 위치로 바꿉니다. 매크로의 시작과 끝에서 이 함수를 호출하여 사용자 지정 사운드를 재생할 수 있습니다."

이것이 도움이되기를 바랍니다 ;-), 이것이 당신이 필요로하는 것과 반대되는 경우 알려주십시오, 나는 여전히 당신의 질문에 더 많은 대답을 할 수 있습니다.

감사합니다

안나토마스

지역 사회에 환원하십시오. 이 답변이 문제를 해결했는지 여부를 표시하여 이 문제를 가진 다음 사람을 돕습니다. 하단에서 예 또는 아니요를 클릭합니다.

자동 번역된 답변으로, 문법 오류나 어색한 표현이 있을 수 있습니다.