让Excel说话！
|
| 论文作者：佚名 论文来源：不详 论文发布时间：2006-6-21 2:44:15 论文发布人：chjchjchj |
 减小字体
 增大字体
现在工资、财务管理，甚至工业控制中的很多数据报表都是利用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表格某些单元格中的重要数据进行监控，且实现语音提示。
|
|
|
|
|
|
|
| ∷相关技术评论 |
（评论内容只代表网友观点，与本站立场无关！） [查看发表评论...] | |
|
|
| |
 站内广告 |
 | |
|
| 站内搜索 |
| |
| 栏目导航 |
| |
|
|
| 本月热门 |
| |
|
|
| 本日热门 |
| |
|
|
|
设为首页
加入收藏
联系我们
相关技术