VBA 朗读excel随机选择的单元格（语音库人声可选）

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim obj As Object, soundnu As Integer
Set obj = CreateObject("SAPI.spVoice") '创建语音对象
Set sysVoice = obj.GetVoices()
Sheet1.Range("H1").Value = "选择语音（0~" & obj.GetVoices().Count - 1 & "）" '可供选择的语音
soundnu = Sheet1.Range("H2").Value '选择的语音

'检测选择的语音是否存在，不存在就设置默认的
If soundnu < obj.GetVoices().Count And soundnu >= 0 Then
Set obj.Voice = sysVoice(soundnu) '设置选择的语音
Else
Set obj.Voice = sysVoice(0)
End If

For i = 1 To Target.Rows.Count
For j = 1 To Target.Columns.Count
obj.Speak Sheet1.Cells(Target.Row + i - 1, Target.Column + j - 1).Value
Next j
Next i
End Sub

VBA 朗读excel随机选择的单元格（语音库人声可选）相关推荐

VBA之EXCEL删除和设置单元格行高等
'删除Sheet1上的单元格区域A1:D10,并将其余单元格左移以填补被删除单元格的位置 Sheet1.Range("A1:D10").Delete Shift:=xlShiftT ...
Excel使用VBA合并单列、多列单元格
Excel使用VBA合并单列.多列单元格多列合并相同内容单元格合并相同单元格的功能如下同,让相同内容的单元格合并为一个. 具体代码如下: Sub 相同内容合并单元格() ' ' '' Dim i, ...
Excel 2010 VBA 入门 038 按颜色查找单元格
目录示例: 实现代码: 单元格对象的Clear方法动态表示数据区域单元格对象的Copy方法示例代码2.0 单元格对象的选择性粘贴(PasteSpecial)方法参数Paste表示选择性粘贴的 ...
计算机基础知识教程excel单元格拆分,电脑内怎么将excel表格中某个单元格的内容拆分至不同单元格里...
电脑内怎么将excel表格中某个单元格的内容拆分至不同单元格里当我们在使用电脑的时候,可以下载excel软件来处理数据文件,那么如果想要将一个单元格中的内容拆分到不同的单元格中的话,应如何操作呢?接 ...
Excel 中如何根据单元格内容删除行
根据单元格内容快速删除行,首先需要选中含有该单元格内容的所有行,然后删除.似乎在 Excel 当中除了 VBA 以外没有其他更快捷的方法能解决这个问题了.这里将推荐几个快速根据单元格内容删除行的方法给 ...
Excel中如何按单元格颜色求和，这五种牛批的方法，值得学习
点赞再看,养成习惯:文武之道,一张一弛. 微信搜索[亦心Excel]关注这个不一样的自媒体人. 本文 GitHub https://github.com/hugogoos/Excel 已收录,包含Ex ...
java 单元格内容加粗,excle单元格如何加粗《EXCEL中怎么对单元格中，公式的部分字段加粗？》...
问下EXCEL表格分割线怎么加粗单元格样式设置包含分割线加粗. Excel表格单元格线样式操作如下: ①框选单元格--右击--设置单元格 ②弹出"设置单元格式"--边框--根据实 ...
Excel如何快速清除单元格所有内容
打开Excel,我们选择一个单元格作为例子. 这个单元格有内容,有批注,是文本格式. 选中单元格内容,直接Delete,只能删除单元格内容: 右键删除批注,也只能删除批注: 删除单元格内容后,如果不修 ...
excel公式某一个单元格等于另一个单元格的值_15个excel小技巧，简单易学，一看就会，收藏备用吧...
hello,大家好,今天跟大家分享15个excel小动画,如果工作中遇到类似的问题即可快速搞定,话不多说,让我们直接开始吧 1.利用查找统计单元格颜色首先我们按ctrl+f查找窗口,然后点击旁边的格 ...

VBA 朗读excel随机选择的单元格（语音库人声可选）