現(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)槔?，介紹一下如何在Excel報(bào)表中使用語(yǔ)音提示。

　　首先錄制編輯好各種情況下的語(yǔ)音報(bào)警文件，保存到硬盤(pán)中。其次是打開(kāi)所要使用的Excel報(bào)表，在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事件中（根據(jù)需要也可以選用其他事件）加入下列用VBA編寫(xiě)的宏代碼：

　　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ǔ)音提示。