excel中使用vba让程序说话的代码，如何在操作进行的呢?今天，小编就教大家在Excel中使用vba让程序说话的制作方法。
Excel中使用vba让程序说话的制作步骤如下：
首先我们打开一个工作样表作为例子。
使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：
Sub myProcedure()
Application.Speech.Speak ("Hello" & Application.UserName)
该篇文章内容来源于网络，由强国说-WPS之家(wps.qiangguoshuo.com)收集，希望能为您提供帮助。
End Sub
speech.speak命令需要安装texttospeech组件，如果没有安装过，excel会提示安装，现在系统中一般都会有安装，这里只是提一下，记住texttospeech组件可以直接在微软官方网站进行下载。
在这个代码里，tts语音组件只能朗读文本字符串，或者是值是文本字符串的变量。如括号内的字符串“hello”和username这个值为字符串的变量。
实际运行中，我们可以将该代码设为开启工作薄时自动播放，配合上定时功能，更能添加更多有趣的设置。比如将代码修改如下：
Private Sub Workbook_Open()
Application.OnTime Now + TimeValue("00:00:10"), "myprocedure"
End Sub
Sub myprocedure()
Application.Speech.Speak ("Hello" & Application.UserName)
End Sub
上面的代码是在打开工作薄后以当前时间十秒后运行播报程序，我们甚至可以在定时中进行循环，比如定时半个小时提醒一次工作时间，我们可以修改代码如下：
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中使用vba让程序说话的制作
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
