“朗读单元格”不是“常用命令”,默认情况下在功能区中找不到这个命令。但可以通过“自定义功能区”设置,让这个命令显示在功能区工具栏上。
选择“文件→选项”菜单,进入“选项”设置对话框,点击“自定义功能区”,在右边的“主选项卡”中单击选择“开始”选项卡,再点击下面的“新建组(N)”按钮新建一个自定义组。具体方法如下。
在“从下列位置选择命令(C)”中选择“不在功能区中的命令”,找到“朗读单元格”命令,用鼠标单击选择这个命令,确认上一个步骤在“开始”选项卡新建的“新建组(自定义)”处于选择状态,点击“添加”按钮。这样,“朗读单元格”命令便在“开始”选项卡显示出来。同样的道理,将“朗读单元格-停止朗读单元格”按钮也显示在这个工具栏上。
2.VBA解决停顿间隔控制
要利用ExcelVBA进行程序设计,先必须在工具栏中显示“开发工具”。进入“选项”设置对话框,单击左边的“自定义功能区”,在右边窗口中选择“开发工具”前面的复选框,“开发工具”便显示在界面上。
点击“开发工具”选项卡,再点击“VisualBasic”按钮(或按Alt+F11),进入VBA编辑环境,单击“VBAProject(PERSONL.XLSB)”,再选择菜单“插入→用户窗体”,插入一个用户窗体后,修改其名称为tingxie,Caption(即窗体的标题)属性为“听写程序设置”。
在这个用户窗体上,分别添加两个“文字框”控件、两个“标签”控件、两个“命令按钮”控件,这些控件的“名称”都用系统默认的名称。两个“标签”的Caption属性分别是:“单词数量设置”和“听写词间间隔”,这两个标签控件放在两个“文字框”控件的前面,它的作用是为后面两个“文字框”的用途作说明;两个“文字框”的Text属性分别是:20、2,这是这两个“文字框”控件的初始值,程序利用这两个控件让用户输入“单词数量设置”和“听写词间间隔”数值;两个命令控钮的Caption属性分别是:确定、取消。拖动调整好窗体各控件的大小与相对位置至自己感觉合适时为止。
3.听写程序核心技术实现
听写程序核心技术实现分为三部分进行,具体如下。
(1)赋予命令按钮以灵魂
命令按钮要赋予其可执行代码,才能变成一个“活”的按钮。
双击“确定”按钮,在其中输入如下内容:
PrivateSubCommandButton1_Click()
OnErrorResumeNext
tingxie.Hide
EndSub
双击“取消”按钮,在其中输入如下内容:
PrivateSubCommandButton2_Click()
(2)创建朗读控制过程
这个朗读控制过程的作用是确定朗读的单元格,控制朗读过程中词间间隔,如果完成了所设置的朗读任务,则退出程序。
Subspeakcontrol()
Dimp,q
Ift<10Then
Else
EndIf
ExitSub
小提示:
(3)实施具体朗读任务
以上的朗读的控制过程并没有具体实施朗读的工作,朗读的工作由朗读过程完成任务。在以上朗读控制过程的下方,创建一个为wordspeak的朗读过程,内容如下:
Subwordspeak()
这个过程具有朗读的功能,并将朗读单元格的行数加1,下移到下一行单元格中,最后返回朗读控制过程,由控制过程确定是否再往下继续朗读单词。
(4)创建启动宏的过程
Sub听写()
要运行宏,必须先通过“开发工具”选项卡,点击“宏安全性”按钮,进入到“宏设置”中选择“启用所有宏”(最下面的选项)。
在Excel2016中调试无误后,即可运行程序。先在要朗读的单词列的最上方单元格单击,点击“开发工具”选项卡中的“宏”按钮,在弹出的“宏”选择对话框中,选择“听写”宏,再点击“运行”按钮,在弹出“听写程序设置”对话框中输入“单词数量设置”、“听写词间间隔”,确定后便可进行英语听写训练了。