如何根据试室设定人数，随机分配试室号和座位号

夕之枫

求大神帮忙解决问题，谢谢！

世界客都

没看明白要随机到哪个范围，能否模拟一下

3190496160

考场安排的问题，vba代码来完成会好些吧，
先随机打散再分配考室号和座位号即可

3190496160

Sub 考场安排()
With Sheets("设置")
    r = .Cells(Rows.Count, 7).End(xlUp).Row
    If r < 3 Then MsgBox "请先设置各个考场人数！": End
    ar = .Range("f2:h" & r)
End With
With Sheets("学生信息")
    rs = .Cells(Rows.Count, 2).End(xlUp).Row
    If rs < 2 Then MsgBox "学生信息为空！": End
    .Range("c2:e" & rs) = Empty
    br = .Range("a1:e" & rs)
    Dim cr()
    ReDim cr(1 To UBound(br), 1 To UBound(br, 2))
    For i = 2 To UBound(br)
        br(i, 5) = Application.RandBetween(2, rs - 1)
    Next i
    For i = 2 To UBound(br)
        For s = i + 1 To UBound(br)
            If br(i, 5) > br(s, 5) Then
                For j = 1 To UBound(br, 2)
                    k = br(i, j)
                    br(i, j) = br(s, j)
                    br(s, j) = k
                Next j
            End If
        Next s
    Next i
    m = 1
    For i = 2 To UBound(ar)
        sl = ar(i, 2)
        For s = 1 To sl
            m = m + 1
            br(m, 3) = ar(i, 1)
            br(m, 4) = s
        Next s
    Next i
    .Range("a1:d" & rs) = br
End With
MsgBox "ok!"
End Sub

3190496160

111.rar (17.24 KB, 下载次数: 12)

2024-4-17 10:03 上传

点击文件名下载附件

hugeinfo

祝顺心！！

hcm19522

学生信息C2{=INDEX(设置!F:F,SMALL(IF(设置!G$3:G$25>=COLUMN(A:CT),ROW($3:$25),99),ROW(A1)))&""

学生信息D2=IF(C2="","",COUNTIF(C$2:C2,C2))

hcm19522

学生信息C2{=INDEX(设置!F:F,SMALL(IF(设置!G$3:G$25>=COLUMN(A:CT),ROW($3:$25),99),ROW(A1)))&""

学生信息D2=IF(C2="","",COUNTIF(C$2:C2,C2))

jisijie630

B2:

="张"&SMALL(IF(COUNTIF(B$1:B1,"张"&ROW(INDIRECT("1:"&设置!D$4))),,ROW(INDIRECT("1:"&设置!D$4))),RANDBETWEEN(1,设置!D$4+1-ROW(A1)))

下拉。

夕之枫

3190496160 发表于 2024-4-17 10:03

如果加多一列班级，怎么样在打乱学生的情况下，班级也跟着变化！