求助：帮忙使用VBA安排考场，不胜感激！

cai2532

求助：1.学生总人数不定，根据考场点随机安排考试座位并生成准考证号码，准考证号码总共4位数，前面第一、二位数字表示考场，如例中“01”表示第1考场。1个考场点有多个考场；第三、四位为考生座位号，每个考场最多不超过30个学生，不同考场点考场号码都是从01开始。
     2.座位安排：根据准考试号码安排考试座位到考试座位安排工作表。有多个考场，每个考场考生数不超过30人，考生座位单人、单行排列，排列顺序为(8877)安排座位。

3190496160

参考
考场安排系统-Excel VBA程序开发-ExcelHome技术论坛 -  https://club.excelhome.net/thread-1548490-1-1.html

Qs18

‘猜一个
Sub test()
    With Sheet2
        Dim arr: arr = .Range("a1").CurrentRegion.Value
        x = 1
        For j = 1 To UBound(arr) Step 30
            k = k + 1
            For i = 2 To 31
                x = x + 1
                If x > UBound(arr) Then GoTo 100
                arr(x, 3) = k
                arr(x, 4) = "'" & Format(k, "00") & Format(i - 1, "00")
            Next
            
        Next
100
        .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    End With
End Sub’

wang-way

有现成的就用吧。重新造一遍停麻烦的

cai2532

Qs18 发表于 2024-6-19 18:59
‘猜一个
Sub test()
    With Sheet2

非常感谢！

wang-way

考生座位表不用生成吗？

LIUZHU

wang-way 发表于 2024-6-19 19:26
有现成的就用吧。重新造一遍停麻烦的

胖子，来一个JS的呗

wang-way

LIUZHU 发表于 2024-6-19 22:44
胖子，来一个JS的呗

反正无聊也是无聊 是吧 我放假呢  你还要上班不

sunya_0529

WPS里的JSA练习一下——

LIUZHU

参与下，效果