分享：一个用于阅卷统计的Excel VBA程序（附悬赏）

在精准教学的理念下，配合具有特定理念的试题，采用数据化精准评价有助于精准分析学生在答题中的表现，发现他们在特定知识点和能力点方面存在的问题。

现在很多地方已经配置了机读卡阅卷设备，能够在阅卷后提供大数据，但是出于对设备的依赖，常常只有在比较大型的考试中才使用机读设备。

在平时的测试中，或者在缺少机读设备的学校，如何实现相对便捷的精准数据采集呢？

在1月份的期末测试后，凌哥在Excel中设计了一个VBA程序，用来统计全市六年级的答题情况。

在实际使用中，状态良好，运行顺利，老师们按照说明操作，没有报告BUG。下面是一所学校的老师们操作后的实际结果的截图。

操作界面如下，看上去就是在Excel表格页面中加入了一些按钮和输入框。

使用说明

重要：只能使用微软Office Excel打开，并且按照提示允许“宏”，以便运行程序。（金山WPS中无法运行“宏”。）

1. 先进入“统计数据”表，将班级、学号/考号、姓名等信息粘贴导入“统计数据”表。其中，“学号/考号”是必须的。

2. 在“录入表”中录入数据。（其中，“自然序号”可以输入1-250之间的数字）

3. 按下相应题号的按钮，表示该题未得分。再按可取消。

4. 橘色框中输入“扣分的值”。

5. 按“下一位”后，“自然序号”会自动到下一个。

6. 已经输入的数据，只能到“统计数据”表中手动修改。【注意】选择题的数据只有“1”和“空”，2分题的分值会在最后几列中利用公式自动计算。

这个Excel表格是可以自由修改的（比如某些大题中每个小题的分值是2分，就需要修改数据表中的相应公式。VBA程序也可以改编。如果您或您家里那位略微懂得如何使用VBA编程，就可以改造，用于自己的考试统计了。

即便你不懂VBA编程，只要懂得Excel的公式的简单运用，也可以改造这个程序，只要选择判断题的数量不超过69个小题即可。方法是在编程状态下修改按钮上的文字，使其和数据表中各大题的小题名称一致。然后修改Excel表格中的相关文字，比如大题名称、并拖移按钮。然后关闭编程状态。

至于总分，有需要的话，可以在“统计数据”表中的最后几列中修改相应的公式。

下载信息

文件：只能用微软Excel打开，并允许运行“宏”。（某某学校）202101 六年级上册期末检测卷数据收集.xlsm

链接: https://pan.baidu.com/s/12C5rI4OZ0vsCYgYM3tsCwA

提取码: mxzv

悬赏 悬赏 悬赏

凌哥希望：

1. 优化代码。

2. 增加一个“上一位”按钮。如果“统计数据”表中已经有了数据，点击“上一位”或“下一位”按钮后，能先读取数据并在小题按钮和输入框中表现出来。

3. 无论设定了多少个小题按钮和输入框，在只需要修改Excel表格而无需修改VBA代码的情况下，按“上一位”或“下一位”后，都能自动计算。

递交方法：请将作品以xlsm格式的Excel文件发送到[e-mail]。如果有说明性文字，直接在xlsm中增加一个表格，表格标签为“说明”。作品不可设置任何密码。