EXCEL”條件”觸發”聲音”可以嗎?

Question

我希望有個物件(聲音)插入EXCEL中
再我設定條件成立的時候它能夠觸發 物件(聲音)提醒我
這能夠做到嗎?

條件:泛指....當某數=某值 OR 某格的數值等於某值

rayn....沒發出聲音
什麼時候才會觸發 我改變數值並沒有觸發
這段程式 我該放在哪裡

我可以觸發其他的(其他位置的)聲音檔嗎?
檔案格式有限制嗎?

感謝沙拉油的 提示
我在研究看看

在今天 我看了 沙拉油所提供的
他能夠播放MP3 但是不能夠 播放WAV
另外我的重點是...如何能夠自動在條件符合就能播放
而非我擊點他 才播放 謝謝

謝謝沙拉油的解釋 喔
不過 我個人並不會VBA
程式裡面 大致有解釋還看的懂他在做什麼
但是還不會做一個出來...

Answer 1

什麼樣的條件成立？

2006-05-02 19:49:22 補充：
要撥放聲音檔，較簡單的方式是引入 windows media player 物件。
參考底下的連結內有範例檔，檔名是「Excel 定時播放音效」
http://tw.webfile.yahoo.com/file/filer?cid=warehouse-of-Elvin&r=438552

2006-05-05 13:40:27 補充：
「Excel 定時播放音效」可以播放任何 Windows media player 可以播放的格式，包括 Wav 檔案格式。
你是不是有進去 VBE 裡面看或修改程式碼才不能播放的。

2006-05-05 13:43:48 補充：
「Excel 定時播放音效」是定時播放的，這個檔案是之前回應其他網友的，並非專為您所寫的。
它驅動音效是利用「手動」配合「固定時間」去播放音樂。
您的要求得利用 Change 事件去執行播放音樂，您可以自行更改嗎？

2006-05-07 13:52:56 補充：
另外做個範例檔給你了，底下內網址下載！
巨集內有詳細說明。
http://tw.webfile.yahoo.com/file/filer?cid=play_excel&r=177521

Answer 2

例如:A1>A2發出告警聲!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address() = "$A$1" Or Target.Address() = "$A$2" Then
If Cells(1, 1) > Cells(2, 1) Then
Beep
End If
End If
End Sub

2006-04-28 22:20:44 補充：
修正題目設的條件，假設A1=0時觸發聲音。Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address() = "$A$1" ThenIf Cells(1, 1) = 0 ThenBeepEnd IfEnd IfEnd Sub將以上程式貼於VBA的工作表(sheet1)上。如要觸發其他聲音檔，需再研究研究。