求编一个VBA代码能实现随意安排位置（32人）

yjh_27

lmx3517 发表于 2014-7-6 08:19
首先感谢这位朋友的帮助，您编写的程序非常好，我非常感谢您！！！在我测试中发现几个问题看看如何解决： ...

你这就是个分班问题，区域数=分班数

参见

均衡分班    3L 附件
http://club.excelhome.net/thread-1135195-1-1.html

bluexuemei

1. Sub t()
   
2. '需要安装ACTIVERUBY ，下载地址 http://www.artonx.org/data/asr/Ruby-2.1.1.msi
   
3. Set ojs = CreateObject("scriptcontrol"): ojs.Language = "rubyscript"
   
4. ojs.eval ("def aa(aa);$aa=aa;end")
   
5. y = ojs.Run("aa", Range("b4", [c4].End(4)).Value)
   
6. y = ojs.eval("$aa.group_by{|x|x[1]}.values.sort_by(&:size).reverse.map{|x|(x.size==4)?x:x<<[nil,nil]}.map(&:shuffle).transpose.map{|n|n.reject{|x|x[0].nil?}}.shuffle.flatten(1)")
   
7. [h4].Resize(UBound(y) + 1, 2) = y
   
8. Set ojs = Nothing
   
9. 'Stop
   
10. End Sub

复制代码

vvw123

收藏看看，学习学习

ncsy90

chxw68 发表于 2014-7-6 09:08
第1、3个问题已经解决了，解决第2个问题还需要一点时间，这个问题确实有些难。

求大神解答一下，在实际工作当中遇到了一个这样的问题，在论坛里面查找了，发现了一些线索，但没有找到最优的解决方案，烦请大家帮我关注一下
1、班级人数不同（30，33，37，45，48.........）
2、教室容量固定(110人)
3、如何科学合理的合班，满足最大化利用教室的功能
     a,算出一个合班人数最佳的值，使所有的合班达到这个平均值
     b，按教室容量最大110人进行合班，不考虑可能存在最后一到二个班人数非常低的情况
现在不论是那种方式，希望大神能提供解决方案，

函数1.zip (303.89 KB, 下载次数: 6)

附件当中的函数借鉴了论坛当中的大神解答，存在2个问题
1、只是算出来了固定一个教室容量值可能的组合情况；
2、取出来的组合存在重复的情况；