Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3693|回复: 6

制作了一个背单词的表格,想通过按钮开启和关闭朗读功能

[复制链接]
发表于 2020-7-29 15:00 | 显示全部楼层 |阅读模式
3学分
本帖最后由 爱疯 于 2020-7-30 16:47 编辑

背英语单词的表格,有语音功能想在编辑表格时候或者测试单词时候关闭朗读功能,在背单词时候再开启语音功能
但每次必须在VB页面暂停才可以将朗读功能暂停,这样太繁琐了

想通过按钮来暂停和开启朗读功能,但不知道如何实现点击开启朗读和点击关闭朗读的功能
已经添加了暂停和开启的按钮控件,求大佬指导!!
QQ截图20200729145108.png
背单词1.rar (124.22 KB, 下载次数: 11)

最佳答案

查看完整内容

内容打不出 , 按钮对象可能 要 加上窗口名
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2020-7-29 15:00 | 显示全部楼层
本帖最后由 砂海 于 2020-8-13 15:48 编辑
Profili 发表于 2020-7-31 14:48
谢谢您!我在更改过程中出现了一些问题
我的语音朗读代码是这样的,放在了类模块中在工作表页面制作了一 ...

内容打不出 , 按钮对象可能 要 加上窗口名 bc.jpg
回复

使用道具 举报

发表于 2020-7-30 20:04 | 显示全部楼层
Public 启动朗读开关 As Boolean
=============================
按钮控制 变量:启动朗读开关
=============================
if 启动朗读开关 then
    对应功能
end if
回复

使用道具 举报

 楼主| 发表于 2020-7-31 14:48 | 显示全部楼层
砂海 发表于 2020-7-30 20:04
Public 启动朗读开关 As Boolean
=============================
按钮控制 变量:启动朗读开关

谢谢您!我在更改过程中出现了一些问题
我的语音朗读代码是这样的,放在了类模块中
  1. <div>---------------------------------------------------------------------------------------------------------------------</div><div>Public WithEvents app As Application</div><div>Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)</div><div>        Application.Speech.Speak ActiveCell, True, , True</div><div>        </div><div>End Sub</div><div>----------------------------------------------------------------------------------------------------------------------</div><p></p><div></div>
复制代码
在工作表页面制作了一个按钮,可以在按下后切换显示:暂停朗读和启动朗读。

代码是这样的,放在了工作表的代码页面,仅仅实现了切换外面的显示的字的功能
  1. <div>Private Sub CommandButton1_Click()</div><div>  If CommandButton1.Caption = "暂停朗读" Then</div><div>     CommandButton1.Caption = "启动朗读"</div><div>  Else</div><div>     CommandButton1.Caption = "暂停朗读"</div><div>  End If</div><div>End Sub</div>
复制代码
我该怎么将您说的那段代码加入进去呢?
回复

使用道具 举报

 楼主| 发表于 2020-8-16 21:46 | 显示全部楼层
砂海 发表于 2020-8-13 15:46
内容打不出 , 按钮对象可能 要 加上窗口名

好的,谢谢
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 23:31 , Processed in 0.939232 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表