基干VBAEXCEL生成英文单词测试表方法.docVIP

基于VBA的EXCEL生成英文单词测试表方法 　　摘 要：文章通过对Excel VBA的设计实现在工作表中输入单词，利用单元格按行比较的功能，比较输入单词的正确性并做出判读，掌握自动判断单元格的步骤。对Excel中某些非常规用法但是实用的功能进行一个延伸，为将来对系统进行扩展打下坚实的基础，为拓展Excel的使用范围起一个引导作用 关键词：Excel；VBA；数据库 1 概述 Excel VBA可以实现在工作表中输入单词后，比较两个单元格中的字符串是否完全相同。如果完全相同，则返回正确的信息，如果错误，则返回错误的信息[1]。这个功能的实现中应用到了单元格按行比较的方法，回退修改数据的方法，隐藏数据的简便方法，自动判断单元格的方法。通过这种比较，可以知道对单词的掌程度，以达到学习的目的 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键即可看到系统为用户默写的自动评定，正确为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 在对单词进行练习后，单击“重新来一次”按钮即可让工作表恢复到初始练习的状态。效果图如图1所示 3 结束语 文章所介绍的程序还可以检查每次输入单词的正确率并记录，最后制定一个学习计划。在每一次“重新来一次”按钮的时候就可以认为完成了一次学习，可以检查所有的D列单元格，记录单元格中True和False的个数。新建一个工作表将这些数据统计起来。可以绘制一条折线图来反映用户的学习进度。对正确单词也可不必一个个的手工录入，可以找到一个记录单词的数据库将其导入进工作表即可[4]。还可以对工作表添加声音等多媒体控件以加强背诵的印象 参考文献 [1]王建华.Excel 2010 VBA在职工退休审批管理中的应用[J].电脑编程技巧与维护，2015（6）：60-61. [2]孙敬杰.Excel入门与实例演练[M].北京：中国青年电子出版社， 2008. [3]蒋勇