求助：结合年级考场人数安排，按学生级名次安排考场及座位号

-_-豆您玩-_-

结合年级考场人数安排，按学生级名次安排考场号及座位号。
  提示：人数可以随机变动（添加学生名册及修改安排人数）

曹亮120

看一下对不对

donghui2363

277班只有9年级没有7年级，那7年级30人怎么来的？

曹亮120

donghui2363 发表于 2020-6-28 10:47
277班只有9年级没有7年级，那7年级30人怎么来的？

这个不难解释吧,考试占用教室.低年级占用高年级的教室.不占用高年级的教室的话,就得占用食堂/操场.

wang-way

现成的模板 要不要试试

曹亮120

曹亮120 发表于 2020-6-28 10:41
看一下对不对

Private Sub CommandButton1_Click()
    endrow = [a1].End(xlDown).Row
    startRow = 2
    年级arr = [B2].Resize(endrow - 1, 1).Value
    考场号arr = 年级arr
    座位号arr = 年级arr
    maxrow = [Q4].End(xlDown).Row - 3
    安排情况 = [P4].Resize(maxrow, 6).Value
    Dim 考场安排情况dic
    Set 考场安排情况dic = CreateObject("scripting.dictionary")
    For i = 1 To UBound(安排情况)
        Dim 考场详情
        Set 考场详情 = CreateObject("scripting.dictionary")
        考场详情.Add "考场号", 安排情况(i, 1)
        考场详情.Add "应排7年级人数", 安排情况(i, 3)
        考场详情.Add "实排7年级人数", 0
        考场详情.Add "应排8年级人数", 安排情况(i, 4)
        考场详情.Add "实排8年级人数", 0
        考场详情.Add "应排9年级人数", 安排情况(i, 5)
        考场详情.Add "实排9年级人数", 0
        考场安排情况dic.Add 安排情况(i, 1), 考场详情
    Next
   
    For i = 1 To UBound(年级arr)
        年级 = 年级arr(i, 1)
        For Each Item In 考场安排情况dic.items
            应排人数 = Item("应排" & 年级 & "年级人数")
            If 应排人数 <> 0 Then
                实排人数 = Item("实排" & 年级 & "年级人数")
                If 实排人数 < 应排人数 Then
                    实排人数 = 实排人数 + 1
                    Item("实排" & 年级 & "年级人数") = 实排人数
                    考场号 = Item("考场号")
                    考场号arr(i, 1) = 考场号
                    座位号arr(i, 1) = 实排人数
                    Debug.Print "考场号:" & Item("考场号") & "  " & "年级:" & 年级 & "  " & "考场号:" & 考场号 & "   " & "座位号:" & 实排人数
                    Exit For
                End If
            End If
        Next
    Next
    [H2].Resize(UBound(考场号arr), 1).Value = 考场号arr
    [i2].Resize(UBound(座位号arr), 1).Value = 座位号arr
End Sub

蓝桥玄霜

考场安排的例子：

gaozengxun

wang-way 发表于 2020-6-28 11:25
现成的模板 要不要试试

发上来让大家看看。

捞屎人

中小学考场编排 我最专业