如何在 Excel 中响铃-表盘吧

如何在 Excel 中播放系统声音以响铃

只需几行 Visual Basic，您就可以让 Excel 播放系统声音。然后，您可以根据单元格的值触发此声音。

要在 Excel 中播放系统声音：

1. 使用键盘快捷键Alt+F11启动Microsoft Visual Basic for Applications 。
2. 转到插入 > 模块。
3. 输入以下代码：
```
Function MakeABeep() as String
    Beep
    MakeABeep = “”
End Function
```
4. 单击保存图标。
5. 单击Save as Type下拉菜单并选择Excel Macro-Enabled Workbook。您的文件需要以这种格式保存才能播放声音。
6. 保存您的工作簿。
7. 单击窗口右上角的 X关闭Microsoft Visual Basic for Applications窗口。
8. 要测试您的哔声，请在任何单元格中键入以下内容：=MakeABeep()
9. 按Enter，您应该会听到系统声音。

如何使用 Visual Basic 在 Excel 中播放自定义声音

如果您更喜欢选择自己的声音而不是播放默认的系统提示音，也可以让 Excel 播放特定的声音文件。

在 Excel 中播放自定义声音：

按Alt+F11启动Microsoft Visual Basic for Applications 。
单击插入 > 模块。

输入以下代码：

#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 AlarmSound() As String
    Call PlaySound("C:\Users\adam\Downloads\alarm.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    AlarmSound = ""
End Function

ring-alarm-excel-vba-play-sound

将“C:\Users\adam\Downloads\alarm.wav”替换为您要使用的声音文件的文件位置。获取完整文件路径的最简单方法是在 Windows 资源管理器中导航到该文件，右键单击它，然后选择Copy as Path。
关闭Microsoft Visual Basic for Applications窗口。
通过在任何单元格中输入以下内容来测试您的声音：=AlarmSound()
按Enter，您的声音应该会播放。