VBA考试安排

laoyang8023

3190496160 发表于 2021-4-6 23:03
Sub 分班信息()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

你好，能不能帮我加一个功能，一键导出创建好的41 42   43 44的表格，还用一键导出创建好的座次表

laoyang8023

zhyj_88 发表于 2021-4-6 23:43
ActiveSheet.Name = .[d1] & "班": m = 0
            .[a3:f200].ClearContents

你好，能不能帮我加一个功能，一键导出创建好的41 42   43 44的表格，还用一键导出创建好的座次表

3190496160

Sub 导出座次表()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
    If InStr(sh.Name, "试场") > 0 Then
        n = n + 1
        If n = 1 Then
            sh.Copy
            Set wb = ActiveWorkbook
        ElseIf n > 1 Then
            With wb
                sh.Copy after:=.Worksheets(.Worksheets.Count)
            End With
        End If
    End If
Next sh
wb.SaveAs Filename:=ThisWorkbook.Path & "\座次表.xls"
wb.Close
Application.ScreenUpdating = True
MsgBox "座次表导出完毕！"
End Sub

3190496160

Sub 导出班级表()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets
    If InStr(sh.Name, "班") > 0 And sh.Name <> "各班考生信息" Then
        n = n + 1
        If n = 1 Then
            sh.Copy
            Set wb = ActiveWorkbook
        ElseIf n > 1 Then
            With wb
                sh.Copy after:=.Worksheets(.Worksheets.Count)
            End With
        End If
    End If
Next sh
wb.SaveAs Filename:=ThisWorkbook.Path & "\班级表.xls"
wb.Close
Application.ScreenUpdating = True
MsgBox "座次表导出完毕！"
End Sub

zpy2

zpy2 发表于 2021-4-7 06:07
select 班级,group_concat(考号||姓名||考场||座号||考场地点) 子表 from (select substr(考号,5,2) 班级,* ...

select 考场地点,group_concat(考号||姓名||考场||座号||班级) 子表 from (select substr(考号,5,2) 班级,* from 考生考场信息明细表) group by 考场地点

laoyang8023

3190496160 发表于 2021-4-8 10:06
Sub 导出班级表()
Application.ScreenUpdating = False
For Each sh In ThisWorkbook.Worksheets

谢谢你

laoyang8023

3190496160 发表于 2021-4-6 23:03
Sub 分班信息()
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

哥哥你好，能不能把座次表，第一号改到右边吗，现在是左边，，还有座号用不到，统一删掉，谢谢您了