如何在 Excel 中满足条件时播放声音？

在 Excel 中，我们可以使用条件格式来根据需要设置和突出显示满足条件的单元格，但有时如果满足某个条件，您可能希望播放声音。例如，如果 A1 单元格的值大于 300，我希望播放一个声音。Excel 不支持此功能，本文将介绍一些 VBA 代码来解决这个任务。

使用 VBA 代码根据单元格值播放默认系统提示音

使用 VBA 代码根据单元格值播放自定义声音

使用 VBA 代码在特定列中单元格值更改时播放声音

使用 VBA 代码根据单元格值播放默认系统提示音

这里有一个方便的代码，当满足特定条件时可以播放默认系统提示音，请按以下步骤操作：

1. 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA 代码：根据单元格值播放默认系统提示音：

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

3. 然后保存并关闭此代码窗口，返回工作表，并输入此公式：=IF(A1>300,BeepMe(),"") 到包含要播放声音的值的单元格旁边的空白单元格中，然后按 Enter 键，公式单元格中不会显示任何内容，请参见截图：

4. 现在，如果 A1 单元格中的输入值大于 300，将播放默认系统提示音。

使用 VBA 代码根据单元格值播放自定义声音

如果您想播放其他声音而不是默认系统提示音，这里也有一个 VBA 代码可以帮助您。

1. 按住 ALT + F11 键，然后打开 Microsoft Visual Basic for Applications 窗口。

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(),"") 到包含要播放声音的值的单元格旁边的空白单元格中，然后按 Enter 键，公式单元格中不会显示任何内容，请参见截图：

4. 从现在开始，如果在 A1 单元格中输入的值大于 300，将立即播放特定声音。

注意：在上述代码中，您可以根据需要从 c:\windows\media\ 文件路径更改声音 wav 文件。请参见截图：

使用 VBA 代码在特定列中单元格值更改时播放声音

如果您希望在特定列中单元格值更改时播放声音，可以应用以下 VBA 代码。

1. 右键单击您希望在列中值更改时播放声音的工作表标签，然后从上下文菜单中选择 查看代码，在打开的 Microsoft Visual Basic for applications 窗口中，复制并将以下代码粘贴到空白模块中：

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

注意：在上述代码中，脚本 Columns(3) 中的数字 3 是您希望在该列中值更改时播放声音的列号。

2. 然后保存并关闭此代码窗口，现在，如果第三列中的单元格值发生更改，将播放默认系统提示音。