excel发音英语视听(用excel做单词表)

本文主要为大家介绍书名：Excel发音英语视听（用Excel做单词表），下面一起来看看具体内容吧。

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

“Speak Cells”不是“常用命令”，默认情况下在功能区中找不到。但是您可以通过“自定义功能区”设置使该命令出现在功能区工具栏上。

选择“文件选项”菜单，进入“选项”设置对话框，单击“自定义功能区”，单击右侧“主选项卡”中的“主页”选项卡，再单击“新建组（N )" 按钮创建一个新的自定义组。具体方法如下。

在“从以下位置选择命令（C）”中，选择“不在功能区的命令”，找到“朗读单元格”命令，使用鼠标点击选中该命令，并确认前面的步骤在“开始”选项卡中选中新建的“新建组（自定义）”，单击“添加”按钮。这将使“朗读单元格”命令出现在“主页”选项卡上。同样的原因，这个工具栏上也显示了“Read Cells - Stop Reading Cells”按钮。

完成以上两步后，使用鼠标选择需要朗读的单元格，然后点击“朗读单元格”按钮，系统会按照从上到下的顺序朗读单元格，是否朗读是中文还是英文，可以朗读，阅读效果好；点击“朗读单元格-停止朗读单元格”按钮，系统将停止朗读。但是该函数缺少设置单元格间隔的选项，只能按要求读取所有单元格。但是听写需要时间来停顿，因此，我们必须用VBA来解决控制单词间停顿间隔的问题。

2.VBA解决暂停间隔控制

要使用Excel VBA进行编程，首先要在工具栏中显示“开发工具”。进入“选项”设置对话框，点击左侧的“自定义功能区”，在右侧窗口中选中“开发者工具”前面的复选框，界面上就会显示“开发者工具”。

单击“开发工具”选项卡，然后单击“Visual Basic”按钮（或按Alt+F11），进入VBA编辑环境，单击“VBAProject(PERSONL.XLSB)”，然后选择菜单“插入用户窗体” , 插入一个用户表单后，将其名称修改为tingxie，将Caption（即表单的标题）属性修改为“听写程序设置”。

在这个用户窗体上，分别添加两个“文本框”控件、两个“标签”控件、两个“命令按钮”控件，这些控件的“名称”使用系统默认的名称。两个“标签”的Caption属性分别是：“字数设置”和“听写字间距”。这两个标签控件放在两个“文本框”控件的前面，它们的作用是提供“文本框”的用途说明；两个“文本框”的Text属性分别为：20、2，分别为两个“文本框”控件的初始值。程序使用这两个控件让用户输入“字数设置”和“Diction Inter-word Interval”值；两个命令按钮的Caption属性分别是：OK，Cancel。拖动调整大小和调整每个控件在窗体上的相对位置，直到您感到舒服为止。

三、听写程序核心技术的实现

听写程序核心技术的实现分为三个部分，具体如下。

(1) 给命令按钮一个灵魂

命令按钮必须具有可执行代码才能成为“活动”按钮。

双击“确定”按钮，输入以下内容：

私有子CommandButton1_Click()

n=Val(TextBox1) '获取朗读的字数

t=Val(TextBox2) '获取朗读单词之间的间隔数，以秒为单位

m=ActiveCell.Row '获取当前活动单元格的行号

c=ActiveCell.Column '获取当前活动单元格的列号

b=m + n - 1 '从m开始计算读数，共n个字，达到要求时最后一行的行数

出错继续下一步

call speakcontrol '调用朗读控制过程

停歇。隐藏

结束子

双击“取消”按钮，在其中输入以下内容：

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

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

　　Sub 听写()

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

　　End Sub

　　小提示：

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

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

关于书名：Excel发音英语视听（用Excel做单词表）的介绍到这里就结束了，了解更多办公软件知识可以收藏我们的网站，我们将为你提供更多精彩内容。