EXCEL VBA:让EXCEL播放声音文件或说话的VBA代码

2013-10-15 11:43 阅读 790 次 评论关闭

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只会念英文,不会念中文。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:让EXCEL播放声音文件或说话的VBA代码 | 猎微网

评论已关闭!