较难的成绩统计代码求助

zyg365

mjzxlmg 发表于 2013-2-19 09:36
试试：

你好，分析统计的科目数量有没有限制，谢谢

hedgehog93

mjzxlmg 发表于 2013-2-19 09:36
试试：

呵呵，巴适了！

hedgehog93

mjzxlmg 发表于 2013-2-19 09:36
试试：

大哥，发现好像是总分为0时这名学生不得参与各科里考核人数或后10%人数的计算，但是如果某科为0分的时候，他还是要参与该科里考核人数或后10%人数的计算。

mjzxlmg

hedgehog93 发表于 2013-2-24 18:23
大哥，发现好像是总分为0时这名学生不得参与各科里考核人数或后10%人数的计算，但是如果某科为0分的时候， ...

得在取参考人数时把0分的去掉

hedgehog93

mjzxlmg 发表于 2013-2-24 20:13
得在取参考人数时把0分的去掉

所以我就在想，能不能在执行程序前（加载窗口时或者点生成按钮时），程序自动把0分替换成空成绩？如果所有科目都是0分（即总分也为0）可以考虑删除这个学生。

mjzxlmg

hedgehog93 发表于 2013-2-25 12:11
所以我就在想，能不能在执行程序前（加载窗口时或者点生成按钮时），程序自动把0分替换成空成绩？如果所有 ...

常用工具.rar (131.63 KB, 下载次数: 82)

2013-2-25 18:11 上传

点击文件名下载附件

zyg365

mjzxlmg 发表于 2013-2-25 18:11

统计分析科目增加到14个就错误提示：请指教

成绩源中的科目情况：


设置表情况：


提示错误的语句：

mjzxlmg

zyg365 发表于 2013-2-26 08:44
统计分析科目增加到14个就错误提示：请指教

成绩源中的科目情况：

加红色内容

Sub 后百分之十名册()
    Dim i&, j&, m&, s&, s1&, n&, k&, Result1(), Result(), dic As Object, Class_dic As Object, Result_dic As Object, Class, last_row&, count&, temp(), Title(), Maxrow&, total_row&
    Set dic = CreateObject("Scripting.Dictionary")
    Set Class_dic = CreateObject("Scripting.Dictionary")
    Set Result_dic = CreateObject("Scripting.Dictionary")
    ReDim Result1(1 To last_rows * Subject_number_dic.count, 1 To 4)
    For j = 4 To Rank_columns Step 3
        For i = 2 To last_rows
            If Len(Arr_out(i, j)) And Arr_out(i, j + 2) > Application.Round(Class_Subject_number_dic(Arr_out(i, 1) & Arr_out(1, j)) * 0.9, 0) Then
                Class_dic(Arr_out(i, 1)) = Empty
                m = m + 1
                Result1(m, 1) = Arr_out(i, 1)
                Result1(m, 2) = Arr_out(i, 3)
                Result1(m, 3) = Arr_out(1, j)
                Result1(m, 4) = Arr_out(i, j)
            End If
        Next
    Next

mjzxlmg

造成错误的原因是考虑不周全，设定输出结果的数组行数不够，为了保险设定为大一点，即原数据的行数*科目数，这样就可以任意设定科目数。

zyg365

mjzxlmg 发表于 2013-2-26 09:35
造成错误的原因是考虑不周全，设定输出结果的数组行数不够，为了保险设定为大一点，即原数据的行数*科目数， ...

谢谢，您的帮助