均衡分班 按班分段统计

达州张先生

yjh_27 发表于 2014-7-8 11:52
分班数设置2-30   目前最大25，
看看大家需要最大分班数是多少，一次改到位。（也不能太大，内存是限制） ...

20-25也够了，设计学生总数3000吧，版面设计参照我的附件及说明，我认为这样简洁，使人一目了然，建议是否恰当，供参考！谢谢！

geryjun

非常感谢，这种分段统计非常的不错。

geryjun

如果分段统计中的分段是以名次作为参考依据的情况，不知如何修改？
比如我要的名次是前10名，前50名，前100名，前300名，前500名，前1000名，前3000名等。
谢谢。
我试了一下，如果把成绩表的的数据变成排名数据，也是可以计算出来的，但是要手工计算，操作用时太长了。

yjh_27

geryjun 发表于 2014-7-20 23:35
如果分段统计中的分段是以名次作为参考依据的情况，不知如何修改？
比如我要的名次是前10名，前50名，前10 ...

能说的详细些吗：
年级排名？班级排名？中国式排名？西式排名？

geryjun

yjh_27 发表于 2014-7-20 23:41
能说的详细些吗：
年级排名？班级排名？中国式排名？西式排名？

使用Rank 的那种排名，可以有同名次的那种。主要是年级排名，我没有考虑到班级排名，

geryjun

刚才试了一下，如果把成绩表的的数据变成排名数据，没有成功，提示 这一行下标越界      tjrr(2 + rbj, UBound(tjrr, 2)) = 0另外，估计这样算出来的平均分，最高分和最低分是有问题的。
也就是说，这样子计算不行。

yjh_27

geryjun 发表于 2014-7-20 23:48
刚才试了一下，如果把成绩表的的数据变成排名数据，没有成功，提示 这一行下标越界      tjrr(2 + rbj, UBo ...

分段数据排序要求降序，名次分段是升序。
变通是把名次分段也按降序填入，改代码也是可以的，有时间吧。

geryjun

yjh_27 发表于 2014-7-21 08:35
分段数据排序要求降序，名次分段是升序。
变通是把名次分段也按降序填入，改代码也是可以的，有时间吧。

等待修改后的代码。
以下是我使用变通的方法出现的一些情况说明：
1、转换所有的成绩为排名 ，使用公式 rank, 如果没有成绩的的就留空。2、分数段设置如下

5001

2002

1001

501

301

201

101

51

11

1

对应的结果是

5001以上

2002-5000名

1001-2001名

501-1000名

301-500名

201-300名

101-200名

51-100名

11-50名

1-10名

3、提示  下标越界      tjrr(2 + rbj, UBound(tjrr, 2)) = 0
之后修改 为 If tjrr(2 + rbj, UBound(tjrr, 2)) > 20 Then  可以计算
4、计算出来的结果均分全部为零。其他没有什么问题。
5、对分数段进行升序操作，在F1到O1列中填写数字1到10，使用 VBA代码
Sub 按【行】值_列排序()
    [F1:it65536].Select
    Selection.Sort Key1:=Range("F1"), _
        Order1:=xlDescending, _
        Header:=xlGuess, _
        OrderCustom:=1, _
        MatchCase:=False, _
        Orientation:=2, _
        SortMethod:=xlPinYin, _
        DataOption1:=xlSortNormal
End Sub

6、当数据量大时，如接近3万行数据，这样的操作用时较长，尤其是第一步的Rank排位计算，计算机一度要死机的样子。

yjh_27

代码晚上测试后发。

西式排名指： 1、2、2、4
中式排名指：1、2、2、3

可自行设置

yjh_27

分班应用


求助：怎么利用VBA实现排列组合，进行分组排序？谢谢！     69L、70L、86L
http://club.excelhome.net/thread-895293-1-1.html