亚洲欧美精品沙发,日韩在线精品视频,亚洲Av每日更新在线观看,亚洲国产另类一区在线5

<pre id="hdphd"></pre>

  • <div id="hdphd"><small id="hdphd"></small></div>
      學習啦 > 學習電腦 > 工具軟件 > 辦公軟件學習 > Excel教程 > Excel表格 > Excel中表格進行設計英語單詞聽寫程序的操作方法

      Excel中表格進行設計英語單詞聽寫程序的操作方法

      時間: 曉生931 分享

      Excel中表格進行設計英語單詞聽寫程序的操作方法

        如何用Excel設計英語單詞聽寫程序?具體該怎么去進行操作的呢?今天,學習啦小編就教大家在Excel中表格進行設計英語單詞聽寫程序的操作方法。

        Excel中表格進行設計英語單詞聽寫程序的操作步驟:

        1. “朗讀單元格”按鈕設計

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

        選擇“文件→選項”菜單,進入“選項”設置對話框,點擊“自定義功能區(qū)”,在右邊的“主選項卡”中單擊選擇“開始”選項卡,再點擊下面的“新建組(N)”按鈕新建一個自定義組。具體方法如下。

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

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

        2. VBA解決停頓間隔控制

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

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

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

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

        聽寫程序核心技術(shù)實現(xiàn)分為三部分進行,具體如下。

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

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

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

        Private Sub CommandButton1_Click()

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

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

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

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

        b = m + n - 1 '計算從m開始朗讀,共n個單詞,達到要求時的最后一行的行數(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)建朗讀控制過程

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

        用鼠標單擊“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 '時間在10秒以內(nèi)時,計算p的方法

        Else

        p = "00:00:" & t '時間在10秒或以上時,計算p的方法

        End If

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

        Exit Sub

        Else

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

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

        End If

        End Sub

        小提示:

        這里還補充說明時間間隔p的計算問題。由于時間間隔t在60秒以內(nèi)的這個范圍內(nèi)可能是1位數(shù),也可能是2位數(shù),這時p計算方法不一樣,因此,我們要對t的位數(shù)作判斷后再選擇計算p合適的方法。

        (3)實施具體朗讀任務

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

        Sub wordspeak()

        On Error Resume Next

        Application.Speech.Speak a '朗讀設定單元格中的文字

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

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

        End Sub

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

        (4)創(chuàng)建啟動宏的過程

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

        Sub 聽寫()

        tingxie.Show '顯示聽寫設置窗口

        End Sub

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

        小提示:

        要運行宏,必須先通過“開發(fā)工具”選項卡,點擊“宏安全性”按鈕,進入到“宏設置”中選擇“啟用所有宏”(最下面的選項)。

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

      Excel中表格進行設計英語單詞聽寫程序的操作相關(guān)文章:

      1.Excel中表格進行快速分離英文字符串的操作方法

      2.Excel中表格進行設置文字背景的操作方法

      3.Excel中表格進行設置非打印區(qū)域成灰色的操作方法

      4.Excel中表格進行背景設置綠色保護眼睛的操作方法

      5.Excel中表格中進行合并文本的操作方法

      6.Excel2010表格中引用別的表格內(nèi)容的操作方法

      7.Excel2007中表格數(shù)據(jù)進行制圖的操作方法

      2322436