- 相關(guān)推薦
讓Excel說話
現(xiàn)在工資、財務(wù)管理，甚至工業(yè)控制中的很多數(shù)據(jù)報表都是利用Excel生成的。對于一個要反復(fù)利用的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單元格內(nèi)的數(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單元格內(nèi)的數(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說話】相關(guān)文章：
EXCEL兩則技巧11-11
“蓋章”—我選用Excel11-11
Excel：工作表錦上添花11-11
“蓋章”——我選用Excel11-11
聽著就行 讓Excel報賬11-11
雙擊在Excel中的妙用11-11
Excel顯示值計算11-11
單獨打印Excel圖表11-11
Excel：讓你的圖表更具魅力11-11