Note: The other languages of the website are Google-translated. Back to English

如果在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 鍵,公式單元格中將不顯示任何內容,請參見屏幕截圖:

如果條件為真,則doc播放聲音1

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 鍵,公式單元格中將不顯示任何內容,請參見屏幕截圖:

如果條件為真,則doc播放聲音2

4。 從現在開始,如果將大於300的值輸入到單元格A1中,則將立即播放特定的聲音。

筆記:在上面的代碼中,您可以根據需要將聲音wav文件更改為 c:\ windows \ media \ 文件路徑。 看截圖:

如果條件為真,則doc播放聲音3


箭頭藍色右氣泡 如果單元格值通過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

如果條件為真,則doc播放聲音4

備註:在上面的代碼中,數字 3 在腳本中 專欄(3) 是在此列中值更改時要播放聲音的列號。

2。 然後保存並關閉此代碼窗口,現在,如果第三列中的單元格值發生更改,則將播放默認的系統蜂鳴聲。


最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (27)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
您好,我嘗試使用 VBA 代碼播放基於單元格值的自定義聲音,但我遇到了問題。 這是一個示例:我在單元格 A1 中有一個時間倒計時,這意味著每秒的值變化。 然後在單元格 B1 中,我以 8:24:60 格式插入 =0/(08*00) 所以我用來觸發聲音的 if B1>A1,SoundMe(),"" 但聲音永遠不會聽到。 我可以聽到某種聲音在循環,我想這與值動態變化的事實有關。 然後我嘗試更改 Call PlaySound("c:\windows\media\Speech On.wav", _ 0, SND_ASYNC Or SND_FILENAME) 部分中的代碼,我將 SND_ASYNC 更改為 SND_SYNC。 這樣我設法播放了聲音,但它會永遠重複。 有沒有像只觸發一次聲音的解決方案,這意味著第一次滿足條件然後停止? 十分感謝
網站主持人對此評論進行了最小化
我喜歡你的文章感謝分享文章。


網站主持人對此評論進行了最小化
好文章,你可以聽音樂 https://bruitagesgratuits.com
網站主持人對此評論進行了最小化
嘿管理員,請告訴我,如果我想將聲音文件保存在 excel 文件中,我將在任何計算機上打開我的 excel 文件,我能聽到那個聲音嗎???
網站主持人對此評論進行了最小化
你好,謝赫扎德,
如果您應用第一個和第三個 VBA 代碼來播放默認的系統嗶聲,則可以從任何其他計算機聽到該聲音。 但是,使用第二個 vba 代碼,您應該根據需要設置自定義聲音。

注意:您應該將工作簿保存為 Excel 啟用宏的工作簿格式。
網站主持人對此評論進行了最小化
=if B1<>A1,SoundMe(),"" 希望可以幫到你
網站主持人對此評論進行了最小化
代碼不起作用我能做什麼
網站主持人對此評論進行了最小化
嗨,adm。 我正在嘗試通過 VBA 創建一個“IF”命令,當達到預定條件時,該命令會發出一個特定的句子。 請問你能幫幫我嗎?
網站主持人對此評論進行了最小化
嗨,adm。 我正在嘗試通過 VBA 創建一個“IF”命令,當達到預定條件時,該命令會發出一個特定的句子。 請問你能幫幫我嗎?
網站主持人對此評論進行了最小化
我剛剛下載了一個聲音 chakushinon123
網站主持人對此評論進行了最小化
尼斯。

謝謝
網站主持人對此評論進行了最小化
Quando colo essa 公式 recebo um erro, como se estiveesse faltando valor entra as aspas = IF (A1> 300, BeepMe (), "")
網站主持人對此評論進行了最小化
那很可愛,而且教得很好。 非常享受。 非常感謝!
網站主持人對此評論進行了最小化
如需更多有趣的聲音,您可以訪問https://tonosdellamadacanciones.com/</a>; 從世界各國的流行標籤上下載最新和最酷的聲音。
網站主持人對此評論進行了最小化
Аниматоры в Белгороде благодарят вас! Спасибо。 Мы на детских праздниках постоянно используем музыку。 От этого любой детский праздник в сто раз ярче и веселее!
網站主持人對此評論進行了最小化
你好

是否有任何解決方案只想激活音頻一次意味著只滿足第一個條件然後停止?

非常感謝
你可以在這裡學習聲音:https://sonneriepro.com/samsung/</a>;
網站主持人對此評論進行了最小化
謝謝! Мы на детских праздниках используем разную музыку - https://surprise-show.com 
網站主持人對此評論進行了最小化
我是商務人士,用Excel太熟悉了。 我通常將曲目的名稱保存在 execl 中,以便找到它們比將它們保存在文件中更簡單。 太好了。我用於商務的音樂來自ZigTone.com。你可以去那裡學習它們,也許對你有好處。
網站主持人對此評論進行了最小化
Grazie 蛻皮。 ho utilizzato in modo proficuo tutti i tuoi esempi che sono stati chiari e illuminanti。 奧托普雷齊奧索
網站主持人對此評論進行了最小化
不僅僅是照片或文件。 有時您可以在 EX 中插入音樂文件 https://klingeltonkostenlos.de/klingeltone-filmmusik-gratis/. 這是一件有趣的事情,不是嗎?
網站主持人對此評論進行了最小化
幹得好! 非常感謝您的代碼,這就是我所需要的
網站主持人對此評論進行了最小化
Bonjour, Le code ne fonctionne pas,
Le code suivant est en rouge:Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
別名“PlaySoundA”(ByVal lpszName 作為字符串,_
ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
Pour le code ci-dessous, j'ai un fichier mp3.Call PlaySound("c:\windows\media\Speech On.wav", _
0, SND_ASYNC 或 SND_FILENAME)
Faut il laisser \Speech On.WavJ'ai essayé avec mp3 mais ça ne fonctionne pas.
Pouvez vous m'aider ?MerciCordialementRobert


網站主持人對此評論進行了最小化
我可以插入持續時間為 3 小時的 mp1 聲音嗎?

非常感謝
你可以學習chakushinon123
網站主持人對此評論進行了最小化
感謝您分享的文章,非常有幫助。 完全免費在線查看更多免費字體。
網站主持人對此評論進行了最小化
謝謝你分享的文章,對我很有幫助!!!非常感謝
你可以在這裡學習聲音:https://sonneriesvip.com/</a>;
網站主持人對此評論進行了最小化
好網站我喜歡這個網站
網站主持人對此評論進行了最小化
你的文章太好了,我非常喜歡,horbuchkostenlos.de 上的最新有聲讀物 2022
這裡還沒有評論
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護