亞寵展、全球寵物產業風向標——亞洲寵物展覽會深度解析
738
2025-04-04
如果在Excel中滿足條件，如何播放聲音？
如果在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
Copy
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
Copy
3。 然后保存并關閉此代碼窗口，返回到工作表，并輸入以下公式： = IF（A1> 300，SoundMe（），“”）單元格旁邊的空白單元格中包含您要基于其播放聲音的值，然后按 輸入 鍵，公式單元格中將不顯示任何內容，請參見屏幕截圖：
4。 從現在開始，如果將大于300的值輸入到單元格A1中，則將立即播放特定的聲音。
：在上面的代碼中，您可以根據需要將聲音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
Copy
備注：在上面的代碼中，數字 3 在腳本中 專欄（3） 是當此列中的值更改時要播放聲音的列號。
2。 然后保存并關閉此代碼窗口，現在，如果第三列中的單元格值發生更改，則將播放默認的系統提示音。
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
