Excel中使用vba让程序说话的制作方法
时间:2022-06-14 23:00:33
excel中使用vba让程序说话的代码,如何在操作进行的呢?今天,小编就教大家在Excel中使用vba让程序说话的制作方法。
Excel中使用vba让程序说话的制作步骤如下:
首先我们打开一个工作样表作为例子。
使用alt+f11组合快捷键进入vbe编辑器,插入一个新的模块,并在模块中输入以下代码:
Sub myProcedure()
Application.Speech.Speak ("Hello" & Application.UserName)
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让程序说话的制作
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
iOS14新福利:可一键禁止所有App追踪用户信息
![](https://img.aspxhome.com/file/2023/3/a194903_0s.jpg)
如何用金山wps制作九九乘法表
![](https://img.aspxhome.com/file/2023/9/a163929_0s.png)
Excel快速输入内容的两种方法
Word如何使用鼠标右键菜单复制文本
![](https://img.aspxhome.com/file/2023/4/33554_0s.jpg)
在excel符号里就有
Word通过rand函数随机输入指定段落.句数文字
![](https://img.aspxhome.com/file/2023/9/19329_0s.jpg)
Excel插入日历的方法图解步骤图
Excel 2019 行操作 技巧及实例教程
![](https://img.aspxhome.com/file/2023/5/a141325_0s.jpg)
win10系统的sgtool.exe文件的图像损坏怎么办?
![](https://img.aspxhome.com/file/2023/0/46760_0s.png)
在word文档中怎么插入批注?
![](https://img.aspxhome.com/file/2023/0/28990_0s.jpg)
excel表格按照日期进行排序的方法
在Excel表格中怎么使用求和函数
![](https://img.aspxhome.com/file/2023/7/40817_0s.jpg)
excel 如何制作实用的三级联动下拉菜单实例技巧
![](https://img.aspxhome.com/file/2023/1/a140801_0s.jpg)
excel2003表头内画斜线的教程
word编辑完公式后鼠标变成下标怎么处理?
![](https://img.aspxhome.com/file/2023/9/24639_0s.png)
Word中如何快速统一图片大小?Word中快速统一图片大小方法
![](https://img.aspxhome.com/file/2023/6/31406_0s.jpg)
excel打印不全怎么办
word表格中的数据怎么计算求和?
![](https://img.aspxhome.com/file/2023/8/22868_0s.jpg)
Excel表格之视面管理器的使用
![](https://img.aspxhome.com/file/2023/3/a143483_0s.jpg)
iOS版微信朋友圈再次编辑方法教程
![](https://img.aspxhome.com/file/2023/3/a194993_0s.png)