Dzwebs.Net

撰写电脑技术杂文十余年

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

Admin | 2011-2-22 7:41:05 | 被阅次数 | 22557

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  在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杂文

上一篇:Excel按年份或月份做数据统计的方法

下一篇:设置Excel中的图片的透明色的方法

网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231 访问统计