制作简易的考试座位表

cai5926270

想制作一个简易的考试座位表但自己VBA的水平太菜，请高手帮忙。

说明及要求如下：
1.说明：
成绩放在sheet1,要按成绩从高到低的顺序制作的考试座位表11班放在sheet2和12班放在sheet3，样式详见附件
2.要求：
(1)两个班分开安排座位;
(2)按成绩从高到低的顺序一字形编排考生座位：例如第一排安排9个考生的话那按成绩第1名到第9名从左到右依次安排座位在第一排；第二排从左到右安排成绩第10到第18名，以此类推)；
（3）姓名前面的两位数说明：第一位数字代表排数；第二位数字代表列数。比如21代表第2排第1列

zpy2

create temp table aa as
select  (((row_number() over ( partition by 班级 order by 开学 desc))-1) / 9)+1 行,((row_number() over ( partition by 班级 order by 开学 desc)-1) % 9)+1 列,* from 按班级打印考试座位表;
create temp table bb as
select 行,列,行||'.'||列||姓名 姓名,班级 from aa;
select 班级,udf_exec_sql('select group_concat(姓名,''</td><td>'') 姓名 from bb a where 班级 like '''||班级||''' group by 行') `2023届九下数学周测座位表(第13周)        <br>
讲台` from bb group by 班级;

3190496160

Sub 安排考场()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Application.DisplayAlerts = False
For Each sh In Sheets
    If sh.Index > 2 Then
        sh.Delete
    End If
Next sh
Application.DisplayAlerts = True
With Sheets("成绩登记")
    .[a1].CurrentRegion.Sort .[c1], 2, , , , , , 1 '第一个数据为1，升序排序，为2，降序排序，第二个数据表示标题行数
    .[a1].CurrentRegion.Sort .[a1], 1, , , , , , 1 '第一个数据为1，升序排序，为2，降序排序，第二个数据表示标题行数
    ar = .[a1].CurrentRegion
End With
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        d(ar(i, 1)) = ""
    End If
Next i
For Each k In d.keys
    n = 0
    ReDim br(1 To UBound(ar), 1 To 1)
    For i = 2 To UBound(ar)
        If ar(i, 1) = k Then
            n = n + 1
            br(n, 1) = n & "." & ar(i, 2)
        End If
    Next i
    Sheets("模板").Copy after:=Sheets(Sheets.Count)
    With ActiveSheet
        .Name = k & "班"
        xh = 3
        For i = 1 To n Step 8
            xh = xh + 1
            lh = 0
            For s = i To i + 7
                If s <= n Then
                    lh = lh + 1
                    .Cells(xh, lh) = br(s, 1)
                End If
            Next s
        Next i
         r = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(r, 7) = "打印日期："
         .Cells(r, 8) = Date
        .Range("a4:h" & r - 1).Borders.LineStyle = 1
    End With
Next k
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

3190496160

工作簿1.rar (23.34 KB, 下载次数: 20)

2023-5-2 10:05 上传

点击文件名下载附件

3190496160

仅供参考，
1、一个班级按8列，一个班级又按9列，到底要按几列不明确
2、模拟结果中项目前面的数据不明白是代表什么

zpy2

3190496160 发表于 2023-5-2 10:06
仅供参考，
1、一个班级按8列，一个班级又按9列，到底要按几列不明确
2、模拟结果中项目前面的数据不明白 ...

行.列
吧

cai5926270

3190496160 发表于 2023-5-2 10:06
仅供参考，
1、一个班级按8列，一个班级又按9列，到底要按几列不明确
2、模拟结果中项目前面的数据不明白 ...

11班人数多需要9列，12班人数少只要8列

cai5926270

zpy2 发表于 2023-5-2 10:15
行.列
吧

前面数字说明：第一个数字代表第几排，第二个数字代表第几列。例如21.代表第2排第1列。

cai5926270

姓名前面的两位数说明：第一位数字代表排数；第二位数字代表列数。比如21代表第2排第1列

3190496160

cai5926270 发表于 2023-5-2 11:18
11班人数多需要9列，12班人数少只要8列

程序是需要严谨的逻辑的，什么情况下需要8列，什么情况下需要9列？？