- 相關(guān)推薦
讓Excel說話
現(xiàn)在工資、財(cái)務(wù)管理，甚至工業(yè)控制中的很多數(shù)據(jù)報(bào)表都是利用Excel生成的。對(duì)于一個(gè)要反復(fù)利用的Excel表格，如果表格中的某些數(shù)據(jù)出現(xiàn)了異常，我們能夠讓Excel發(fā)出語(yǔ)音提示，豈不是更方便。尤其是在工業(yè)控制中，利用這種方法便可以做成語(yǔ)音報(bào)警。下面就以我在工業(yè)控制中做的語(yǔ)音報(bào)警程序?yàn)槔榻B一下如何在Excel報(bào)表中使用語(yǔ)音提示。
首先錄制編輯好各種情況下的語(yǔ)音報(bào)警文件，保存到硬盤中。其次是打開所要使用的Excel報(bào)表，在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:\語(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單元格內(nèi)的數(shù)據(jù)是否大于2或小于負(fù)2
x% = sndPlaySound("C:\語(yǔ)音\語(yǔ)音02.wav", uFlags%)
'播放語(yǔ)音文件“C:\語(yǔ)音\語(yǔ)音02.wav”
End If
End With
依此類推，利用這種方法可以對(duì)Excel表格某些單元格中的重要數(shù)據(jù)進(jìn)行監(jiān)控，且實(shí)現(xiàn)語(yǔ)音提示。
【讓Excel說話】相關(guān)文章：
EXCEL兩則技巧11-11
“蓋章”—我選用Excel11-11
Excel：工作表錦上添花11-11
“蓋章”——我選用Excel11-11
聽著就行 讓Excel報(bào)賬11-11
雙擊在Excel中的妙用11-11
Excel顯示值計(jì)算11-11
單獨(dú)打印Excel圖表11-11
Excel：讓你的圖表更具魅力11-11