用Excel設(shè)計(jì)英語單詞聽寫程序

江育奇

Excel是一個(gè)統(tǒng)計(jì)軟件，很難想像Excel與英語單詞聽寫會建立關(guān)聯(lián)，但Excel 2016的“朗讀單元格”功能足以使人們改變這種想法，利用簡易的Excel VBA可以設(shè)計(jì)出朗讀效果良好的英語單詞聽寫程序。

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

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

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

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

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

2. VBA解決停頓間隔控制

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

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

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

3. 聽寫程序核心技術(shù)實(shí)現(xiàn)

聽寫程序核心技術(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開始朗讀，共n個(gè)單詞，達(dá)到要求時(shí)的最后一行的行數(shù)

On Error Resume Next

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

tingxie.Hide

End Sub

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

Private Sub CommandButton2_Click（）

tingxie.Hide

End Sub

（2）創(chuàng)建朗讀控制過程

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

用鼠標(biāo)單擊“VBAProject （PERSONL.XLSB），再選擇菜單“插入→模塊”，在這里要完成聲明公共變量、創(chuàng)建朗讀控制過程以及朗讀過程的工作。在其中輸入如下內(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秒以內(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)用朗讀過程

End If

End Sub

（3）實(shí)施具體朗讀任務(wù)

以上的朗讀控制過程并沒有具體實(shí)施朗讀的工作，朗讀的工作由朗讀過程完成任務(wù)。在以上朗讀控制過程的下方，創(chuàng)建一個(gè)為wordspeak的朗讀過程，內(nèi)容如下：

Sub wordspeak（）

On Error Resume Next

Application.Speech.Speak a 朗讀設(shè)定單元格中的文字

m = m + 1 計(jì)算朗讀的單元格的行數(shù)

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

End Sub

這個(gè)過程具有朗讀的功能，并將朗讀單元格的行數(shù)加1，下移到下一行單元格中，最后返回朗讀控制過程，由控制過程確定是否再往下繼續(xù)朗讀單詞。

（4）創(chuàng)建啟動(dòng)宏的過程

雖然以上已經(jīng)有窗體以及相關(guān)的控制與朗讀的過程，但還缺少一個(gè)啟動(dòng)宏的過程。在以上過程的下方創(chuàng)建一個(gè)新的過程，命名為“聽寫”，內(nèi)容如下：

Sub 聽寫（）

tingxie.Show 顯示聽寫設(shè)置窗口

End Sub

以上各個(gè)模塊內(nèi)容如圖3所示。為方便使用，可直接通過云盤下載后復(fù)制粘貼（http：//pan.baidu.com/s/1qXcTKFq 密碼8r2m）。

在Excel 2016中調(diào)試無誤后，即可運(yùn)行程序。先在要朗讀的單詞列的最上方單元格單擊，點(diǎn)擊“開發(fā)工具”選項(xiàng)卡中的“宏”按鈕，在彈出的“宏”選擇對話框中，選擇“聽寫”宏，再點(diǎn)擊“運(yùn)行”按鈕，在彈出的“聽寫程序設(shè)置”對話框中輸入“單詞數(shù)量設(shè)置”、“聽寫詞間間隔”，確定后便可進(jìn)行英語聽寫訓(xùn)練了。