全国计算机等级一级考试辅导：让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表格中某些单元格的重要数据，实现语音提示。