当前位置:科普知识站>IT科技>

如何利用excel去进行制作简易号码抽签

IT科技 阅读(2.16W)

你的意思是从一个范围内随机抽取一个号码吗? 请在A1填入一个最小值,请在B1输入一个最大值,请在C1输入公式 =RANDBETWEEN(A1,B1) A1和B1不要锁定,方便随时更改摇号范围。C1单元格可以锁定。 F9键是刷新键,每按一次F9键,C1显示的结果会变化一

如何制作简易号码抽签?下面介绍一下如何使用Excel制作简易抽签号码。

方法

打开Excel

材料/工具:Excel2010 1、打开电脑后,直接进入到excel软件中,新建一个空白的表格文档,在表格中某一列单元格中录入好我们要抽取的内容,例如姓名,编号等等。 2、录入完成后,我们在当前表格文档中重新再去选择一个单元格,将其作为最终抽取结

如何利用excel去进行制作简易号码抽签

选择合适的单元格。

如果是随机抽签,那么应该先有个自动生成随机数的区域,假如有55个学生,那么在R列的R1:R55输入=RAND() 按Ctrl+Enter组合键结束; 然后在座位号中输入=RANK($R1,$R:$R)这样的排序公式,每按一次F9,R列的随机数更新一次,座位号也重新刷新一次。

如何利用excel去进行制作简易号码抽签 第2张

点击“合并并居中”。

用了两个函数实现的,双击任意单元格会刷新抽签。确定抽签顺序后建议复制姓名和排名,选择性粘贴为文本。见图种,另存为图片,该后缀为rar,解压可得excel原表格

如何利用excel去进行制作简易号码抽签 第3张

输入以下公式:=INT(RAND()*(100+1))

新建一个空白excel表格 选中多个单元格,并进行合并居中(本步骤可以省略) 选中单元格,输入公式=INT(RAND()*(100-1+1))+1,按回车键确认 1.记住连同=号一起输入; 2.如果是在1-50中抽取,则将公式中100替换成50,以此类推。选中单元格,在“开

如何利用excel去进行制作简易号码抽签 第4张

修改字体大小。

最简单的办法用rand函数+排序的方法 假设你的表含有表头并且50个人名在A列,将B列作为辅助列,在B2中输入以下公式并下拉 =INT(50*RAND())+1 然后以B列为关键列进行排序即可。 注:如果是07或07以上版本B2中公式可写成以下形式: =RANDBETWEEN(1,

如何利用excel去进行制作简易号码抽签 第5张

按F9可以刷新。多次按F9即可获得随机抽签数。

A列1-22 B列数22个随机数字 然后排序B列 给B列复制出来让你的团队选择,选择完了把对应的名字填到C列就可以了

如何利用excel去进行制作简易号码抽签 第6张

扩展阅读,以下内容您可能还感兴趣。

excel或者ppt制作抽签

裁53张小纸条,分别写上1-53的号码,每人抽一张。

某单元格输入:

=ROUND(RAND()*53,)+1,(EXCEL2003版)

=RANDBETWEEN(1,53),(EXCEL2007版)

每按一次F9键,将随机产生一个1-53的数字。追问我这个需要演示的,所以你这个方法我这还真不能采纳,谢谢!

如何利用excel的VB按钮进行分班抽签

最简单的用法:

1.在控制工作栏中选多按钮放入工作表中,修改其CAPTION属性(文字);

2.在其LINKCELL中输入:如A1(你要要通过按钮改变的单元格)

3退出设计模式,当你选中其中一个时,对应的单元格的内容将变化(true/false)

4:当然你改变其中一个单元格内容时,其它单元格也会变化,按钮也变化:

空值:按钮灰显;

true/非0的数字均认为是选中.

false/0表示为未选中.

5.如果有更进一步的其它需要,还可以对按钮事件进行编程解决更复杂的问题.追问看不明白,有图文的吗?

我想用excel做一个自动抽签程序( 以下是电脑报里面介绍的内容,不知道为什么在我的电脑里操作失败了)

同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:

Dim Flag As Boolean

Sub aaa()

Dim cell As Range

Do Until Flag

Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select

DoEvents

Loop

Flag = False

End Sub

Sub bbb()

Flag = True

End Sub

回到Excel,在C6:G10输入25个签(代码中的粗体字按实际修改),插入两个图形比如方框,一个写”抽签“,一个写”暂停“,右键点第一个框,指定宏,aaa;右键点第2个框,指定宏,bbb

就可以了。

用Excel做一个抽签器,有按钮的那种,可以帮忙写个代码吗?

按图操作就可以做成10选3的随机抽签样版。

excel如何实现随机抽取且不重复

方法一:公式法

1、我们以生成1-10范围内的随机数字为例,讲述方法。

首先,在A2单元格中输入公式:=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$11))=0,ROW($1:$11)),INT(RAND()*(11-ROW(A1))+1))

然后按下Ctrl+Shift+Enter三键结束数组公式。

2、然后,下拉填充公式到A12单元格,也就是填充11个单元格,为什么要填充11个呢,我们明明只要10个数字?这是因为,最后一个数字是不会变化的,所以呢,要生成10个随机数,需要填充11个单元格,同样的生成11个随机数的话,要填充12个单元格,除此之外,公式中的11还要改成12。

3、生成随机数后,每按下一次F9(或者其他单元格进行一次计算),随机数就会刷新一次,重新生成一组随机数,要注意喽!

4、好了,一组不重复的随机数字生成了,现在我们回头看看这个公式是怎么实现的吧。首先看Small函数的第一个参数,也就是数字区域,这里是利用if和Countif函数来实现此单元格上面的单元格区域,是否有当前单元格的数字,如果有,就返回False,而如果没有就返回这个数字,从而生成一组由上面单元格没有的数字和Flase组成的序列,下图是按F9得到的结果:

5、Small函数的第二个参数,也就是从这个序列中取第几个最小值,在得到的数字中,利用随机函数rand和row函数,实现在这有个个数中随机抽取一个数字,从而得到排序中这个数字顺序的一个数字。通过这样一个数组公式,就实现了生成一组不重复的随机数字啦。

方法二:VBA法

1、VBA功能强大,可以利用很多算法实现随机数。这里介绍一种简单的办法。首先在Excel中按下Alt+F11,打开VBE界面,双击要生成随机数的工作表,在右侧空白处需要输入代码。

输入代码如下:

Sub m()

Range("A:A").ClearContents'这里是A列,根据需要修改

For i = 1 To 10'这里是10个数字,根据需要修改

kkk:

Randomize

x = Int(Rnd * 10) + 1

If Application.CountIf(Range("A:A"), x) = 0 Then

Cells(i, 1) = x

Else

GoTo kkk

End If

Next i

End Sub

2、代码原理很简单,就是随机生成数字,如果A列中有了这个数字,就返回再次随机生成,一直到没有这个数字为止;利用循环生成制定数量的数字。

3、按下F5执行代码,就看到在对应的Sheet中的对应列,生成了一组随机的不重复的数字。