加载中…
个人资料
  • 博客等级:
  • 博客积分:
  • 博客访问:
  • 关注人气:
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
正文 字体大小:

如何安排学生考试座位

(2013-11-01 15:00:41)
分类: 教学工作

马上要进行期中考试了,为了合理安排学生考试座位,上网找了个方法,记录下来,方便以后使用!!

excel中有57个学生,按学号排序,如何实现给他们随机安排考试座位号

方法1

假如A列是学号12,3,……,57B列是姓名,在C1中输入=rand(),向下拖拽填充柄至57,在C列产生随机数

0.564053156

0.226465042

0.074101238

0.79266365

0.04904085

0.268217066

再按C列排序,A列就是你要的随机安排考试座位号了。

方法2

1/在学号前插入两列,A列标题考证号,B列标题随机号,

2/B2中输入公式=int(rand()*57),然后向下拉到第58.

3/B列进行排序

4/然后在A1输入1,按住ctrl向下拉到57,即可得到对应学员的考试号.方法3在工作表中按Alt+F11,打开VBA编程界面,在工具栏第二个图标拉下来,选模块

在左边栏双击“模块1”并在右边打开的程序书写区粘贴如下代码

Sub GetRnd()

Dim rn As Range

Dim rnn As Integer

Dim cRn As Range

Set rn = Selection

rn.ClearContents

rnn = rn.Cells.Count

For Each cRn In rn

Do

cRn = 1+Int(rnd() * rnn)

Loop Until Application.WorksheetFunction.CountIf(rn, cRn) = 1

Next

End Sub

现在回到工作表,假如你的学号在A1:A57,那么你就选中B1:B57C1:C57(或D1:D57),反正只要是空的就行,然后按Alt+F8,在打开的对话窗口中选GetRnd并单击“执行”按钮,你就会在你选中的区域内看到一个随机的数序列。这就是学生的座位号。

这个程序有一点是比较通用的,不一定要拿来排座位,你如果选中12个单元格(无论是一列还是多列,也无论是一行还是多行),用Alt+F8运行它,它就自动会在这些格内产生112的不重复的随机数。

换句话说,就是选N格,就会在这N格内产生1N的不重复的随机数。你还可以把它用到多种方面。即使下次你的班级是45个人了,你一样可以用它来随机排考座。

0

阅读 收藏 喜欢 打印举报/Report
  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有