作者:乔山办公网日期:
返回目录: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