乱序登分VBA 2018版

之前提到过乱序登分，后来有同事提示操作太麻烦了，不会用。于是我另外弄了一个VBA版，操作上简便一些。

主要是复制学生考号、姓名。

点击乱序输入，进入页面。

输入考号，↓，分数，回车到下一位。

输入完成后复制成绩列，选择性粘帖到上交到表格中。

  第一步需要确认Excel是否支持宏，不支持会出现这个提示，

按照下面的操作设置之后就支持了。
  

运行程序后，点击”启用宏“。

  第三步点击右边的点我乱序登分，会弹出一个界面。

  默认的是从序号1开始，输入准考证号的后三位数字。
  如果是第一次输入，那么打开就直接输入好了。
  如果其间中断过，那么将不是从第一个输入，就先在序号中填入起始数字，然后刷新，再操作。
  先输入考号按箭头下，然后分数之后，回车就输入完成了一个登分输入。
  之后如此循环到输入最后一个。
  第四步，复制I列的成绩，选择性粘贴到原始登分表中就可以了。已经设置了函数，I列的成绩就是最终需要的成绩。也因为是有函数，所以必须是选择性粘贴数值才能够不出错。