超级强大2：性别与科目均衡分班

aoe1981

　　修改的代码为“模块3后续调配”的第一个过程“Public Sub xutiao() '后续调配：完全匹配”中的几句代码：

1.     For i = 2 To h '转换男为100，女为0
   
2.         If jcsj(i, xbl) = "男" Then jcsj(i, xbl) = 100 Else jcsj(i, xbl) = 0
   
3.     Next i
   
4.     Erase xsbj: ReDim xsbj(2 To h, 1 To 4)
   
5.     For i = 2 To h '动态写入未调配学生科目、性别参差信息
   
6.         If jcsj(i, bjl) = "" Then
   
7.             pingj = 分班信息.[j3].Resize(1, 4).Value
   
8.             biaoj = 分班信息.[o4].Resize(n, 4).Value
   
9.             If jcsj(i, ywl) < pingj(1, 1) Then xsbj(i, 1) = 0 Else xsbj(i, 1) = 1
   
10.             If jcsj(i, sxl) < pingj(1, 2) Then xsbj(i, 2) = 0 Else xsbj(i, 2) = 1
    
11.             If jcsj(i, zhl) < pingj(1, 3) Then xsbj(i, 3) = 0 Else xsbj(i, 3) = 1
    
12.             If jcsj(i, xbl) < pingj(1, 4) Then xsbj(i, 4) = 0 Else xsbj(i, 4) = 1
    
13. '            xsbj(i, 5) = xsbj(i, 1) & xsbj(i, 2) & xsbj(i, 3) & xsbj(i, 4)
    
14.         End If
    
15.     Next i
    
16.     m = 0: m1 = 0
    
17.     For i = 2 To h '寻找完全匹配学生
    
18.         If jcsj(i, bjl) = "" Then
    
19.             For j = 1 To n
    
20.                 gs2 = (xsbj(i, 1) + biaoj(j, 1) = 1) + (xsbj(i, 2) + biaoj(j, 2) = 1) + (xsbj(i, 3) + biaoj(j, 3) = 1) + (xsbj(i, 4) + biaoj(j, 4) = 1)
    
21. '                If xsbj(i, 5) = biaoj(j, 5) Then
    
22.                 If -gs2 = 4 Then
    
23.                     pph = i: ppb = j: hh(ppb) = hh(ppb) + 1: m = 1 '下句用于控制各班人数的均衡
    
24.                     If hh(ppb) - WorksheetFunction.Min(hh) < 2 Then GoTo 100 Else hh(ppb) = hh(ppb) - 1: m = 0
    
25.                 End If
    
26.             Next j
    
27.         End If
    
28.     Next i
    

复制代码

　　注释掉的是出错的代码……

aoe1981

　　关于学生成绩状态判断的语句，原来是这样的，即使用了我所说的简便方法，结果我在后面搞反了的，现在标注下，太打击人了……

1.             If jcsj(i, ywl) < pingj(1, 1) Then xsbj(i, 1) = 1 Else xsbj(i, 1) = 0
   
2.             If jcsj(i, sxl) < pingj(1, 2) Then xsbj(i, 2) = 1 Else xsbj(i, 2) = 0
   
3.             If jcsj(i, zhl) < pingj(1, 3) Then xsbj(i, 3) = 1 Else xsbj(i, 3) = 0
   
4.             If jcsj(i, xbl) < pingj(1, 4) Then xsbj(i, 4) = 1 Else xsbj(i, 4) = 0
   

复制代码

aoe1981

　　可见，17楼的代码与工作表中
“＜平均：标记0
≥平均：标记1”
　　的情况刚好相反，现在我修正成一致的了……
　　这下成功了！

aoe1981

张雄友 发表于 2014-8-3 15:02
http://club.excelhome.net/thread-1034379-6-2.html

是很强大的，但不想搞得太复杂，顶一下。

　　我修正了一个要命的错误，终于成功了，请见19楼的附件：
　　http://club.excelhome.net/forum. ... 756&pid=7786363

aoe1981

　　不过，我的这种算法可能适应性不够好，如果科目是8科，加上性别是9个判断指标，这样会使代码变得很长很长……单从这一点，对法师下帖中的算法，更是充满好奇！
　　http://club.excelhome.net/forum. ... 379&pid=7784852

远在远方

加一次精华就能得到50财富值，可是怎么 加精华呢？

张雄友

aoe1981 发表于 2014-8-3 21:40
　　不过，我的这种算法可能适应性不够好，如果科目是8科，加上性别是9个判断指标，这样会使代码变得很长很 ...

你也是个天才，只是刚起步，好样的。

aoe1981

远在远方 发表于 2014-8-3 21:43
加一次精华就能得到50财富值，可是怎么 加精华呢？

　　这个您得问版主，我也不知道……不过，财富值只要你每天都来泡论坛，每天都活跃、都抢红包，自然就累积多了……

琼恩·雪诺

天哪，，，，，

aoe1981

张雄友 发表于 2014-8-3 21:47
你也是个天才，只是刚起步，好样的。

　　嘘，这样的说法，在EH里还是要不得的……这里有很多鄙人此生也达不到其高度的真正的“高手”、“天才”……