本文介绍了如何使用Excel和VBA实现抽奖程序和考场分配功能。通过创建学生信息表，利用随机函数打乱顺序，根据设定的每考场人数进行分组，并生成相应的考场考号。代码实现包括随机排序、考场复制与考号编制等步骤。
用Excel写了个抽奖的小代码。突发奇想，也可以做个分派考场的功能。不知道现在学生考试怎么分派考场，这样编写是否符合实际，但思路应该是对的，基本原理就是利用了VB的随机函数。
为方便操作，做了一个简单的学生信息表，只有“姓名”和“班级”列。
操作思路是：先复制一个“学生信息”工作表，重命名为“修改学生信息”；在工作表“班级”后一列利用随机函数对每名同学随机编号，再将编号以“升序”或“降序”排列，打乱学生原有的排序；确定每个考场的学生人数后（因学生样本少，本次每考场安排12人），计算考场数；复制“修改学生信息”工作表并以“第*考场”依次命名，从上到下依次留取考场人数的学生，其余行删除；在“姓名”列前插入一列，按考场编制考号；最后删除“修改学生信息”工作表。
完成后效果：
代码如下：
'随机排序，拆分工作表
Public Function RandName()
Dim ReSheetName As String
Dim OriSheetName As Stri
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
