请教老师，利用VBA快速随机安排考试座位，谢谢！

静坐123 · 发表于 2021-11-22 08:52

本帖最后由静坐123 于 2021-11-22 12:28 编辑

1、根据L1每个考场的设定人数，分别对各级考生进行随机安排座位(每个年级单独编排，同一考场的只能为同一个年级的考生）

2、考场号编排顺序为年级加序号，如（D列+01，02，03.........，如0701，0702）

3、按D列考场号从小到大排序，各考场按座位号从小到大排序

这代码应该怎样写，谢谢老师

3190496160 · 发表于 2021-11-22 09:07

要求相邻两个考生不能为同一班级的考生
那你这个就不是随机安排，而是要按照考生前后班级不相连来安排吧

3190496160 · 发表于 2021-11-22 09:08

考场安排系统-Excel VBA程序开发-ExcelHome技术论坛 - https://club.excelhome.net/thread-1548490-1-1.html
看看这个吧，应该基本能满足你的需求的

loirol · 发表于 2021-11-22 09:09

按照随机排，最后极大概率会有考生不符合要求而排不进去

静坐123 · 发表于 2021-11-22 11:24

loirol 发表于 2021-11-22 09:09
按照随机排，最后极大概率会有考生不符合要求而排不进去

谢谢老师，谢谢！

静坐123 · 发表于 2021-11-22 11:26

3190496160 发表于 2021-11-22 09:08
考场安排系统-Excel VBA程序开发-ExcelHome技术论坛 - https://club.excelhome.net/thread-1548490-1-1.htm ...

谢谢老师，这个我下载看过，但不符合我们的，可以麻烦给我做一个吗？辛苦老师了，谢谢！

m_n_j001 · 发表于 2021-11-22 11:54

我以前做过个类似的，当时的办法是这样的（假随机，但能做到最大限度的同班不相邻）：
1、把三个年级分开来做
2、在一个年级内，用一个辅助列填随机数，排序，再按班号排序。这样达到班内随机了，且每个班又集中在一起
3、算出每个班的人数
4、人数最多班人数为n，设置一个大小为2n数组tmp，把此班的学生填入数组的奇数位置，将数组的偶数位置空出
5、将余下班中人数最多的班的学生填入数组tmp的偶数位，填完后，再继续将余下班中人数最多的班的学生填入数组tmp的余下的偶数位，直到数组tmp所有的位置填满
6、重复执行：把数组tmp扩大2倍，数组中原有的学生搬到奇数位，空出偶数位，把余下的学生随机填进偶数位，直到所有学生都填完
最终的数组tmp为想要的结果

静坐123 · 发表于 2021-11-22 15:29

麻烦各位老师帮帮忙，谢谢

静坐123 · 发表于 2021-11-22 15:30

修改了下，不要求相邻两个考生不能为同一班级的考生，麻烦各位老师帮帮忙，谢谢

花花爱吃肥肉 · 发表于 2021-11-22 15:35

看看，学习下大佬们的思路，每天进步一点点

		自动登录	找回密码
密码			免费注册

[求助] 请教老师，利用VBA快速随机安排考试座位，谢谢！