excel中使用vba让程序说话的代码工具/原料moreexcel2013更多经验请关注，如果帮到了你，请在上方给个投票谢谢支持。 好人一生平安。 先顶后看年薪百万，如果帮到了你，帮忙给个好评，这对小编很重要，万分感谢。方法/步骤1/6分步阅读

首先我们打开一个工作样表作为例子。

2/6

使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub myProcedure()

Application.Speech.Speak (Hello Application.UserName)

End Sub

3/6

speech.speak命令需要安装texttospeech组件，如果没有安装过，excel会提示安装，现在系统中一般都会有安装，这趴科里只是提一下，记住texttospeech组件可以直接在微软官方网站进行下载。

4/6

在这个代码里，tts语音组件只能朗读文本字符串，或者是值是文本字符政总串的变量。如括号内的字符串“hello”和username这个值为字符串的变量。

5/6

实际运行中，我们可以将该代码设为开启工作薄时自动播放，配合上定时功能，更能添加更多有趣的设置。比如将代码修改如下：

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue(00:00:10), myprocedure

End Sub

Sub myprocedure()

Application.Speech.Speak (Hello Application.UserName)

End Sub

6/6

上面的代码是在打开工作薄后以当前时间十秒矿沃脂后运行播报程序，我们甚至可以在定时中进行循环，比如定时半个小时提醒一次工作时间，我们可以修改代码如下：

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue(00:00:10), myprocedure

End Sub

Sub myprocedure()

Application.Speech.Speak (Hello Application.UserName)

Application.OnTime Now + TimeValue(00:30:00), myprocedure

End Sub

注意事项

谢谢你的投票。

你的投票是我编辑经验的动力。谢谢你。

EXCEL表格