Excel中表格进行设计英语单词听写程序的操作方法

Excel中表格进行设计英语单词听写程序的操作方法

如何用Excel设计英语单词听写程序?具体该怎么去进行操作的呢?今天，小编就教大家在Excel中表格进行设计英语单词听写程序的操作方法。

Excel中表格进行设计英语单词听写程序的操作步骤：

1. “朗读单元格”按钮设计

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

2. VBA解决停顿间隔控制

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

在这个用户窗体上，分别添加两个“文字框”控件、两个“标签”控件、两个“命令按钮”控件，这些控件的“名称”都用系统默认的名称。两个“标签”的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)创建朗读控制过程

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

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)创建启动宏的过程

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

Sub 听写()

tingxie.Show '显示听写设置窗口

End Sub

小提示：

Excel中表格进行设计英语单词听写程序的操作

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们jiasou666@gmail.com 处理，核实后本网站将在24小时内删除侵权内容。