求助：各位大侠，请帮忙监考员随机分组，谢谢！

lishimin

将L列中的监考员甲安排到B列中 不同考场；
将N列中的监考员乙安排到C列中 不同考场；

限制条件：来源同一学校的老师不能安排在同一考场

sunya_0529

WPS里的JSA练习一下——

lishimin

sunya_0529 发表于 2024-9-4 12:22
WPS里的JSA练习一下——

谢谢大侠！真的谢谢了

chxw68

1. Sub test()
   
2.     Dim r%, i%, s%
   
3.     Dim arr, brr
   
4.     Randomize Timer
   
5.     With Worksheets("sheet1")
   
6.         r = .Cells(.Rows.Count, 12).End(xlUp).Row
   
7.         brr = .Range("l2:o" & r)
   
8.         For j = 1 To 3 Step 2
   
9.             For i = 1 To UBound(brr) - 1
   
10.                 m = Int(Rnd() * (UBound(brr) - i)) + i + 1
    
11.                 For k = 0 To 1
    
12.                     temp = brr(i, j + k)
    
13.                     brr(i, j + k) = brr(m, j + k)
    
14.                     brr(m, j + k) = temp
    
15.                 Next
    
16.             Next
    
17.         Next
    
18.         s = 0
    
19.         Do
    
20.             For i = 1 To UBound(brr)
    
21.                 If brr(i, 2) = brr(i, 4) Then
    
22.                     For j = 1 To UBound(brr)
    
23.                         If i <> j Then
    
24.                             If brr(j, 2) <> brr(i, 4) And brr(j, 4) <> brr(i, 4) Then
    
25.                                 For k = 3 To 4
    
26.                                     temp = brr(i, k)
    
27.                                     brr(i, k) = brr(j, k)
    
28.                                     brr(j, k) = temp
    
29.                                 Next
    
30.                                 Exit For
    
31.                             End If
    
32.                         End If
    
33.                     Next
    
34.                     If j > UBound(brr) Then
    
35.                         s = s + 1
    
36.                     End If
    
37.                 End If
    
38.             Next
    
39.         Loop Until s = 0
    
40.         .Range("b2").Resize(UBound(brr), UBound(brr, 2)) = brr
    
41.     End With
    
42. End Sub
    

复制代码

chxw68

参与一下。

kyxfyzg

不知道对不对

chxw68

kyxfyzg 发表于 2024-9-4 15:01
不知道对不对

结果不对，同一个单位的老师不能安排在同一个考场。请看图片中的D列。

lishimin

chxw68 发表于 2024-9-4 14:59

感谢楼主，谢谢楼主大侠的辛苦付出！

lishimin

chxw68 发表于 2024-9-4 15:01
参与一下。

感谢楼主，谢谢楼主大侠的辛苦付出！

lishimin

chxw68 发表于 2024-9-4 16:32
结果不对，同一个单位的老师不能安排在同一个考场。请看图片中的D列。

感谢楼主，谢谢楼主大侠的辛苦付出！