首页 > Excel专区 > Excel函数 >

Excel中使用vba让程序说话的制作方法

Excel函数 2022-03-29 20:45:57

  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让程序说话的制作


标签: 代码字符串程序说话excel函数

office教程网 Copyright © 2016-2020 http://www.office9.cn. Some Rights Reserved. 苏ICP备20040415号-9