Excel에서 조건이 충족되면 소리를 재생하는 방법은 무엇입니까?

Excel에서 조건부 서식을 적용하여 필요에 따라 조건을 충족하도록 셀의 서식을 지정하고 강조 표시 할 수 있지만, 경우에 따라 조건이 충족되면 소리를 재생하고 싶을 수 있습니다. 예를 들어 A1의 셀 값이 300보다 크면 소리를 재생하고 싶습니다. Excel은이 기능을 지원하지 않습니다.이 기사에서는이 작업을 해결하기 위해 몇 가지 VBA 코드를 소개합니다.

VBA 코드로 셀 값에 따라 기본 시스템 경고음 재생

VBA 코드로 셀 값을 기반으로 사용자 지정 사운드 재생

VBA 코드를 사용하여 특정 열에서 셀 값이 변경되면 소리 재생

VBA 코드로 셀 값에 따라 기본 시스템 경고음 재생

다음은 특정 조건이 충족 될 때 기본 시스템 경고음을 재생하는 편리한 코드입니다. 다음과 같이하십시오.

1. 누르고있어. ALT + F11 키를 누른 다음 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 셀 값에 따라 기본 시스템 경고음을 재생합니다.

Function BeepMe() As String
    Beep
    BeepMe = ""
End Function

3. 그런 다음이 코드 창을 저장하고 닫은 다음 워크 시트로 돌아가 다음 공식을 입력합니다. = IF (A1> 300, BeepMe (), "") 셀 옆에있는 빈 셀에 사운드를 재생하려는 값이 포함 된 다음 엔터 버튼 키, 수식 셀에 아무것도 표시되지 않습니다. 스크린 샷 참조 :

4. 이제 A1 셀에 입력 한 값이 300보다 크면 기본 시스템 경고음이 재생됩니다.

VBA 코드로 셀 값을 기반으로 사용자 지정 사운드 재생

기본 시스템 경고음이 아닌 다른 소리를 재생하려면 여기에 VBA 코드가 도움이 될 수 있습니다.

1. 누르고 ALT + F11 키를 누른 다음 응용 프로그램 용 Microsoft Visual Basic 창.

2. 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 셀 값에 따라 특정 사운드를 재생합니다.

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
    Call PlaySound("c:\windows\media\Speech On.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    SoundMe = ""
End Function

3. 그런 다음이 코드 창을 저장하고 닫고 워크 시트로 돌아가 다음 공식을 입력합니다. = IF (A1> 300, SoundMe (), "")셀 옆에있는 빈 셀에 사운드를 재생하려는 값이 포함 된 다음 엔터 버튼 키, 수식 셀에 아무것도 표시되지 않습니다. 스크린 샷 참조 :

4. 이제부터는 A300 셀에 1보다 큰 값을 입력하면 특정 사운드가 한 번에 재생됩니다.

노트: 위의 코드에서 필요에 따라 사운드 wav 파일을 변경할 수 있습니다. c : \ windows \ media \ 파일 경로. 스크린 샷보기 :

VBA 코드를 사용하여 특정 열에서 셀 값이 변경되면 소리 재생

특정 열에서 셀 값이 변경되면 소리를 재생하려면 다음 VBA 코드를 적용 할 수 있습니다.

1. 열에서 값이 변경 될 때 사운드를 재생하려는 시트 탭을 마우스 오른쪽 단추로 클릭 한 다음 코드보기 상황에 맞는 메뉴 및 열린 애플리케이션 용 Microsoft Visual Basic 창에서 다음 코드를 복사하여 빈 모듈에 붙여 넣습니다.

VBA 코드 : 열에서 셀 값이 변경되면 사운드를 재생합니다.

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20161223
Dim xCell As Range
On Error Resume Next
If Target.Columns.Count = 1 Then
  If Intersect(Target, Columns(3)) Is Nothing Then
    Exit Sub
  Else
    For Each xCell In Columns(3)
        On Error Resume Next
        If (xCell.Value = Target.Value) And (xCell.Value <> "") Then
          Beep
          Exit For
        End If
     Next
  End If
End If
End Sub

주의 사항: 위 코드에서 숫자 3 스크립트에서 기둥 (3) 이 열의 값이 변경 될 때 사운드를 재생하려는 열 번호입니다.

2. 그런 다음이 코드 창을 저장하고 닫으십시오. 이제 세 번째 열에서 셀 값이 변경되면 기본 시스템 경고음이 재생됩니다.