在Microsoft Excel中响起闹钟的3种方法

如果您学习如何在 Excel 中响起闹钟，当单元格或单元格范围满足您设置的条件时，您就可以收到音频通知。

想象一下这样的场景：关键的截止日期迫在眉睫，您需要轻轻提醒或响亮的铃声来提醒您注意即将完成的任务。为此，您可以选择在手机或 Outlook 日历上设置提醒。

当您从 Excel 工作表转到其他软件时，您会分心，工作效率也会受到影响。为什么不在 Excel 中设置提醒？现在，您可能会说 Excel 没有任何提醒警报功能。这部分是正确的！

您可以使用 Excel VBA 创建自定义蜂鸣或警报声音函数。然后，您可以在各种公式（如 IF 或条件格式规则）中使用该函数来发出警报。

下面我编写了各种 Excel VBA 脚本，用于在 Excel 中响起警报。我还将描述您可以应用此技能的各种场景。

Excel 可以敲响警报吗？

您可以使用各种条件格式规则来突出显示符合预设条件的单元格或单元格范围。这可能起到视觉提醒的作用，但 Microsoft Excel 中没有任何功能区菜单按钮来设置音频通知。Excel 不允许您使用其用户界面按钮播放任何音频，就像在 Any.do、TickTick、Todoist 等桌面提醒应用程序上一样。

但是，您可以使用 Visual Basic for Applications (VBA) 编程语言子程序、函数过程、对象等来编写 Excel。VBA 有多个函数过程可以播放音频文件或直接发出蜂鸣警报。例如，PlaySound、Beep 和 sndPlaySound。

因此，您可以在 Excel 中编写 VBA 脚本来响起默认蜂鸣警报或使用 PC 中的 WAV 文件播放自定义通知音频。

创建自定义函数来播放系统警报

在 Excel 中响起闹钟的最基本方法是创建自定义蜂鸣公式，您可以在其他公式中使用该公式，例如如果。因此，当单元格遇到如果健康）状况。

打开 Excel VBA 编辑器 从 开发人员 > 代码命令块。点击插入并选择模块打开一个空白模块，您可以在其中编写 VBA 脚本。现在，将以下脚本复制并粘贴到空白模块中：

Function CustomBeep()
    ' Play a beep sound
    Beep
End Function

现在，点击节省按钮 Excel VBA 编辑器 工具栏并选择不在弹出的 Microsoft Excel 对话框中。

点击 保存类型 下拉列表 另存为 对话框并选择 超音速巡航导弹 文件类型选项。

最后，点击节省按钮将 VBA 脚本保存为 VBA 宏，您可以随时使用 自定义蜂鸣器() 创建公式时或按 Alt + F8 并运行 自定义蜂鸣声 宏。

现在你已经创建了 自定义蜂鸣器() 函数可让 Excel 中的 Windows 默认通知声音响起，以下是可以使用此功能的场景：

以上是股票价格监控工作表截图。我在交易开始时导入实时市场数据。

此处的目的是保持工作表打开并在其他应用程序或 Excel 工作簿上工作。如果股票价格达到目标卖出价，Excel 工作表将发出默认的 Windows 警报并以绿色填充显示卖出通知。

在 D2，我使用以下公式来显示文本字符串卖并播放 Windows 默认警报声音。

=IF(B2>1750,CustomBeep(),"Waiting")

上述公式是不言自明的。但是，如果你对 自定义蜂鸣器() 公式在 Excel 中，不用担心。您可以按照前面提到的 VBA 宏方法来创建它。

使用不同的音频文件响起闹钟

如果您想使用完全不同的音频文件，可以使用以下 Excel 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 AlarmSound() As String
    Call PlaySound("C:\Users\Joe\Downloads\custombeep.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    AlarmSound = ""
End Function

替换现有文件地址 Call PlaySound 使用您自己的音频文件的目录地址的函数，例如： C:\Users\Joe\Downloads\custombeep.wav。

在 Excel 中响起闹钟作为提醒

如果您在工作日中花费数小时处理 Excel 工作簿并忘记了重要任务（例如回复重要电子邮件、支付水电费或休息），则可以直接在 Excel 工作簿上设置提醒。

按照前面提到的步骤使用以下脚本创建 Excel VBA 模块，然后转到 另存为 对话框：

Dim Alarm As Date
Dim Message As String

Sub PopupReminder()
    Dim When As String

    If Alarm = 0 Then
        When = InputBox("What time would you like the reminder message to Popup?")
        If When  "" And When  "False" Then
            Message = InputBox("Please enter the reminder message")
            On Error Resume Next
            Alarm = Date + TimeValue(When)
            On Error GoTo 0
            Application.OnTime Alarm, "PopupReminder"
        End If
    Else
        Beep
        If Message  "" Then
            Application.Speech.Speak Message
            MsgBox Message
            Message = ""
            Alarm = 0
        End If
    End If
End Sub