作者：绿色风
分类：
时间：2022-08-17
浏览：98
楼主
xyh9999 |
Q：如何在Excel中实现连续声音报警与停止连续声音报警？
A：通过API调用相关DLL中的函数实现
详见附件
 ET发贴20100805A.rar
按下ALT+F11→在VBE中插入新模块，在模块开头输入：
- Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
- Public Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
自定义以下过程：
- Sub Lqc_ring(nRing) 'nRing为9时不间断,为4时停止,为1时单次报警
- If Not Dir(ThisWorkbook.Path & "\ok.wav") = "" Then
- Ring_TRMP = sndPlaySound(ThisWorkbook.Path & "\ok.wav", nRing)
- Ring_TRMP = sndPlaySound(ThisWorkbook.Path & "\ok.wav", nRing)
- Else
- Ring_TRMP = Beep(800, 300) + Beep(1200, 300) + Beep(2000, 300) + Beep(1600, 300) + Beep(2000, 300) + Beep(2400, 300) + Beep(4000, 300) + Beep(3000, 300) + Beep(1000, 300)
- MsgBox ThisWorkbook.Path & "\ok.wav文件不存在!所以测试不正常!", , "XYH9999提醒您!"
- End If
- End Sub
|
2楼
kszcs |
假如C5单元格是调用的系统时间,设置C5单元格的时间为2:30:12的时候,开始报警,怎么设置代码?
谢谢 |
3楼
kevinchengcw |
感谢分享 |
4楼
景新是某 |
你好 报警的声音有多大？？
能不能有VB语句 打开我自己的声音文件。
请不要嫌我是个菜鸟 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一