泰剧奇幻电视剧大全:活泼兔外贸帽 转载(让Excel说话)
来源:百度文库 编辑:偶看新闻 时间:2024/05/11 17:40:08
现在工资、财务管理,甚至工业控制中的很多数据报表都是利用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表格某些单元格中的重要数据进行监控,且实现语音提示。
现在工资、财务管理,甚至工业控制中的很多数据报表都是利用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表格某些单元格中的重要数据进行监控,且实现语音提示。
首先录制编辑好各种情况下的语音报警文件,保存到硬盘中。其次是打开所要使用的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表格某些单元格中的重要数据进行监控,且实现语音提示。
现在工资、财务管理,甚至工业控制中的很多数据报表都是利用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表格某些单元格中的重要数据进行监控,且实现语音提示。
雌兔活泼还是雄兔活泼
历史问题(转载)
开朗活泼和沉没不爱说话哪个好呢?
怎样才能变的开朗活泼爱说话呢?
怎样让内向的小孩变得活泼
怎么让自己变的活泼呢?
怎样才能让自己变得自信开心活泼?
如何让活泼的小孩提高注意力?
怎样让自己开朗活泼,保持快乐?
怎样让自己变得活泼点
如何让自己更活泼更开朗?
让文档说话
如何让八哥说话
活泼活泼~~~~~~
如何让别人无法转载空间上的东西
请问女性假性湿疣这样才能让症状消失(谢绝转载)
如何让一个幽默的女孩,变得开朗,变得活泼
怎样让自己给别人的印象活泼一点呢?
男人怎么做才能让活泼的女人开心
这样的学生该怎么让他们活泼起来啊?
活泼的女孩喜欢让她男朋友吻她吗?
如何让一个伤感的人变的可爱活泼.
我女友活泼我不爱说话,和她一起有时显得话不投机
为什么有的人在网上看似很活泼开朗,很爱说话