 |
 |
■ 加入收藏 ■ 加入收藏 ■ 联系我们 |
|
| 文字广告： ppp |
| 当前位置 > 软件教程 > 应用软件 > 办公软件 让Excel说话！
时间：2005-6-16 9:10:59 作者： 来源：中国电脑教育报点击数：
现在工资、财务管理，甚至工业控制中的很多数据报表都是利用Excel生成的。对于一个要反复利用的Excel表格，如果表格中的某些数据出现了异常，我们能够让Excel发出语音提示，岂不是更方便。尤其是在工业控制中，利用这种方法便可以做成语音报警。下面就以我在工业控制中做的语音报警程序为例，介绍一下如何在Excel报表中使用语音提示。 首先录制编辑好各种情况下的语音报警文件，保存到硬盘中。其次是打开所要使用的Excel报表，在Excel菜单中打开［工具］→［宏］、［Visual Basic编辑器］，再在Visual Basic编辑器中插入“模块”，并在该模块中插入下列代码： Option Explicit Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long 再在Workbook的BeforeSave事件中（根据需要也可以选 用其他事件）加入下列用VBA编写的宏代码： With Sheet1 If .Range("A2").Value 〉 2 Or .Range("A2").Value 〈 -2 Then '判断A2单元格内的数据是否大于2或小于负2 x% = sndPlaySound("C:\语音\语音01.wav", uFlags%) '播放语音文件“C:\语音\语音01.wav” End If If .Range("B2").Value 〉 2 Or .Range("B2").Value 〈 -2 Then '判断B2单元格内的数据是否大于2或小于负2 x% = sndPlaySound("C:\语音\语音02.wav", uFlags%) '播放语音文件“C:\语音\语音02.wav” End If End With 依此类推，利用这种方法可以对Excel表格某些单元格中的重要数据进行监控，且实现语音提示。 |
|
|
|
|
|||||||||
