今天小編學了一個新技能，給大家分享一下。有一個基金價格監控的需求，要求每日自動更新基金價格，比較兩個基金溢價率的差異，當差異超過指定值時，播放報警音樂。

如下圖所示，使用GetJsonSource()公式從財經網站獲得基金數據，比較兩個基金的溢價率，當基金A的溢價率大于基金B的溢價率時，播放指定音樂。

雖然沒做過播放音樂的例子，但感覺VBA一定能播放音樂，于是百度了幾分鐘，找到了一段代碼，測試成功。具體步驟如下：

第一步，將Excel文件另存為xlsm格式，這樣可將VBA代碼保存在xlsm文件中。

第二步，在Visual Basic開發工具中，找到xlsm文件，插入一個模塊。必須將VBA代碼放在模塊1中才能生效。

第三步，在模塊1中加入以下代碼，引用系統自帶winmm.dll資源庫

Public?Declare?PtrSafe?Function?PlaySound?Lib?"winmm.dll"?Alias?"PlaySoundA"?(ByVal?lpszName?As?String,?ByVal?hModule?As?Long,?ByVal?dwFlags?As?Long)?As?Long

第四步，寫自定義函數PayMusic(chk, file)函數，參數chk表示檢查是否滿足播放音樂的條件，file指的是音樂文件。播放函數中，使用FileExists()方法判斷音樂文件是否存在，只有音樂文件存在才執行播放動作。

Function PayMusic(chk, file) If CreateObject("Scripting.FileSystemObject").FileExists(file) = True Then If chk = True Then Call PlaySound(file, 0&, &H0) PayMusic = "true" Else PayMusic = "false" End If Else PayMusic = "音頻文件" + file + "不存在" End IfEnd Function

溫馨提示：使用PayMusic()播放音樂只能播放wav音樂，大家可以從網站www.aigei.com下載wav特效文件。

如果覺得這個技巧很實用，請幫忙轉發給您的朋友

關注我們，獲得更多IT小工具↓

往期回顧：

在Excel中如何實現人民幣大寫金額

HR小伙伴周末推薦，如何在Excel中建立生日提醒？

官宣-我是計算機高手！

Excel 批量添加圖片的神器來了！

Excel中如何篩選合并單元格

菜鳥裹裹查詢接口重新上線啦

如何在Excel中查詢幣種匯率

如何用Excel抓取網頁數據

如何借助Excel瀏覽器、菜鳥裹裹批量查詢快遞信息

如何在Excel中使用快遞鳥批量查詢快遞單信息

Excel“減肥”有妙招

如何在Excel中批量查詢快遞單信息

如何在Excel中查詢幣種匯率

如何在Excel中批量查看股票價格

Excel 分割字符串

在Excel中如何刪除圖片背景

Excel快遞查詢函數大全

ExcelAPI網絡函數庫目錄第一期

WPS用戶福利來了

期盼已久的順豐快遞查詢上線了

且看"高手"如何用Excel做電子發票臺賬-上

且看"高手"如何用Excel做電子發票臺賬-下

如何用一個函數搞定考勤打卡記錄

如何用Excel檢查兩個文本之間相似程度

IP地址歸屬地批量查詢

如何在Excel中繪制地圖

如何在Excel中計算CPK和PPK的值

如何突破快遞查詢限制

Excel實用技巧之高級隨機函數

Excel網絡函數庫接入順豐新接口

總結

以上是生活随笔為你收集整理的如何使用_如何使用Excel播放音乐的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。