admin管理员组

文章数量:1609501

抽奖、安排考场，Excel也能轻松做到

用Excel写了个抽奖的小代码。突发奇想，也可以做个分派考场的功能。不知道现在学生考试怎么分派考场，这样编写是否符合实际，但思路应该是对的，基本原理就是利用了VB的随机函数。

为方便操作，做了一个简单的学生信息表，只有“姓名”和“班级”列。

操作思路是：先复制一个“学生信息”工作表，重命名为“修改学生信息”；在工作表“班级”后一列利用随机函数对每名同学随机编号，再将编号以“升序”或“降序”排列，打乱学生原有的排序；确定每个考场的学生人数后（因学生样本少，本次每考场安排12人），计算考场数；复制“修改学生信息”工作表并以“第*考场”依次命名，从上到下依次留取考场人数的学生，其余行删除；在“姓名”列前插入一列，按考场编制考号；最后删除“修改学生信息”工作表。

完成后效果：

代码如下：

'随机排序，拆分工作表

Public Function RandName()

    Dim ReSheetName As String

    Dim OriSheetName As Stri

本文标签： 也能考场轻松Excel

版权声明：本文标题：抽奖、安排考场，Excel也能轻松做到 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://www.elefans.com/xitong/1728570375a1164094.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。