教育应用：分班（Excel_VBA） 规范化通用化应对各种要求 的实现

jxndwxs

灰袍法师 发表于 2014-8-2 14:20
增加学科，只需要直接在旁边（或中间）增加数据列即可

程序对总列数没有限制，根据 C4 C5 C6 单元格去 ...

谢谢老师，这个分班程序太强大了。
只是界面不够明了，我修改了一下界面，请原谅。

jxndwxs

灰袍法师 发表于 2014-8-2 14:20
增加学科，只需要直接在旁边（或中间）增加数据列即可

程序对总列数没有限制，根据 C4 C5 C6 单元格去 ...

附件如下：

按学科、性别均衡分班（可择班）.rar (108.51 KB, 下载次数: 504)

2014-8-2 16:30 上传

点击文件名下载附件

灰袍法师

wxnxl 发表于 2014-8-2 15:44
我自己增加了几列学科
麻烦老师帮我看一下，是什么原因，报类型不匹配错。

那是因为增加的行改变了原程序读取 输入数据 的位置，原程序固定在 C30 单元格读取输入数据。所以请不要增加新行也不要删除行，如果需要更多的结果显示，可以在别的表做。

此附件可以对你的数据正确分班，请注意优等生分班结果不理想，这是因为你给“优等生”的分值太低，只有1......，建议对于重要的特殊项目，分值至少不低于单科最高分，100-1000之间比较好。

反之，对于不大重要的特殊项目，可以降低其分值，不追求100％均衡。

另外，请注意多次运行结果的单元格，科目数量变化的时候，此单元格的公式也是要改的。

强大调班111.rar (51.34 KB, 下载次数: 301)

2014-8-2 17:10 上传

点击文件名下载附件

张雄友

灰袍法师 发表于 2014-8-2 16:42
那是因为增加的行改变了原程序读取 输入数据 的位置，原程序固定在 C30 单元格读取输入数据。所以请不要增 ...

法师大人，第28行的数字是怎么来的？有什么用的？怎么有的有公式，有的没有公式？谢谢。

灰袍法师

张雄友 发表于 2014-8-2 19:35
法师大人，第28行的数字是怎么来的？有什么用的？怎么有的有公式，有的没有公式？谢谢。

第28行对程序运行无影响，只是运行以后，作为辅助单元格，为上面的简单统计表服务而已。

如果某列是科目分数，那么就不需要用到第28行，如果某列是人数（性别，特殊生等等），那么上面统计表的数组公式就会用到第28行来计算。

你大可以把第8到第28行全部清空（别整行删除吖），然后把多次运行改为 =1 ，一样能得到分班结果的。

当然，这时候要判断运行结果好不好，就得自己根据 A30 开始的 分班结果列 来做个报表了。（我其实比较建议这个做法，把报表放另一个工作表，看起来就没这么乱了）

张雄友

灰袍法师 发表于 2014-8-2 20:06
第28行对程序运行无影响，只是运行以后，作为辅助单元格，为上面的简单统计表服务而已。

如果某列是科 ...

法师大人，第53楼附件，为什么第 11 到 19 行的公式与  第 20 到26 行的数组公式不一样的？
C19单元：=SUM(IF(OFFSET($A$30,0,0,$C$4,1)=C$8,1,0)*OFFSET($L$30,0,0,$C$4,1))/C$9

C20单元：=SUM(IF(OFFSET($A$30,0,0,$C$4,1)=C$8,1,0)*OFFSET($M$30,0,0,$C$4,1))/$M28

灰袍法师

张雄友 发表于 2014-8-2 20:37
法师大人，第53楼附件，为什么第 11 到 19 行的公式与  第 20 到26 行的数组公式不一样的？
C19单元：=S ...

第一个数组公式是算每班平均分

第二个数组公式是算每班平均人数

张雄友

强大，真强大，非常强大，真的很强大。

张雄友

之前没有考虑性别，给自己留个。8个优生，分8个班，保证每个班有一个优生。
各班人数最多偏差一人，性别最多偏差一人；平均分就不不必多言了。

张雄友

多谢造福人类的法师。