荔园在线

荔园之美,在春之萌芽,在夏之绽放,在秋之收获,在冬之沉淀

[回到开始] [上一篇][下一篇]


发信人: wolfron (flyselina我爱你^O^), 信区: Microsoft
标  题: 让Excel说话!
发信站: 荔园晨风BBS站 (Mon Jan 13 17:40:47 2003), 站内信件

现在工资、财务管理,甚至工业控制中的很多数据报表都是利用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表格某些单元格中的重要数据进行监控
,且实现语音提示。


--
************************************
          ^O^菜鸟一个^O^
 CET ftp://210.39.3.102/常用软件/
************************************

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.44.32]


[回到开始] [上一篇][下一篇]

荔园在线首页 友情链接:深圳大学 深大招生 荔园晨风BBS S-Term软件 网络书店