求一段成绩分析系统平均分、及格率、优秀率三率各折算为100分的vba代码

wave0403

各位vba高手：
        之前，我曾借助公式+vba的方式做过一个成绩分析系统，随着数据量和班数的增多，计算速度明显下降。后我从论坛上看到mjzxlmg的成绩分析系统比较合乎我们学校的实际，于是我在原有基础上做了少量删改，因本人的数组、字典方面不是很懂，三率的计算不能达到要求，恳请各路好手牺牲休息时间，为自己完善一下代码，先行谢过！
        具体要求如下：
        1.点击“设定”工作表的按钮，将生成的各年级的“成绩分析”中的“三率合计”计算成：将平均分、及格率、优秀率各折算成100分，然后再乘以设置的比例。如：班级某学科平均分=本平均分/本列最高平均分*100（即：平均分最高的得100分，其它的按比重降低，如语文最高平均分为80分，某班级平均分为60分，折算后应该是60/80*100=75），及格率、优秀率算法与之相同。原代码三率没有折算如下：
         result(count + 2, j * project + 6) =Round(result(count + 2, j * project + 3) * Avg_Proportion + result(count + 2, j* project + 4) * Pass_Proportion + result(count + 2, j * project + 5) *Excellent_Proportion, 2)'标红部分为三率


        2.原有的“教师排名”的计算方式也是三率没有折算，如果能统一计算口径就更完美了。

wave0403

我首先联系过mjzxlmg老师，可能老师没有看到，所以请vba高手相助。再次谢过mjzxlmg老师。

wave0403

期待着高手相助！

wave0403

因为是一个完成的系统，所以代码看起来比较麻烦，可是我一直没有联系上原作者，只好请各位相助了！

wave0403

自己顶一下

wave0403

期待着高手相助，在线等