讓Excel說話

　　現(xiàn)在工資、財務(wù)管理，甚至工業(yè)控制中的很多數(shù)據(jù)報表都是利用Excel生成的。對于一個要反復(fù)利用的Excel表格，如果表格中的某些數(shù)據(jù)出現(xiàn)了異常，我們能夠讓Excel發(fā)出語音提示，豈不是更方便。尤其是在工業(yè)控制中，利用這種方法便可以做成語音報警。下面就以我在工業(yè)控制中做的語音報警程序?yàn)槔�，介紹一下如何在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單元格內(nèi)的數(shù)據(jù)是否大于2或小于負(fù)2

　　x% = sndPlaySound("C:\語音\語音01.wav", uFlags%)

　　'播放語音文件“C:\語音\語音01.wav”

　　End If

　　If .Range("B2").Value 〉 2 Or .Range("B2").Value 〈 -2 Then

　　'判斷B2單元格內(nèi)的數(shù)據(jù)是否大于2或小于負(fù)2

　　x% = sndPlaySound("C:\語音\語音02.wav", uFlags%)

　　'播放語音文件“C:\語音\語音02.wav”

　　End If

　　End With

　　依此類推，利用這種方法可以對Excel表格某些單元格中的重要數(shù)據(jù)進(jìn)行監(jiān)控，且實(shí)現(xiàn)語音提示。

【讓Excel說話】相關(guān)文章：

EXCEL兩則技巧11-11

“蓋章”—我選用Excel11-11

Excel：工作表錦上添花11-11

“蓋章”——我選用Excel11-11

聽著就行 讓Excel報賬11-11

雙擊在Excel中的妙用11-11

Excel顯示值計算11-11

單獨(dú)打印Excel圖表11-11

Excel：讓你的圖表更具魅力11-11