在EXCEL中,我们可以通过VBA代码,控制声音文件或音乐文件的播放。
此方法的用途在于,当我们在EXCEL单元格输入数据或修改数据时,如果数据有错误,就播放声音文件,作为一种提示。
下面是两种实现的方法,希望对您有所帮助,本站已通过验证并去除所有容余代码。
一、让EXCEL播放声音的VBA代码
右键点击EXCEL的第一个工作表,选择快捷菜单中的“查看代码”。弹出VBA窗口。
在窗口中,右键点击“Sheet1”并选择“查看代码”,会弹出代码输入小窗口。
在小窗口中的通用代码那里,输入如下的代码。
Private Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
注意哦,如上代码,最好不要换行。
接着,就是调用上述代码的函数的写法了,比如:
Private Sub Worksheet_Activate()
Call sndPlaySound32(ThisWorkbook.Path & "\Windows.wav", 0&)
End Sub
上述的代码事件是,当工作表Sheet1被激活的时候就播放声音。
代码就是这样简单,注意,请将声音文件放在与工作薄相同的目录中,此外,Windows.wav是声音文件的名称,请注意加以修改。
二、让EXCEL念单词的VBA代码
除了让EXCEL播放声音用于提示之外,我们也可以让EXCEL读出文字来,而不是播放音乐。
代码非常简单,如下:
Application.Speech.Speak "Wrong"
上述的代码功能是,EXCEL念字母或单词的读音。这样也取到提示的作用。
以上两种方法各有所长,请加以选择并使用,当然,第二种方法较合适,因为它不需要声音文件。只不过,EXCEL只会念英文,不会念中文。