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

山菊花

牛爱兵 发表于 2021-3-1 16:00
下载后，通过实验，非常好，这个插件里的学校顺序和简称调换后，计算结果的学校顺序和简称也会随 ...

4楼附件已更新，新增任课教师名单，请重新下载。

山菊花

牛爱兵 发表于 2021-3-1 20:25
大神，您好!我想学习一下您写的VBA代码，但是由于我是刚刚开始跟着"我要自学网“上的教程学习，所 ...

这段代码解决了你工作上的问题，你很喜欢，可以理解，但一年或半年之后，你再回头，它其它很平常、很简单，不过如此。
学习VBA的方法很多，结合工作实际可以说效率最高，但通过一个词一个词学代码不可取，走偏了。
不要期望注释就是捷径，注释只是写给懂代码的人看的。抽空我会给你写。
学习是一个漫长的过程，欲速则不达，你是教育人，这个道理你懂。
祝工作顺利，学习进步。

牛爱兵

山菊花 发表于 2021-3-2 08:03
这段代码解决了你工作上的问题，你很喜欢，可以理解，但一年或半年之后，你再回头，它其它很平常、很简单 ...

        你说的很正确，需要循序渐进，以免”从入门到放弃“，需要耐住性子，不能急躁。感谢有你，以后在自学中遇到不懂的能够及时请教。感谢指导。

牛爱兵

山菊花 发表于 2021-3-1 20:34
4楼附件已更新，新增任课教师名单，请重新下载。

    下载了“新增教师名单的”文件后，今天通过反复实验，自动输入教师名单功能很方便也很准确——无论教师名单里的学校输入全称还是简称，计算成绩后都能准确填入教师姓名；即使把教师名单里的学校和班级顺序打乱，也能准确填入教师姓名；如果教师名单中缺少某个班级教师名单时，成绩结果中教师姓名处也是空缺的。所以非常实用。感谢您的辛勤付出和倾力相助，感谢您能设身处地的考虑我的需求！

牛爱兵

        但发现了一个小问题，——当没有源成绩时（比如把“16科成绩”文件夹删除后），点“统计”按纽计算后，成绩结果行是空白的，等于清除了老表的原结果，这很正常很正确也很好，但同时标题行（A2）行的N—R列标题也变成了乱码。好象有些不正常，但这其实在实际计算时无关紧要，因为使用时不可能没有源成绩，但感觉稍微有点儿异常，换了一个家里的电脑试后还是这样，明天我再用办公室的电脑试一下。

山菊花

牛爱兵 发表于 2021-3-2 21:23
但发现了一个小问题，——当没有源成绩时（比如把“16科成绩”文件夹删除后），点“统计”按纽计算 ...

如果不存在“16科成绩”文件夹，可用代码终止程序：
If Dir(ThisWorkbook.Path & "\16科期考成绩", 16) = "" Then Exit Sub
统计成绩过程中还有许多需要考虑的问题，如学校、班别名称是否异常，成绩是否为数值，缺考学生问题等。整个程序未考虑纠错问题，留给你自己去完善。

牛爱兵

山菊花 发表于 2021-3-3 06:51
如果不存在“16科成绩”文件夹，可用代码终止程序：
If Dir(ThisWorkbook.Path & "\16科期考成绩", 16)  ...

       把这行代码加进去之后，没有成绩时，统计后标题行保持原样不动，没有了之前N—R列标题行不显示成乱码的的情况，问题解决的非常好。感谢您在上班之前百忙之中抽空帮我。目前已经非常完美了，我一定要加强学习，提高自己的水平，不辜负您的厚望。祝您开心快乐每一天！

牛爱兵

      大神您好！新学期开学， 根据领导商议，成绩计算方法中参评人数由原来的取各班各科的前90%学生求二率一平，变为了"总人数在19人及以下的取90%，20人以上不足40人的取80%，40人及以上的取70%"进行计算，计算结果显示中相应也新增了一列参评比例。本来真的不好意思麻烦您了，可是我自己现在不会修改，肯请大神抽空帮忙修改一下代码，先帮我解决问题，我以后慢慢理解学习提高，感恩您的倾力相助，拜谢！

xgczwp

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

谢谢分享。

牛爱兵

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

收到代码注释了，非常感动，您辛苦啦，多谢您的帮助。