今天小编学了一个新技能，给大家分享一下。有一个基金价格监控的需求，要求每日自动更新基金价格，比较两个基金溢价率的差异，当差异超过指定值时，播放报警音乐。

如下图所示，使用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网络函数库接入顺丰新接口