求能自动计算全区各科各校各班二率一平的VBA

牛爱兵

求助:求一个或十六个VBA，能够自动计算我区各年级各科各校各班前90%学生的平均分、及格率（59.5分以上）和优秀率（79.5分以上），然后按平均分占40%，及格率占40%，优秀率占20%求和，将结果呈现在制作好的EXCEL成绩计算结果表格中。

因为之前我在计算时是用一个函数模板一个班一个班的算的，全部算下来需要用一周时间，想到能不能有简便的方法，并且可以长期使用，以后每次考试后，我将成绩复制在这个文件夹里，运行VBA就可以得出结果了，这将大大提高我的工作效率，减轻工作负担，作用和意义重大，感谢大神的帮助！

山菊花

供参考。

牛爱兵

山菊花 发表于 2021-2-25 09:12
供参考。

      经过验证，非常正确，而且包括学校名称、班级及后面的排名等都能自动计算出来，真的太强大了！VBA代码写了这么多，让您付出了艰辛的劳动，非常感谢您的帮助！但里面有一个美中不足的地方——平均分、优秀率、及格率、二率一平的和、最终结果这五个地方都不是保留两位小数，能不能帮忙修改成保留两位小数?因为我不懂VBA，所以自己不会修改，麻烦你帮我修改一下。
     另外，每科的计算结果中学校的显示顺序是按照什么先后次序出现的?（好象不是按照成绩文件中学校的先后次序显示的。）这个其实无所谓，只要能准确计算出来就已经过到目的了，就能解决问题了，只是好奇问问。
    再次感谢您的辛勤付出和无私帮助！

山菊花

牛爱兵 发表于 2021-2-26 10:39
经过验证，非常正确，而且包括学校名称、班级及后面的排名等都能自动计算出来，真的太强大了！VBA ...

按要求保留2位小数。
学校顺序由Dir()函数按系统默认的文件顺序生成。

牛爱兵

山菊花 发表于 2021-2-26 11:13
按要求保留2位小数。
学校顺序由Dir()函数按系统默认的文件顺序生成。

感谢您从百忙中抽出时间帮助，经验证，修改后结果正确，有小数的也保留了两位小数，非常好。但在试验时突然发现一个问题——假如一个学校的及格人数或优秀人数是0时，结果里面是空的，没有显示为“0”，但及格率和优秀率是正确的。比如，在文件夹里的16科成绩里面，我把一年级语文石灰厂小学的所有学生成绩全改成59分，计算结果里的及格人数和优秀人数均为空，但及格率和优秀率仍是正确的“0”，能不能修改一下，改为当及格人数或优秀人数是0时，计算结果里也直接显示为0，这样更直观。我不会VBA，自己不会修改，给您添麻烦了，多谢帮忙。

山菊花

牛爱兵 发表于 2021-2-27 11:05
感谢您从百忙中抽出时间帮助，经验证，修改后结果正确，有小数的也保留了两位小数，非常好。但在试验时突 ...

4楼附件已按要求更新，请重新下载。

牛爱兵

山菊花 发表于 2021-2-27 14:51
4楼附件已按要求更新，请重新下载。

     下载后，经试验，可以了，现在已符合我的要求了。通过您的帮助，以前我需要用一周时间才能算出来的成绩现在用您写的VBA一分钟就可以完成了，大大减轻了我的工作量，真的太强大了！这是我很长时间以来的梦想，终于实现了。感谢您利用周末休息时间为我修改完善VBA代码！崇拜您的高超水平！今后有问题还会请教您，再次感谢。

山菊花

4楼增加一附件，可自定义学校排列顺序。

牛爱兵

山菊花 发表于 2021-2-28 16:11
4楼增加一附件，可自定义学校排列顺序。

        下载后，通过实验，非常好，这个插件里的学校顺序和简称调换后，计算结果的学校顺序和简称也会随之改变，非常实用，这样我提前按统一的学校顺序准备好的教师姓名等成绩算完后直接粘贴上面就完工了，很有用，感谢您的关心和大力帮助。

牛爱兵

         大神，您好!我想学习一下您写的VBA代码，但是由于我是刚刚开始跟着"我要自学网“上的教程学习，所以您写的代码有很多我看不懂是什么意思，盯着看了一天，试图一个词一个词的从百度上查找在VBA中的意思，可是有很多在网上是搜不到含意的，越是看不懂越是心里一直想学习，很想让您抽时间注释一下代码，但看着这么长的代码想到让您注释会给您增加很多劳动量，原本帮我写代码和修改完善就已经花费了您的大量时间，所以真是难以启齿。如果您能从百忙之中抽出时间，方便的话麻烦您帮我注释一下代码；如果抽不出时间，我慢慢学习，以后有不懂再慢慢请教您。但无论有没有时间，都请您不要生气。感恩您的无私帮助和辛勤付出！祝笑口常开，万事如意！