在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</kbd > + 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