摘 要：文章通過對Excel VBA的設計實現(xiàn)在工作表中輸入單詞，利用單元格按行比較的功能，比較輸入單詞的正確性并做出判讀，掌握自動判斷單元格的步驟。對Excel中某些非常規(guī)用法但是實用的功能進行一個延伸，為將來對系統(tǒng)進行擴展打下堅實的基礎，為拓展Excel的使用范圍起一個引導作用。

關鍵詞：Excel；VBA；數(shù)據(jù)庫

1 概述

Excel VBA可以實現(xiàn)在工作表中輸入單詞后，比較兩個單元格中的字符串是否完全相同。如果完全相同，則返回正確的信息，如果錯誤，則返回錯誤的信息[1]。這個功能的實現(xiàn)中應用到了單元格按行比較的方法，回退修改數(shù)據(jù)的方法，隱藏數(shù)據(jù)的簡便方法，自動判斷單元格的方法。通過這種比較，可以知道對單詞的掌程度，以達到學習的目的。

2 具體操作

步驟1、新建一個Excel工作簿，在工作表的A列中鍵入需要記憶的單詞，在B列中鍵入該單詞的詞義。

步驟2、單擊主菜單上的“工具Excel>宏>Visual Basic編輯器”選頊，再單擊“Visual Basic編輯器”主菜單上的“視圖>代碼窗口”選項[2]。在打開的“代碼窗口”中選擇Worksheet對象的Change方法過程，編輯其響應代碼如下所示：

Option Explict

Dim AlterFlag As Boolean

Private Sub Worksheet_Change（ByVal Target As Rang）

If （Target.Column =3 And （Not AlterFlag） ） Then

If Target.Value = Cells（Target.Row， 1）.Value Then

Cells（Target.Row， 4）.Value =“True”

Cells（Target.Row， 4）.Font.ColorIndex =3

Else

Cells（Target.Row， 4）.Value =“False”

Cells（Target.Row， 4）.Font.ColorIndex =1

End If

這里設置一個布爾變量為了避免在全部重新設置單元格的時候激活工作表被更改的代碼[3]。在C列中輸入背誦的單詞后按下enter鍵即可看到系統(tǒng)為用戶默寫的自動評定，正確為True而錯誤為False。

步驟3、在工作表上新建一個“按鈕”控件并更名為“放棄”。在“設計模式”下雙擊該按鈕進入“Visual Basic編輯器”，編輯該按鈕的單擊響應代碼如下所示：

Private Sub CommandButton1_Click（）

Cells（ActiveCell.Row， 1）.Font.ColorIndex = 5

End Sub

步驟4、在工作表上新建一個“按鈕”控件并更名為“重新來一次”。在“設計模式”下雙擊該按鈕進入“Visual Basic編輯器”，編輯該按鈕的單擊響應代碼如下所示：

Private Sub CommandButton2_Click（）

AlterFlag = True

Dim TempInt As Integer

For TempInt = 3 To 100 Step 1

Cells（TempInt， 1）.Font.ColorIndex = 2

Cells（TempInt， 3）.Value = “”

Cells（TempInt， 4）.Value = “”

Cells（TempInt， 4）.Font.ColorIndex = 2

Next TempInt

AlterFlag = False

End Sub

在對單詞進行練習后，單擊“重新來一次”按鈕即可讓工作表恢復到初始練習的狀態(tài)。效果圖如圖1所示。

3 結束語

文章所介紹的程序還可以檢查每次輸入單詞的正確率并記錄，最后制定一個學習計劃。在每一次“重新來一次”按鈕的時候就可以認為完成了一次學習，可以檢查所有的D列單元格，記錄單元格中True和False的個數(shù)。新建一個工作表將這些數(shù)據(jù)統(tǒng)計起來?？梢岳L制一條折線圖來反映用戶的學習進度。對正確單詞也可不必一個個的手工錄入，可以找到一個記錄單詞的數(shù)據(jù)庫將其導入進工作表即可[4]。還可以對工作表添加聲音等多媒體控件以加強背誦的印象。

參考文獻

[1]王建華.Excel 2010 VBA在職工退休審批管理中的應用[J].電腦編程技巧與維護，2015（6）：60-61.

[2]孫敬杰.Excel入門與實例演練[M].北京：中國青年電子出版社， 2008.

[3]蔣勇.基于Excel VBA的計算機理論知識考試系統(tǒng)設計[J].信息與電腦：理論版，2010（3）：69-71.

[4]魏汪洋.Excel VBA語法速查手冊[M].北京：化學工業(yè)出版社，

2011.

作者簡介：鄭賓（1978-），男，漢族，陜西渭南人，學士，講師，研究方向為電子信息技術。