全国计算机等级一级考试辅导:让Excel说话!
现在很多薪酬、财务管理甚至工控方面的数据报表都是用Excel生成的。对于一个要重用的Excel表单,如果表单中的某些数据出现异常,我们让Excel进行语音提示不是更方便吗?特别是在工业控制中,这种方法可以用来进行语音报警。以我在工控做的语音报警程序为例,介绍如何在Excel报表中使用语音提示。
先把各种情况下的语音报警文件录音编辑,保存到硬盘上。其次,打开要使用的Excel报表,在Excel菜单中打开[工具]→[宏]和[Visual Basic编辑器],然后在Visual Basic编辑器中插入“模块”,在模块中插入以下代码:
选项显式
将函数sndPlaySound Lib“winmm . dll”别名“sndPlaySoundA”(ByVal lpszSoundName为String,ByVal uFlags为Long)声明为Long
在Workbook的BeforeSave事件中添加以下用VBA编写的宏代码(根据需要可以选择其他事件):
使用工作表1
如果。范围(“A2”)。值÷2或者。范围(“A2”)。值÷-2
确定A2单元格中的数据是大于2还是小于负2。
x % = sndPlaySound(" C:\ voice \ voice 01 . wav ",uFlags%)
播放语音文件“C:\ voice \ voice 01.wav”
如果…就会结束
如果。范围(“B2”)。值÷2或者。范围(“B2”)。值÷-2
确定B2单元格中的数据是大于2还是小于负2。
x % = sndPlaySound(" C:\ voice \ phone 02 . wav ",uflags%)
播放语音文件“C:\ Voice \ Voice 02.wav”
如果…就会结束
以…结尾
以此类推,这种方法可以用来监控Excel表格中某些单元格的重要数据,实现语音提示。
位律师回复
0条评论