讓Excel說(shuō)話(huà)

　　現在工資、財務(wù)管理，甚至工業(yè)控制中的很多數據報表都是利用Excel生成的。對于一個(gè)要反復利用的Excel表格，如果表格中的某些數據出現了異常，我們能夠讓Excel發(fā)出語(yǔ)音提示，豈不是更方便。尤其是在工業(yè)控制中，利用這種方法便可以做成語(yǔ)音報警。下面就以我在工業(yè)控制中做的語(yǔ)音報警程序為例，介紹一下如何在Excel報表中使用語(yǔ)音提示。

　　首先錄制編輯好各種情況下的語(yǔ)音報警文件，保存到硬盤(pán)中。其次是打開(kāi)所要使用的Excel報表，在Excel菜單中打開(kāi)［工具］→［宏］、［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編寫(xiě)的宏代碼：

　　With Sheet1

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

　　'判斷A2單元格內的數據是否大于2或小于負2

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

　　'播放語(yǔ)音文件“C:\語(yǔ)音\語(yǔ)音01.wav”

　　End If

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

　　'判斷B2單元格內的數據是否大于2或小于負2

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

　　'播放語(yǔ)音文件“C:\語(yǔ)音\語(yǔ)音02.wav”

　　End If

　　End With

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

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

EXCEL兩則技巧11-11

“蓋章”—我選用Excel11-11

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

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

聽(tīng)著(zhù)就行 讓Excel報賬11-11

雙擊在Excel中的妙用11-11

Excel顯示值計算11-11

單獨打印Excel圖表11-11

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