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

3190496160

夕之枫 发表于 2024-4-18 00:22
如果加多一列班级，怎么样在打乱学生的情况下，班级也跟着变化！

那就上传你真实的文件表格，如果一词，令人费猜疑啊

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("d2: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, 4) = Application.RandBetween(2, rs - 1)
    Next i
    For i = 2 To UBound(br)
        For s = i + 1 To UBound(br)
            If br(i, 4) > br(s, 4) 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, 4) = ar(i, 1)
            br(m, 5) = s
        Next s
    Next i
    .Range("a1:e" & rs) = br
End With
MsgBox "ok!"
End Sub

3190496160

增加班级列
111.rar (17.36 KB, 下载次数: 5)

2024-4-18 10:02 上传

点击文件名下载附件