此文来自: 马开东云搜索 转载请注明出处 网址：

此文原标题: 巧用Excel VBA进行考试成绩登分录入 来源网址：

登分是每次考试后鈈可少的工作21世纪各种考试的成绩统计已经进入电脑时代，但登分工作却大多停留于“刀耕火种”年代——预先整理试卷、按座位号登汾重复数据手工查找……。笔者所在学校甚至还在使用最原始方法——评卷、拆卷、分班、登分班级多，人数多时间紧，不仅使得笁作人员疲倦不堪同时也出现不少的错误数据。鉴于此笔者根据本校实际情况，用Excel VBA编了个程序免去了按学号顺序登分之苦，也免去叻登分前整理试卷之累甚至避免了按记分册登分的查找不便之处，让教师可左手翻试卷右手敲键盘登分，一气呵成

程序需建立花名冊（如图1）及登分（如图2）两个工作表，工作人员先在花名册工作表录入考生信息如学号（或考号）、姓名、班级等，然后在登分工作表的第一列输入分数、第二列输入考生信息进行模糊查找查找结果通过列表显示，你只需轻按键盘（Up、Down、Left、Right、Enter、Esc键）选择正确的学生信息即可快速录入

程序代码简单，先在登分工作表新建两个 ActiveX 控件——文本框TextBox1和列表框ListBox1然后为他们添加相关事件代码。

我们在工作表第二列激活的单元格里输入查询的关键字其实是一种错觉实际上是用一个与单元格一模一样的文本框覆盖着单元格，其实输入到的是文本框內为使文本框及列表框能随单元格的选择而相应改变，必须为工作表添加单元格激活事件代码：

为了能随着输入查询关键字不断的进行模糊查找需为TextBox1添加Change事件，并用Find方法实现查找功能代码如下：

'如果没有选中项目，默认选中第一个项目

'将选中的项目文本转换为数组

'将選中项目内容写入工作表

0).Select '激活当前单元格的向下的一个单元格

为了能用鼠标双击点选项目实现输入效果等同按下Enter键，需为ListBox1添加DblClick事件代码

登分结束后，可能会出现一些错误数据如分数超科目满分、重复录入等，也可能出现录入分数而没录入学生信息或反之还可能出现某几个学生没有录入的情况。程序设计了查错代码进行检查并给出检查结果同时在登分工作表末录入未登分的学生信息。

'判断行x是否已查找过

'若Arr1数组存在x行则退出循环