UC知道EXCEL 疑惑清指教
来源：百度知道 编辑：UC知道 时间：2024/05/23 02:08:14
高手你好，关于那个EXCEL 根据条件判断播放声音的问题还有点疑惑想请教你：
1. 把那个自定义宏复制到模块里，宏名是什么...alarm("NG"),alarm(),还是alarm, 3个我都试过了，都提示不可用，本人未学过VB，还请指教。
2. 能否做成当A1=A2时，播放一个声音，A1不等于A2时播放另外一个声音这样的。现在这个是A1=A2只显示OK，没声音哈
1. 把那个自定义宏复制到模块里，宏名是什么...alarm("NG"),alarm(),还是alarm, 3个我都试过了，都提示不可用，本人未学过VB，还请指教。
2. 能否做成当A1=A2时，播放一个声音，A1不等于A2时播放另外一个声音这样的。现在这个是A1=A2只显示OK，没声音哈
问题1：就是如何把这个自定义函数（宏代码）放到Excel中，操作步骤如下：
1）在Excel中按 Alt+F11 打开宏编辑器；
2）在宏编辑器中按 Ctrl+R 打开 工程资源管理面板；
3）在工程资源管理面板中找到你要添加的那个文件（个人宏工作溥，或其他），显示为：VBAProject(文件名)，在上面点右键，选择“插入”->“模块”，然后将代码粘贴到右边的空白处，保存即可；
宏名就是 alarm()
作用：根据所提供的参数播放不同的声音(取决于函数中的判断与调用)，同时显示参数内容（这个无论如何都会显示的）
用法为 =alarm(1个字符串参数)，比如=alarm("好")。
只要放到个人宏工作簿中了，就像Excel系统函数一样使用。
问题2：
是在这个问题增加来的 http://zhidao.baidu.com/question/124044112.html?fr=im2
要放多种声音的话，解决办法有不止一个，要看具体情况了，比如：
如果只要显示“OK”和“NG”等有限的几个，那可以只用这一个函数 alarm()，反正你要把要显示的内容写在那个括号中，所以在函数中判断所给的是“OK”还是“NG”还是其他，然后调用不同的声音文件就好了。
代码为：
……
Function alarm(str As String) As String
Dim WAVFile As String
alarm = str
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
if str = "NG" then WAVFile = "C:\WINDOWS\Med