乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 求教个Excel问题,怎么通过判断条件来发出声音-excel声音,Excel满足条件后声音提醒

求教个Excel问题,怎么通过判断条件来发出声音-excel声音,Excel满足条件后声音提醒

作者:乔山办公网日期:

返回目录:excel表格制作




这个就高大上了。


公式这样写:
=IF(A1=A2,"OK",alarm("NG"))

说明:alarm("NG"),是用宏做的自定义函数,其中的"NG"为你需要在Excel单元格中显示的内容,声音文件在宏中调用,可自7a686964616fe78988e69d83366行更改

宏代码如下,测试OK:(将它添加到当前文件或个人宏工作溥的“模块”中)
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Function alarm(str As String) As String
Dim WAVFile As String
alarm = str
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
WAVFile = "C:\WINDOWS\Media\Windows XP 错误.wav" '此为声音文件,可以改为自己需要的
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End Function

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网