问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何用Excel设计英语单词听写程序

发布网友 发布时间:2022-04-23 01:49

我来回答

1个回答

热心网友 时间:2023-07-20 15:27

  1.

“朗读单元格”按钮设计

  “朗读单元格”不是“常用命令”,默认情况下在功能区中找不到这个命令。但可以通过“自定义功能区”设置,让这个命令显示在功能区工具栏上。

  选择“文件→选项”菜单,进入“选项”设置对话框,点击“自定义功能区”,在右边的“主选项卡”中单击选择“开始”选项卡,再点击下面的“新建组(N)”按钮新建一个自定义组。具体方法如下。

  在“从下列位置选择命令(C)”中选择“不在功能区中的命令”,找到“朗读单元格”命令,用鼠标单击选择这个命令,确认上一个步骤在“开始”选项卡新建的“新建组(自定义)”处于选择状态,点击“添加”按钮。这样,“朗读单元格”命令便在“开始”选项卡显示出来。同样的道理,将“朗读单元格-停止朗读单元格”按钮也显示在这个工具栏上。结果如图1所示(图1)。

  完成以上两步后,用鼠标选择要朗读的单元格,再点击“朗读单元格”按钮,系统便从上到下按顺序朗读单元格,无论是中文还是英文,都能进行朗读,朗读效果良好;点击“朗读单元格-停止朗读单元格”按钮,系统停止朗读。然而,这一功能缺乏对单元格之间间隔进行设置的选项,只能按要求不停地读完所有的单元格。但听写需要时间停顿去写,因此,我们必须通过VBA来解决词与词之间的停顿间隔时间的控制问题。

  2.

VBA解决停顿间隔控制

  要利用Excel

VBA进行程序设计,先必须在工具栏中显示“开发工具”。进入“选项”设置对话框,单击左边的“自定义功能区”,在右边窗口中选择“开发工具”前面的复选框,“开发工具”便显示在界面上。

  点击“开发工具”选项卡,再点击“Visual

Basic”按钮(或按Alt+F11),进入VBA编辑环境,单击“VBAProject

(PERSONL.XLSB)”,再选择菜单“插入→用户窗体”,插入一个用户窗体后,修改其名称为tingxie,Caption(即窗体的标题)属性为“听写程序设置”。

  在这个用户窗体上,分别添加两个“文字框”控件、两个“标签”控件、两个“命令按钮”控件,这些控件的“名称”都用系统默认的名称。两个“标签”的Caption属性分别是:“单词数量设置”和“听写词间间隔”,这两个标签控件放在两个“文字框”控件的前面,它的作用是为后面两个“文字框”的用途作说明;两个“文字框”的Text属性分别是:20、2,这是这两个“文字框”控件的初始值,程序利用这两个控件让用户输入“单词数量设置”和“听写词间间隔”数值;两个命令控钮的Caption属性分别是:确定、取消。拖动调整好窗体各控件的大小与相对位置至自己感觉合适时为止。结果如图2所示(图2)。

  3.

听写程序核心技术实现

  听写程序核心技术实现分为三部分进行,具体如下。

  (1)赋予命令按钮以灵魂

  命令按钮要赋予其可执行代码,才能变成一个“活”的按钮。

  双击“确定”按钮,在其中输入如下内容:

  Private

Sub

CommandButton1_Click()

  n

=

Val(TextBox1)

'获取朗读单词数量

  t

=

Val(TextBox2)

'获取朗读词间间隔数量,单位是秒

  m

=

ActiveCell.Row

'获取当前活动单元格的行数

  c

=

ActiveCell.Column

'获取当前活动单元格的列数

  b

=

m

+

n

-

1

'计算从m开始朗读,共n个单词,达到要求时的最后一行的行数

  On

Error

Resume

Next

  Call

speakcontrol

'调用朗读控制过程

  tingxie.Hide

  End

Sub

  双击“取消”按钮,在其中输入如下内容:

  Private

Sub

CommandButton2_Click()

  tingxie.Hide

  End

Sub

  (2)创建朗读控制过程

  这个朗读控制过程的作用是确定朗读的单元格,控制朗读过程中词间间隔,如果完成了所设置的朗读任务,则退出程序。

  用鼠标单击“VBAProject

(PERSONL.XLSB),再选择菜单“插入→模块”,在这里要完成声明公共变量、创建朗读控制过程以及朗读过程的工作。在其中输入如下内容:

  Public

a,

b,

c,

m,

n,

t

As

Integer

'定义公用变量

  Sub

speakcontrol()

  Dim

p,

q

  q

=

ActiveSheet.Cells(1,

1).SpecialCells(xlLastCell).Row

'获取工作表的最后一行

  On

Error

Resume

Next

  If

t

<

10

Then

  p

=

"00:00:0"

&

t

'时间在10秒以内时,计算p的方法

  Else

  p

=

"00:00:"

&

t

'时间在10秒或以上时,计算p的方法

  End

If

  If

m

>

b

Or

m

>

q

Then

'如果朗读单词达到设置数量的要求或到了最后一行,则退出程序

  Exit

Sub

  Else

  a

=

Cells(m,

c)

'获取要朗读的单元格的文字

  Application.OnTime

Now

+

TimeValue(p),

"wordspeak"

'按照设定的时间间隔调用朗读过程

  End

If

  End

Sub

  小提示:

  这里还补充说明时间间隔p的计算问题。由于时间间隔t在60秒以内的这个范围内可能是1位数,也可能是2位数,这时p计算方法不一样,因此,我们要对t的位数作判断后再选择计算p合适的方法。

  (3)实施具体朗读任务

  以上的朗读的控制过程并没有具体实施朗读的工作,朗读的工作由朗读过程完成任务。在以上朗读控制过程的下方,创建一个为wordspeak的朗读过程,内容如下:

  Sub

wordspeak()

  On

Error

Resume

Next

  Application.Speech.Speak

a

'朗读设定单元格中的文字

  m

=

m

+

1

'计算朗读的单元格的行数

  Call

speakcontrol

'调用朗读控制过程

  End

Sub

  这个过程具有朗读的功能,并将朗读单元格的行数加1,下移到下一行单元格中,最后返回朗读控制过程,由控制过程确定是否再往下继续朗读单词。

  (4)创建启动宏的过程

  虽然以上已经有窗体以及相关的控制与朗读的过程,但还缺少一个启动宏的过程。在以上过程的下方创建一个新的过程,命名为&ldquo;听写&rdquo;,内容如下:

  Sub

听写()

  tingxie.Show

'显示听写设置窗口

  End

Sub

  以上各个模块内容如图3所示(图3)。为方便使用,可直接通过云盘下载后复制粘贴(

密码8r2m)。

  小提示:

  要运行宏,必须先通过&ldquo;开发工具&rdquo;选项卡,点击&ldquo;宏安全性&rdquo;按钮,进入到&ldquo;宏设置&rdquo;中选择&ldquo;启用所有宏&rdquo;(最下面的选项)。

  在Excel

2016中调试无误后,即可运行程序。先在要朗读的单词列的最上方单元格单击,点击&ldquo;开发工具&rdquo;选项卡中的&ldquo;宏&rdquo;按钮,在弹出的&ldquo;宏&rdquo;选择对话框中,选择&ldquo;听写&rdquo;宏,再点击&ldquo;运行&rdquo;按钮,在弹出&ldquo;听写程序设置&rdquo;对话框中输入&ldquo;单词数量设置&rdquo;、&ldquo;听写词间间隔&rdquo;,确定后便可进行英语听写训练了。

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
css布局绝对定位和相对定位疑惑? 湖北对口单招有哪些大学 湖北单招最好考的学校有哪些 玻璃隔断吗 《八佰》中的南岸刀子,《药神》中的沉默黄毛 有哪些适合新手养的蛇品种推荐? 新手喂养什么宠物蛇比较好? 色叔叔茜色是什么色 仓鼠上窜下跳一直不停,是什么原因? 禽医静心谈鸭黄病毒的主要症状有哪些?鸭子得了黄病毒怎么治疗? 英语听写比赛宣传稿,600字以上 2000-2008江苏高考英语听力word文档 关于英语四级和听写 求助高手:请问在做电影听写翻译时,怎样快速制作中英对照文档?如何将听写文档和翻译文档合并实现逐句对照 关于托福听力怎么练 冲击波系列英语专四听写50篇文档 怎样练习英语专业四级的DICTATION 近三年英语六级听力MP3及Word文本 听写单词用英语怎么说的翻译是:什么意思 请问听写时是打字好还是在纸上写然后打到word好 &#39; 我在新东方上英语课的时候老师说听写很有用,就是照着电脑里发出的声音在WORD里打字,再对照不知道哪有 word自带的语音听写功能哪几个版本才有? 牧马人鼠标上盖扣子断了怎么办 牧马人鼠标怎么拆解 为什么我的达优尔牧马人鼠标win7旗舰版不能移动 为什么我电脑一插上牧马人电脑就卡住 鼠标灯就灭了 牧马人竞技鼠标怎么拆 达尔优牧马人鼠标左右键都失灵 换了一个新鼠标,牧马人的,可是回家自己插到电脑上打CF时一动画面就卡顿! 牧马人鼠标4个螺丝拆了怎么还打不开 想提高英语听力,请教各位达人 哪里有最完整最准确的历年四六级英语听力mp3+听力原文word 2010年六级英语听力文本在哪下载?最好是word格式 白酒如何酿造? 如何训练英语听力与语感 我把在英语听写中错误的单词,短语和句子写在别的本子 请帮忙翻译一下 怎样喝白酒? 英语四级听力做题顺序有什么窍门吗? 白酒怎么存放? 白酒是用什么做出来的?怎么做的? 普通的白酒怎么调好喝? 普通白酒怎样调,味道才好? 喝白酒怎样喝才能喝出味道? 怎样查找丢失的手木儿号和? 我家海尔电视检测到网线网络 但是一直连接失败。这是怎么回事/ 大一新生见面ppt背景音乐 海尔电视机无信号是什么原因? 学生会新生见面会流程 电视机怎样连接有线网络的,我输入的时候经常出现子网掩码输入非法,导致不能连接有线网络,求解呀 大学生新生见面会流程