讓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