1. “朗讀單元格”按鈕設(shè)計(jì)

　　“朗讀單元格”不是“常用命令”，默認(rèn)情況下在功能區(qū)中找不到這個(gè)命令。但可以通過(guò)“自定義功能區(qū)”設(shè)置，讓這個(gè)命令顯示在功能區(qū)工具欄上。

　　選擇“文件→選項(xiàng)”菜單，進(jìn)入“選項(xiàng)”設(shè)置對(duì)話框，點(diǎn)擊“自定義功能區(qū)”，在右邊的“主選項(xiàng)卡”中單擊選擇“開(kāi)始”選項(xiàng)卡，再點(diǎn)擊下面的“新建組(N)”按鈕新建一個(gè)自定義組。具體方法如下。

　　在“從下列位置選擇命令(C)”中選擇“不在功能區(qū)中的命令”，找到“朗讀單元格”命令，用鼠標(biāo)單擊選擇這個(gè)命令，確認(rèn)上一個(gè)步驟在“開(kāi)始”選項(xiàng)卡新建的“新建組(自定義)”處于選擇狀態(tài)，點(diǎn)擊“添加”按鈕。這樣，“朗讀單元格”命令便在“開(kāi)始”選項(xiàng)卡顯示出來(lái)。同樣的道理，將“朗讀單元格-停止朗讀單元格”按鈕也顯示在這個(gè)工具欄上。結(jié)果如圖1所示(圖1)。

　　完成以上兩步后，用鼠標(biāo)選擇要朗讀的單元格，再點(diǎn)擊“朗讀單元格”按鈕，系統(tǒng)便從上到下按順序朗讀單元格，無(wú)論是中文還是英文，都能進(jìn)行朗讀，朗讀效果良好;點(diǎn)擊“朗讀單元格-停止朗讀單元格”按鈕，系統(tǒng)停止朗讀。然而，這一功能缺乏對(duì)單元格之間間隔進(jìn)行設(shè)置的選項(xiàng)，只能按要求不停地讀完所有的單元格。但聽(tīng)寫(xiě)需要時(shí)間停頓去寫(xiě)，因此，我們必須通過(guò)VBA來(lái)解決詞與詞之間的停頓間隔時(shí)間的控制問(wèn)題。

　　2. VBA解決停頓間隔控制

　　要利用Excel VBA進(jìn)行程序設(shè)計(jì)，先必須在工具欄中顯示“開(kāi)發(fā)工具”。進(jìn)入“選項(xiàng)”設(shè)置對(duì)話框，單擊左邊的“自定義功能區(qū)”，在右邊窗口中選擇“開(kāi)發(fā)工具”前面的復(fù)選框，“開(kāi)發(fā)工具”便顯示在界面上。

　　點(diǎn)擊“開(kāi)發(fā)工具”選項(xiàng)卡，再點(diǎn)擊“Visual Basic”按鈕(或按Alt+F11)，進(jìn)入VBA編輯環(huán)境，單擊“VBAProject (PERSONL.XLSB)”，再選擇菜單“插入→用戶(hù)窗體”，插入一個(gè)用戶(hù)窗體后，修改其名稱(chēng)為tingxie，Caption(即窗體的標(biāo)題)屬性為“聽(tīng)寫(xiě)程序設(shè)置”。

　　在這個(gè)用戶(hù)窗體上，分別添加兩個(gè)“文字框”控件、兩個(gè)“標(biāo)簽”控件、兩個(gè)“命令按鈕”控件，這些控件的“名稱(chēng)”都用系統(tǒng)默認(rèn)的名稱(chēng)。兩個(gè)“標(biāo)簽”的Caption屬性分別是：“單詞數(shù)量設(shè)置”和“聽(tīng)寫(xiě)詞間間隔”，這兩個(gè)標(biāo)簽控件放在兩個(gè)“文字框”控件的前面，它的作用是為后面兩個(gè)“文字框”的用途作說(shuō)明;兩個(gè)“文字框”的Text屬性分別是：20、2，這是這兩個(gè)“文字框”控件的初始值，程序利用這兩個(gè)控件讓用戶(hù)輸入“單詞數(shù)量設(shè)置”和“聽(tīng)寫(xiě)詞間間隔”數(shù)值;兩個(gè)命令控鈕的Caption屬性分別是：確定、取消。拖動(dòng)調(diào)整好窗體各控件的大小與相對(duì)位置至自己感覺(jué)合適時(shí)為止。結(jié)果如圖2所示(圖2)。

　　3. 聽(tīng)寫(xiě)程序核心實(shí)現(xiàn)

　　聽(tīng)寫(xiě)程序核心技術(shù)實(shí)現(xiàn)分為三部分進(jìn)行，具體如下。

　　(1)賦予命令按鈕以靈魂

　　命令按鈕要賦予其可執(zhí)行代碼，才能變成一個(gè)“活”的按鈕。

　　雙擊“確定”按鈕，在其中輸入如下內(nèi)容：

　　Private Sub CommandButton1_Click()

　　n = Val(TextBox1) '獲取朗讀單詞數(shù)量

　　t = Val(TextBox2) '獲取朗讀詞間間隔數(shù)量，單位是秒

　　m = ActiveCell.Row '獲取當(dāng)前活動(dòng)單元格的行數(shù)

　　c = ActiveCell.Column '獲取當(dāng)前活動(dòng)單元格的列數(shù)

　　b = m + n - 1 '計(jì)算從m開(kāi)始朗讀，共n個(gè)單詞，達(dá)到要求時(shí)的最后一行的行數(shù)

　　On Error Resume Next

　　Call speakcontrol '調(diào)用朗讀控制過(guò)程

　　tingxie.Hide

　　End Sub

　　雙擊“取消”按鈕，在其中輸入如下內(nèi)容：

　　Private Sub CommandButton2_Click()

　　tingxie.Hide

　　End Sub

　　(2)創(chuàng)建朗讀控制過(guò)程

　　這個(gè)朗讀控制過(guò)程的作用是確定朗讀的單元格，控制朗讀過(guò)程中詞間間隔，如果完成了所設(shè)置的朗讀任務(wù)，則退出程序。

　　用鼠標(biāo)單擊“VBAProject (PERSONL.XLSB)，再選擇菜單“插入→模塊”，在這里要完成聲明公共變量、創(chuàng)建朗讀控制過(guò)程以及朗讀過(guò)程的工作。在其中輸入如下內(nèi)容：

　　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 '時(shí)間在10秒以?xún)?nèi)時(shí)，計(jì)算p的方法

　　Else

　　p = "00:00:" & t '時(shí)間在10秒或以上時(shí)，計(jì)算p的方法

　　End If

　　If m > b Or m > q Then '如果朗讀單詞達(dá)到設(shè)置數(shù)量的要求或到了最后一行，則退出程序

　　Exit Sub

　　Else

　　a = Cells(m, c) '獲取要朗讀的單元格的文字

　　Application.OnTime Now + TimeValue(p), "wordspeak" '按照設(shè)定的時(shí)間間隔調(diào)用朗讀過(guò)程

　　End If

　　End Sub

　　小提示：