첨부된 *.xlsm 파일을 여시구요.
Alt+F11 누르면 vba 코드 편집창 나옵니다.
편집창에서 프로젝트 창에서 보면 아래와 같이 나오는데요..
여기서 일단 sheet1을 더블클릭하시면
아래와 같은 코드를 볼 수 있습니다.
이 코드를 사용하시고자 하는 엑셀 파일의 해당 시트 코드 편집창에
그대로 복사해서 붙여넣기 하시구요.
if문 안에 있는 "$A$1" 부분의 주소를
사용하시고자 하는 셀주소로 변경하시고,
Call WAV_Play("C:\beep.wav")
부분의 파일경로와 파일명을 원하시는 걸로 변경하시면 됩니다.
Private Sub Worksheet_Change(ByVal Target As Range)
'셀주소 확인
If Target.Address = "$A$1" Then
'Beep
Call WAV_Play("C:\beep.wav")
End If
End Sub
아 그리고, 작업하시는 파일에서 vba코드 편집창의 프로젝트 대화상자에서
마우스 오른쪽버튼 누르면 나오는 팝업메뉴에서 "삽입" - "모듈" 선택하셔서 비어있는 모듈하나 생성하신후에,
샘플파일의 Module1부분 클릭하시면 나오는 코드전체를 복사해서 작업파일의 모듈1 코드편집창에서 붙여넣기 하셔야 합니다.
## 아.. 코드 쓰는것 보다 이 게시글 작성하는게 시간 더 걸리네요..
-----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'셀주소 확인
If Target.Address = "$A$1" Then
'Beep
Call WAV_Play("C:\beep.wav")
End If
End Sub
--------------------------
일단 엑셀에, 요부분을 제 컴에 알람소리 있는 경로명만 바꿔서, 코드보기에 붙여넣어보겠습니다.