怎样按班级给每科单独降序

xgczwp · 发表于 2018-4-28 11:37

mjzxlmg 发表于 2018-3-21 17:44
测试附件：

盼老师指导。

mjzxlmg · 发表于 2018-4-28 21:38

本帖最后由 mjzxlmg 于 2018-4-28 21:51 编辑

xgczwp 发表于 2018-4-28 11:37
盼老师指导。

是这样的，排名用的像Rank一样，同分同名。因它有相同的名次所以造成取多人数的问题。
如果你需要根据参评人数来统计也可，改一改即可。把下面蓝色的改为红色的即可。

If myscore <> score_record(class_column) Then
            class_rank = count_record(class_column)
            Rank_record(class_column) = class_rank
            score_record(class_column) = myscore
         Else
            class_rank = count_record(class_column) 'class_rank = Rank_record(class_column)
         End If

mjzxlmg · 发表于 2018-4-28 21:55

质量分析一版.zip (99.79 KB, 下载次数: 16)

mjzxlmg · 发表于 2018-4-29 00:00

求助.rar (110.36 KB, 下载次数: 10)

xgczwp · 发表于 2018-4-29 11:39

mjzxlmg 发表于 2018-4-29 00:00

谢谢老师。

xgczwp · 发表于 2018-4-29 11:41

mjzxlmg 发表于 2018-4-28 21:55

谢谢老师。

xgczwp · 发表于 2018-4-29 11:42

mjzxlmg 发表于 2018-4-28 21:55

如果考试的人是48人，参评要求50人，那么考试的人数没有参评的人多，会不会自动补2个学生的分数为0。

mjzxlmg · 发表于 2018-5-1 18:24

本帖最后由 mjzxlmg 于 2018-5-1 18:26 编辑

修改一下代码即可。

         classname = CStr(Data(myindex, 3))
         total(1) = Val(CN_dic(classname))  '添加这句
         If total_rank <= total(1) Then '这句修改成这样
            temp(1, class_column) = temp(1, class_column) + 1
            temp(2, class_column) = temp(2, class_column) + myscore
            'total(1) = total(1) + 1 '删除这句
            total(2) = total(2) + myscore

xgczwp · 发表于 2018-5-5 15:45

本帖最后由 xgczwp 于 2018-5-5 16:01 编辑

mjzxlmg 发表于 2018-5-1 18:24
修改一下代码即可。

classname = CStr(Data(myindex, 3))

改为这样吗  这样改了后，调试有问题
classname = CStr(arr(myindex, 3))          total(1) = Val(CN_dic(classname))
         If Len(basic(temprow + 1, class_column)) = 0 Then basic(temprow + 1, class_column) = T_dic(subject & classname)
         If total_rank <= total(1) Then
            temp(1, class_column) = temp(1, class_column) + 1
            temp(2, class_column) = temp(2, class_column) + myscore
            total(2) = total(2) + myscore
            If myscore >= P_dic(subject & "优分") Then basic(temprow + 2, class_column) = basic(temprow + 2, class_column) + 1: basic(temprow + 2, classcount + 3) = basic(temprow + 2, classcount + 3) + 1
            If myscore >= P_dic(subject & "及格") Then basic(temprow + 5, class_column) = basic(temprow + 5, class_column) + 1: basic(temprow + 5, classcount + 3) = basic(temprow + 5, classcount + 3) + 1
            basic(temprow + 3, class_column) = Round(basic(temprow + 2, class_column) / temp(1, class_column) * 100, 2)
            basic(temprow + 6, class_column) = Round(basic(temprow + 5, class_column) / temp(1, class_column) * 100, 2)
            basic(temprow + 8, class_column) = Round(temp(2, class_column) / temp(1, class_column), 2)
            basic(temprow + 3, classcount + 3) = Round(basic(temprow + 2, classcount + 3) / total(1) * 100, 2)
            basic(temprow + 6, classcount + 3) = Round(basic(temprow + 5, classcount + 3) / total(1) * 100, 2)
            basic(temprow + 8, classcount + 3) = Round(total(2) / total(1), 2)
         End If

mjzxlmg · 发表于 2018-5-6 15:59

求助.rar (128.47 KB, 下载次数: 19)

		自动登录	找回密码
密码			免费注册

[求助] 怎样按班级给每科单独降序

评分