如何按成绩和性别分班

jxndwxs

hlly888 发表于 2014-7-24 16:07

hlly888老师你好
又看到你的新作了，增加了“基数统计”，这样能更好的了解分班情况。
提两点建议：
1、从“基数统计”中的“同姓名统计”中可查找同姓名的人分在哪班。结果显示，有同姓名的人分在同一班，这样不便于日常教学。能不能分班时，同姓名的人不要分在同一班。（以前没有去查看同一班有没有同姓名的人）
2、分班关键字“性别”、“总分”能不能象aoe1981老师的程序那样，只要“性别”、“总分”文字不变，不管位置在哪，都能分班。这样便于根据各人需要，设计表格。

谢谢。

jxndwxs

hlly888 发表于 2014-7-24 16:05
增加了基本数据统计，虽然可有可无，但是对全面了解学生情况还是有所帮助的。

老师好
“增加了基本数据统计，虽然可有可无，但是对全面了解学生情况还是有所帮助的。”是呀，帮助查出问题了，同姓名的人分在同一班，这样不好。以前我们编班时都要一班一班查，看看有没有同姓名的人分在同一班，有的话尽量要调整。多麻烦呀。

jxndwxs

hlly888 发表于 2014-7-24 16:05
增加了基本数据统计，虽然可有可无，但是对全面了解学生情况还是有所帮助的。

如果在“报名信息”表中改变了字段（增加或减少），在“基数统计”使用中，有些功能会出错。

香川群子

aoe1981 发表于 2014-7-24 15:37
　　以下附件与我在165楼中的附件在速度上差不多，按理应该下列附件稍快，需做出多次检测，才有结论……
　 ...

呵呵，你还是先研究一下我的代码吧。 计算耗时约0.03-0.04秒

1. Sub kagawa()
   
2.    
   
3.     k = Val(InputBox("How many class ?", "", 10)) '输入分班数 例如=10个班级
   
4.     tms = Timer '开始计时
   
5. 
   
6.     Sheets("报名信息表").Activate
   
7.     m = [b65536].End(3).Row - 2 '数据表有效行数m
   
8.     n = 18 '数据表有效列数n (到R列)
   
9.     [a3].Resize(m, n).Sort [d3], 2, [q3], , 2, , , 2 '按男女、分数进行工作表倒序排序
   
10.     arr = [a3].Resize(m, n) '工作表排序后的数据读入数组arr
    
11.    
    
12.    
    
13.     ReDim brr(k - 1) '按班级数定义嵌套数组
    
14.     ReDim crr(-1 To m \ k, 1 To n) '记录每个班信息的嵌套子数组
    
15.     For j = 1 To n
    
16.         crr(-1, j) = Cells(2, j) '写入班级信息标题栏
    
17.     Next
    
18.     For i = 0 To k - 1
    
19.         brr(i) = crr '嵌套数组初始化
    
20.     Next
    
21.         
    
22.     For t = 0 To m - 1 '按排序后的顺序 遍历原始数据各行
    
23.         c = (t + t \ k) Mod k '计算当前班级 【注意：可按楼主要求自动进行班级顺序错位】
    
24.                                      '即 12345 23451 34512 45123 51234 12345 ……这样的错位进行
    
25.         i = t \ k  '计算当前班级所在行序号i
    
26.         brr(c)(i, 1) = c + 1 '第1列写入分配班级
    
27.         For j = 2 To n '第2-18列 照搬原始数据
    
28.             brr(c)(i, j) = arr(t + 1, j)
    
29.         Next
    
30.     Next
    
31.     MsgBox Format(Timer - tms, "0.000s") '2380个学生分成10个班计算耗时约 0.03-0.04秒
    
32.    
    
33.     '下面是向各个工作表输出各班级结果
    
34.     For i = 0 To k - 1
    
35.         Sheets(i + 3).Range("a1").Resize(m \ k + 2, n) = brr(i)
    
36.         '注意Sheets(i + 3)里面的参数3可以自行调整 总之是凑成实际输出Sheet时的正确序号。
    
37.     Next
    
38. End Sub
    

复制代码

呵呵，论数组计算，还是我高明。

达州张先生

香川群子 发表于 2014-7-24 17:27
呵呵，你还是先研究一下我的代码吧。 计算耗时约0.03-0.04秒呵呵，论数组计算，还是我高明。

你们都会做，就我不会哦，我的悲哀! 各种格式我都糊涂了。谢谢！

夏秋梦

各位高手，我一路看了，我校也准备分班，你们讨论的问题，是学校班主任和授课老师关注的重点，分班均衡与否，直接关系到班主任带班的好坏，和班主任的工作量。最后的问题提得很好，同姓名的人分在同一班，同学、班主任、授课教师、学校考试、成绩等等，都很麻烦，我认为必须解决！向各位高手学习。

aoe1981

夏秋梦 发表于 2014-7-24 17:42
各位高手，我一路看了，我校也准备分班，你们讨论的问题，是学校班主任和授课老师关注的重点，分班均衡与否 ...

什么叫“同姓名的人分在同一班”？附件中是模拟数据，基本的有170人，为了测试代码的效率，复制粘贴了若干次，凑了2380人，所以才有那么多的同姓名……不知你是不是这样认为的……

aoe1981

jxndwxs 发表于 2014-7-24 17:09
老师好
“增加了基本数据统计，虽然可有可无，但是对全面了解学生情况还是有所帮助的。”是呀，帮助查出 ...

同姓名的分在了同一个班，原来是这个情况……我看就不要指着一次完成这个工作了，先按既定的规则分班，再查重名，同分数段的在不同班之间调换，这个应该是少数，只是数据量大的时候如何找出来是个问题……

aoe1981

jxndwxs 发表于 2014-7-24 17:03
hlly888老师你好
又看到你的新作了，增加了“基数统计”，这样能更好的了解分班情况。
提两点建议：

你提的一个“择班”问题，一个“重姓名”问题，都是重磅的呀……看来这个工作应当分步骤完成，指着一次性完成，太麻烦了……

aoe1981

香川群子 发表于 2014-7-24 17:27
呵呵，你还是先研究一下我的代码吧。 计算耗时约0.03-0.04秒呵呵，论数组计算，还是我高明。

这个的确是的，您是数组、组合……的鼻祖！