现在工资、财务管理,甚至工业控制中的很多数据报表都是利用Excel生成的。对于一个要反复利用的Excel表格,如果表格中的某些数据出现了异常,我们能够让Excel发出语音提示,岂不是更方便。尤其是在工业控制中,利用这种方法便可以做成语音报警。下面就以我在工业控制中做的语音报警程序为例,介绍一下如何在Excel报表中使用语音提示。
首先录制编辑好各种情况下的语音报警文件,保存到硬盘中。其次是打开所要使用的Excel报表,在Excel菜单中打开[工具]→[宏]、[VisualBasic编辑器],再在VisualBasic编辑器中插入“模块”,并在该模块中插入下列代码:
OptionExplicit
DeclareFunctionsndPlaySoundLib"winmm.dll"Alias"sndPlaySoundA"(ByVallpszSoundNameAsString,ByValuFlagsAsLong)AsLong
再在Workbook的BeforeSave事件中(根据需要也可以选用其他事件)加入下列用VBA编写的宏代码:
WithSheet1
If.Range("A2").Value〉2Or.Range("A2").Value〈-2Then
'判断A2单元格内的数据是否大于2或小于负2
x%=sndPlaySound("C:\语音\语音01.wav",uFlags%)
'播放语音文件“C:\语音\语音01.wav”
EndIf
If.Range("B2").Value〉2Or.Range("B2").Value〈-2Then
'判断B2单元格内的数据是否大于2或小于负2
x%=sndPlaySound("C:\语音\语音02.wav",uFlags%)
'播放语音文件“C:\语音\语音02.wav”
EndIf
EndWith
依此类推,利用这种方法可以对Excel表格某些单元格中的重要数据进行监控,且实现语音提示。
