- 相關推薦
讓Excel說話
現(xiàn)在工資、財務管理,甚至工業(yè)控制中的很多數(shù)據(jù)報表都是利用Excel生成的。對于一個要反復利用的Excel表格,如果表格中的某些數(shù)據(jù)出現(xiàn)了異常,我們能夠讓Excel發(fā)出語音提示,豈不是更方便。尤其是在工業(yè)控制中,利用這種方法便可以做成語音報警。下面就以我在工業(yè)控制中做的語音報警程序為例,介紹一下如何在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事件中(根據(jù)需要也可以選用其他事件)加入下列用VBA編寫的宏代碼:
With Sheet1
If .Range("A2").Value 〉 2 Or .Range("A2").Value 〈 -2 Then
'判斷A2單元格內的數(shù)據(jù)是否大于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單元格內的數(shù)據(jù)是否大于2或小于負2
x% = sndPlaySound("C:\語音\語音02.wav", uFlags%)
'播放語音文件“C:\語音\語音02.wav”
End If
End With
依此類推,利用這種方法可以對Excel表格某些單元格中的重要數(shù)據(jù)進行監(jiān)控,且實現(xiàn)語音提示。
【讓Excel說話】相關文章:
解決Excel數(shù)值進位問題07-31
解決Excel求和產生的誤差07-31
Excel打印故障問答錦囊07-31
構造Excel動態(tài)圖表07-31
四招打造Excel函數(shù)高手07-31
巧用Excel幫助你查郵編07-31
Excel快速錄入小數(shù)技巧07-31
向Excel中快速輸入相同文本07-31
Excel中快速輸入有相同特征的數(shù)據(jù)07-31
Excel中一些常見公式的錯誤提示07-31