.
n
你好,我是做Excel函数视频教程的,我有做了一个视频教程,就是讲如何用Excel函数制作抽奖工具的,请用关注我,我的第16课,就是这个视频
下图就是我的作品截图,希望能帮到你
新建一个空白的表格文档,在表格中某一列单元格中录入好我们要抽取的内容,例如姓名,编号等等。
录入完成后,我们在当前表格文档中重新再去选择一个单元格,将其作为最终抽取结果的展示用。
接着我们在该抽奖结果单元格中输入以下公式:“=INDEX(A:A,RANDBETWEEN(2,61))。
在“=INDEX(A:A,RANDBETWEEN(2,61))公式中,A:A表示我们要抽取的内容所在的单元格列范围为A列A列,可以自定义。后面的(2,61)表示抽取内容所在单元格行范围为2行至61行,也可以自定义。
公式输入完成后,在抽取结果单元格就会随机产生一个抽取结果,我们可以为该抽取结果单元格设置一个格式:字体、字号、颜色等等。
设置好之后,想要开始抽奖或者抽签,我们只需要选中抽取结果单元格,然后按住键盘上的“F9”键,按下后在抽取结果单元格中就会在我们选择的抽取内容中随机产生抽取结果,松开“F9”就可以产生一个抽取结果。
抽奖小程序制作最简的方式,就是间接指定一个含有姓名的单元格(其单元格行号随机而已),使用下图函数组。
=INDIRECT(D&RANDBETWEEN(4,23))如果你不清楚,可以看我的视频
i6595174380832031236/#mid=1608943286868995应该说得很清楚。如果看完后,仍然不懂,就直接找我,索要源文件,拿去用就是了,免费哦!希望这个答案能对大家会有所帮助,若你对电子表格的使用点兴趣,请关注的我号:excel实战小课堂,专门讲解电子表格与工程造价实际需要的TIPS。wishyoutocometomychannelandthankyouso~~so~much!
编辑
有时候我们遇到一些重要的场合,有抽奖活动,那么怎么样才可以做出一个有趣的抽奖界面呢?用Excel就可以!今天教大家两种方法轻松制作出抽奖小程序。
第一种方法:
INDEX函数
具体公式:在D2单元格输入【=INDEX($A$2:$A$11,RANDBETWEEN(1,10))】
PS:RANDBETWEEN(1,10)表示抽取的总数
输入完毕,按F9刷新,抽奖功能就完成了,看,一次一个名字哦!
第二种方法:
OFFSET函数
具体公式:在D2单元格输入【=OFFSET($A$1,RANDBETWEEN(1,10),,)】
PS:RANDBETWEEN(1,10)同样表示抽取的总数
输入完毕,按F9刷新,抽奖功能就完成了!也很简单哟!
是不是很简单?是不是很想收藏?学会了这招,以后公司年会的抽奖你承包啦!让领导对你刮目相看!
。
还在用excel制作抽奖你就out了,这里给你介绍一个兼具问卷调查、签到信息统计、抽奖于一体的软件——顷刻应用。
抽奖制作,将签到所得表单或者已有签到信息收集完成的表单关联到抽奖里,简单设置字段以及奖项详情即可。此外,还有一项特色功能,可以自定义预设中奖人的哦,你懂得。
具体制作方法,可以登录东软平台云官网查看相关使用技巧。pages/download/download_form_2/download_form_2
谢邀请,此人对此项目exceI的游戏不太感兴趣,也不会制作,更不会去参与这项抽奖活动。我有这方面的精力还去彩票站研究彩票买彩票呢!
1.首先把抽奖的奖品输入到一列单元格当中,设定一个显示中奖的单元格(可以大一点方便显示),在单元格输入公式【=INDEX(A:A,RANDBETWEEN(4,9))】
2.按住F9键不放就可以实现随机抽奖功能了!我们可以把奖品那一列隐藏起来,这样子抽奖就更有神秘感了!
公式解析:RANDBETWEEN函数是返回一个介于指定数字的随机数,显示一个数字,INDEX是返回给定单元格的值,用INDEX把这个数字代表的值(奖品)显示出来!
详细教程可观看视频:
如何利用Excel制作出抽奖小游戏呢?接下来给大家介绍两种方法。
方法一:使用VLOOKUP和RANDBETWEEN函数
首先介绍下这两个函数:
1.VLOOKUP是一个查找和引用函数,通过搜索表区域首列满足条件元素,在表格或区域中查找某个值。VLOOKUP函数语法是=VLOOKUP(要查找的值、要在其中查找值的区域、区域中包含返回值的列号、精确匹配或近似匹配–指定为0/FALSEor1/TRUE)。2.RANDBETWEEN是一个随机函数,返回位于两个指定数之间的一个随机整数,RANDBETWEEN函数语法是RANDBETWEEN(下限值,上限值)我们打开参与抽奖的人员信息表,并作出中奖样式
其次在中奖人员名单下方输入=VLOOKUP(RANDBETWEEN(1,18),$A$2:$B$59,2,FALSE)
函数解析:
RANDBETWEEN(1,18)表示随机生成1到18中的一个整数。
VLOOKUP(RANDBETWEEN(1,18),$A$2:$B$59,2,FALSE)表示RANDBETWEEN(1,18)随机生成的数字中,在$A$2:$B$59区域内精确查找与之对应的值,2表示查找的值,在数据区域的第二列。
其次根据需求调整单元格中奖人员文字样式
最后按【F9】键不放,就可实现抽奖功能了。
完整动图演示:
方法二:使用index和RANDBETWEEN函数
Index函数介绍:
Index函数用于返回行与列交叉处的单元格引用或单元格的数值;返回的单元格引用可以是一个单元格,也可以是一行或一列。语法:INDEX(对单元格的引用,第几行[第几列],[第几个区域])。首先我们在中奖人员名单下方输入=INDEX(C2:C19,RANDBETWEEN(2,19))
函数解析:
RANDBETWEEN(2,19)表示,随机生成2到19中的一个整数。
=INDEX(C2:C19,RANDBETWEEN(2,19))表示随机生成的整数中,在C2:C19区域中查找该行的数值。
最后按【F9】键不放,就可实现抽奖功能了。
完整演示:
如果我们想实现在抽奖过程中,抽奖名单单元格样式跟着变化,那么,我们可以选中抽奖人员区域,点击【开始】——【样式】组中——【条件格式】——【突出显示单元格规则】——【等于】,在打开的对话框中,点击输入框右侧【图标】按钮,选中中奖人员单元格,在右侧选中指定颜色即可实现。
以上就是Excel中制作抽奖小游戏的方法,您要觉得不错的话,记得点赞支持下哦,欢迎大家留言交流。
点击上方关注,每天学习office知识技巧。
分享一个很好用的抽奖工具以及制作方法!(文末有免费获取方法)
用excel制作抽奖小程序,有几个问题,如果需要很多人一起用时不方便,而且用户的权限也不能控制,别人改了设置也不知道,这样就会导致一些错误的出现。
而今天给大家带来一个好用的工具,云表,这是原金山WPS一支创业团队开发的,设计界面和EXCEL很像,也兼容excel-WPS,所以会excel的用户按说都是会用云表的。
用云表设计抽奖程序很简单,你可以像画表格一样设计软件界面,比如哪里有个图案,哪里有按钮,哪里可以填写文字……。等,你完全可以按照自己的意愿来设计。通过全中文的公司来设置抽奖的规则,也可以设置每个人只能抽奖一次,也可以设置奖品,奖品,奖金数额,总之你想要的功能,都能轻松实现。而且可以设置公司的所有人一些使用,只有系统管理员才可以设置,其他人只有抽奖的权限和查看结果的权限,没有修改的权限,所以就很方便。
电脑上使用,手机上也可以使用,可以一键生成手机APP
适合企业团建活动时使用。很省心也方便。
如果每次活动抽奖形式和规则会有变化,你可以随时更改程序就是了,方便简单。
除了做抽奖程序,还可以做各用管理软件!
不用编程,做OA、进销存、人事管理、行政管理、考勤管理、生产管理。……总之比传统的管理软件都要好用,而且普通人都可以使用,不用会编程的。一行代码都不用写
免费获取
1、麻烦您关注、转发、评论一下,谢谢了,2、你通过今日头和手机APP发送私信:123或者云表,即可收到自动回复的软件下载地址。
全文2886字,阅读需要3分钟!我们随机抽出一位美女,送给有缘读者当“女朋友”,嘿嘿~
话不多说,首先看看视频如何操作的吧
首先,我们有详细的表格数据,从1排列到最后依次排列,最后,在后面附上美照,抽奖是可以呈现出照片。
2.利用Randbetween函数生成随机数,以我们这里5人为例,生成1-5的随机数。
=Randbetween(1,5)
3.生成随机数后,利用Vlookup匹配到中奖者的姓名。
=VLOOKUP(randbetween(1,5),A2:D6,2,0)
4.提取中奖者照片。
公式为:=INDEX($E$2:$E$6,MATCH($J$2,$A$2:$A$6,0))
还需要给提取照片的公式来个定义名称,在【公式】【定义名称】
名称,写上照片,引用位置处,引用上面一长串的公式。
返回到表格,随机复制一张照片,选中照片,在编辑栏输入=照片。
长按F9,松开就能随机抽奖叻。
以上。
小白也可以自己制作的抽奖小程序
我们学习一下,如何制作不重复抽取的抽奖小程序
1、准备可以抽取的姓名
第三列剩余可抽取公式:
=IFERROR(INDEX(A:A,SMALL(IF(COUNTIF($C$2:$C$27,$A$2:$A$27)=0,ROW($2:$27)),ROW(A1))),)
录入注意是事项:数组公式,按下CTRL+SHIFT+ENTER完成录入
公式含义:从全部名单中删除已抽取剩下的可以抽取数据,一般可以直接套用
注意数区域大小,按案例中全部数据27行,具体根据实际修改
2、制作随机抽取
选择区域合并单元格,录入公式:
=INDEX(E:E,RANDBETWEEN(2,LOOKUP(1,0/(E1:E27<&;),ROW(2:27)-1)))
公式简述:RANDBETWEEN(最小值,最大值)然后最新值和最大值的随机数
LOOKUP(1,0/(E1:E27<&;),ROW(2:27)-1))
返回E列最后一个有内容的单元格
3、使用演示
在不配合VBA的情况下,需要复制一下粘贴到已抽取中
4、完美方案,配合VBA
PrivateDeclareSubSleepLibkernel32(ByValdwMillisecondsAsLong)
Excel办公实战-小易
Sub抽奖()
IfActiveSheet.Buttons(Application.Caller).Caption=停止抽奖Then
Cells(Rows.Count,C).End(3).Offset(1,0).Value=Range(G3)
ActiveSheet.Buttons(Application.Caller).Caption=开始抽奖
ElseIfActiveSheet.Buttons(Application.Caller).Caption=开始抽奖Then
ActiveSheet.Buttons(Application.Caller).Caption=停止抽奖
EndIf
Do
Randomize
IfActiveSheet.Buttons(Application.Caller).Caption=开始抽奖ThenExitDo
irow=Int((Columns(E:E).Find(*,,xlValues,,1,2).Row-2+1)*Rnd+2)
Range(G3)=Cells(irow,E).Value
DoEvents
Sleep10
Loop
EndSub
Excel办公实战出品,如果喜欢,欢迎关注、转发
如有任何问题,请评论留言,第一时间答疑
Excel小程序制作主要考察的是对Excel公式的运用熟练程度,这个小程序本身没有什么难度,在理解公式的基础上灵活运用,5分钟就能出一个抽奖小程序。下面我来介绍下两款抽奖小程序的制作流程以及涉及到的公式。
中奖人数唯一
这个场景的小程序操作比较简单,1.输入INDEX(数组,RANDBETWEEN(1,13));2.输入完成后.可用F9刷新中奖名单。
这个小程序中涉及到index函数以及RANDBETWEEN函数,INDEX函数用于返回指定的值,如用于INDEX(A:A,5)代表返回A列中第5个姓名;而RANDBETWEEN函数用于返回一定范围内的数值,例如RANDBETWEEN(1,13),代表此函数会返回1-13的一个数值。
中奖人数多个
这个涉及的函数比较多,难度比单个中奖人数的高,1.在B列输入Rand函数;2.使用下拉箭头填充随机数;3.输入函数INDEX(A:A,MATCH(SMALL(B:B,ROW()),B:B,0));4.使用下拉箭头填充中奖名单;5.F9功能可更新名单。
上述操作步骤中一共涉及到了5个函数:
Rand函数用于返回随机数,Rand()将返回为≥0且<1随机数;
ROW()将返回对应的行号,如在D6输入ROW()则返回行数为6;
SMALL函数用于筛选按从小到大的顺序取第n个值,如SMALL(B:B,6)将返回B列第6小的随机数;
MATCH函数用于返回指定数值在指定数组区域中的位置,如MATCH(数字,B:B,0)将返回随机数在B列的位置;
INDEX函数用于返回指定的值,如INDEX(A:A,6)将返回A列行号为6的名字。
以上就是两款小程序的操作流程以及函数解释,希望对大家有用,下面有文字版供大家观看,小伙伴如有需求,可以截图保存。
谢谢邀请!我是EXCEL学习微课堂,号原创视频作者,分享EXCEL学习的小技巧,小经验。
很多公司每年年终都会搞抽奖活动,随机从员工名单中抽取若干名员工发放年终幸运大奖。如何利用EXCEL制作抽奖小程序抽奖呢?介绍2种EXCEL制作的抽奖小程序,看是不是有您需要的。
第一种:运用公式制作的简单抽奖小程序。如果要求不高,抽的人数也不是很多,可以通过EXCEL公式来制作一个简单的抽奖器。比如我们要从96名员工中抽出3名幸运员工,主要有3个步骤:
1、B2单元格内输入公式=RAND(),并填充到B97单元格
2、设计好中奖人员名单显示区域格式,然后在H9单元格录入公式:
=INDEX($A$2:$A$97,RANK(B2,$B$2:$B$97))
3、通过键盘F9开奖,比如按住您可以按住F9键不放,此时随机数及中奖人会不断变化,倒数几秒,放开F9键随机生成三个中奖人姓名。
第二种:运用VBA制作的多功能抽奖小程序。如果要求高,比如要求自定义设置奖项名称、个数、每次抽取人数;抽奖界面的背景图片、背景音乐、字体样式、字体颜色、中奖名单显示位置等设置;此外还包含抽奖名单去重复、从指定名单中筛除、抽奖结果导出等辅助功能,或者是以身份证号、手机号及照片抽奖等功能。建议用VBA代码写的比较专业的抽奖程序。我原来为朋友公司做年会PPT时,在网上下载过一个VBA代码写的抽奖程序《缙哥哥Excel多功能抽奖器》感觉非常好用。有需要这个抽奖器程序的可以关注“EXCEL学习微课堂”,点赞、评论转发后私信联系我。
EXCEL可以抽奖,通过Randbetween、rand等函数来获取随机结果,也是可以的,但不直观,不明白的也不知道这个结果怎么来的,公不公平。
现在给大家分享一个PPT+EXCEL来实现的抽奖程序。
到年底了,很多公司都在准备年会,但年会抽奖是少不了的,为了使抽奖程序更直观,通过VBA在PPT中调用后台EXCEL中的抽奖人员名实现随机滚动的效果,在滚动过程中按回车实现抽奖结果随机定位,中奖的人员将不再进行后续的抽奖,并将抽奖结果写入EXCEL的中奖人员中。
功能如下:
座位号循环随机滚动
按回车键抽奖一次抽出一名员工,并将中奖的员工信息写入EXCEL中奖人员表中,同时此员工不再参加后续抽奖
可以简单修改后设定一等奖、二等奖、三等奖等奖项
抽奖结果在EXCEL抽奖人员中随机抽取,绝对公平,程序代码不控制抽奖结果,抽奖结果取决于抽奖时按回车时随时循环滚动的名单确定。
抽奖主界面,可以添加图片及动画效果
抽奖界面,可以添加图片及动画效果
抽奖后记录中奖人员名单
抽奖时,通过座位号随机滚动抽奖人员
部分VBA代码
Excel抽奖模板非常有意思,需求不同,解决方法也千变万化。我自己公号中已经写过3款不同的抽奖模板。今天介绍一个符合你问题需求的。
案例1:如何从10个人中一次性抽取3名获奖者,且所有中奖者不重复?
案例2:如何从10个人中依次抽取1、2、3等奖各1名,每次抽取后固定住获奖者,且所有中奖者不重复?
所需函数及功能:
RAND()
RANK(number,ref,[order])
INDEX(array,row_num,[column_num])
IF(logical_test,[value_if_true],[value_if_false])
ConditionalFormatting
为了便于理解,我把每个步骤拆开来讲解。
案例1解决方案:
以下是10个人员的名单,现在需要从中一次性抽3个幸运儿。
1.在B列用Rand函数生成10个随机数
2.在C列用Rank函数对这10个随机数排序
公式:=RANK(B2,B$2:B$11)
翻译:计算B2单元格在B2~B11数组中的排名,默认从大到小排。
3.在D列用Index函数按C列的随机排名抽出中奖者。因为需要一次抽3个人,所以我们拉3行公式即可。
公式:=INDEX(A$2:A$11,C2)
翻译:在A列的指定数组中,读取出第n行单元格
使用方法:
按住Fn+F9,数字开始滚动,抽奖开始
放开按键,即为抽奖结果(因为rand函数基本不可能出现重复值,所以中奖人不会重复)
*请注意:由于随机函数每次都会随机变化,为了固定住获奖人员名单,请复制获胜者名单,并且pastevalue到其他单元格。
案例2解决方案:
增加的需求:
每次抽一个人,抽出后固定中奖者
不得重复中奖
1.给D的公式加个if条件,同时增加辅助列E
公式:=IF(E2=1,D2,INDEX(A$2:A$11,C2))
翻译:如果E2单元格为1,则固定D2单元格的值,否则,继续抽奖
当我们在E2中输入“1”以后,无论何时按下或放开Fn+F9抽奖,D2的“王7”始终是固定的。
现在我们要抽第2个人,但是“王7”不可以重复中奖,怎么做?
在不使用vba的情况下,此处推荐一种最简便的方法。
2.选中D2~D11--&;按Ctrl+Q--&;选择Formatting--&;DuplicateValues
翻译:当“中奖者”区域内有重复人员,则高亮显示
如下,当我们抽第2个人的时候,又抽到了“王7”,会自动高亮显示。那我们就重新抽。
3.现在抽奖器已经做好了,我们把模板调整美观,再写个操作说明。
1)把人员名单及辅助列移到“人员名单”sheet中
2)选中E列,通过FormatCells--&;Custom,把“1”显示为“已中奖”
这就是最终的抽奖模板和使用说明,有时间的话,可以加点图片效果什么的,然后就可以在公司年会耍酷啦!
用Excel制作抽奖小程序,可以利用函数INDEX函数在结合其它函数用公式法实现。
具体制作方法如下:
例一:假设现在我们要抽一等奖1名
步骤1、把需要参与抽奖的人员姓名整理记录在Excel表格中同一列,并设置抽奖结果要放置的单元格位置及格式。表格整理设置后如下:
步骤2、在E6单元格里输入以下公式:=INDEX(A$2:A$13,RANDBETWEEN(1,12));
步骤3、选中A列名字区域,然后点击菜单栏目的【条件格式】—【突出显示单元格规则】—【等于】,
在弹出的【等于】对话框中,设置:=E6单元格,填充颜色可以设置为:浅红填充色深红色文本,如下图:
步骤4、最后按住F9键不停,就可以看到E6单元格的名字开始滚动起来,停下按F9键时,一等奖的幸运儿就产生啦。
公式解析:
公式=INDEX(A$2:A$13,RANDBETWEEN(1,12))有用到两个函数,INDEX函数和RANDBETWEEN函数。
RANDBETWEEN函数:
含义:返回一个介于指定的数字之间的随机数;
语法格式:=RANDBETWEEN(bottom,top);
参数意义:
Bottom参数:将返回的最小整数。
Top参数:将返回的最大整数。
所以RANDBETWEEN(1,12)表示随机抽取产生1~12之间的任意数。
INDEX函数:
含义:返回表或区域中的值或对值的引用;
语法格式:=index(array,row_num,column_num);
参数意义:
Array参数:表示单元格区域或数组常数;
row_num参数:表示要引用的行数;
column_num参数:表示要引用的列数;
(注意:如果省略row_num,则必须有column_num;如果省略column_num,则必须有row_num);
INDEX函数最终结果就是引用出区域内行列交叉处的内容。
比如:公式:=index(A$2:A$13,6),意思就是返回A列第6个姓名。
所以,上述抽奖程序中的公式:=INDEX(A$2:A$13,RANDBETWEEN(1,12)),就是先用RANDBETWEEN函数产生1~12之间的随机数,在用index函数引用出A2:A13区域中,由RANDBETWEEN函数产生的随机数所在的单元格姓名。
例二、假如中奖者有多名,比如:一等奖有2名。
上述INDEX函数+RANDBETWEEN函数的公式法,适合在中奖者只设置1名的情况,当中奖者设有多名时,上述的公式在抽取多名中奖人员时,会抽到重复的人员。为了避免抽到重复人员,我们可以用以下方法:
步骤1、插入辅助列B列,在B2单元格输入以下公式:=RAND(),公式向下填充;
步骤2、在E2单元格里输入以下公式:=INDEX(A$2:A$13,RANK(B2,B$2:B$13)),公式在向下填充;
步骤3、选中A列名字区域,然后点击菜单栏目的【条件格式】—【突出显示单元格规则】—【新建规则】,如下图所示:
在弹出的【新建规则】对话框中,选择“使用公式确定要格式化的单元格”,输入公式:
=NOT(ISNA(VLOOKUP(A2,$E$6:$E$7,1,0))),然后点击【格式】,设置填充颜色,即可,如下图:
步骤4、最后按住F9键不停,就可以看到E6单元格的名字开始滚动起来,停下按F9键时,一等奖的幸运儿就产生啦。
公式解析:
RAND函数
含义:返回0~1之间的小数,包含0,但不包含1;
语法格式:=RAND(),它是无参数;
RANK函数
含义:排名函数,常用来是求某一个数值在某一区域内的排名;
语法格式:=rank(number,ref,[order])
参数意义:
number参数:为需要求排名的那个数值或者单元格名称(单元格内必须为数字);
ref参数:为排名的参照数值区域;
order参数:为0和1,默认不用输入,得到的就是从大到小的排名,若是想求倒数第几,order的值请使用1。
所以,上述公式:=INDEX(A$2:A$13,RANK(B2,B$2:B$13))中,RANK(B2,B$2:B$13),是对B2:B13单元格产生的随机数字排序,生成了随机的1-12的数字。RANK函数产生的排序结果将用于INDEX函数的参数。
INDEX函数返回表格(B2:B13)中的元素值,此元素由行号的索引值(也就是RANK函数的运算结果)给定。
因为B列的数字是完全随机的,所以任何数字出现在前2行的概率都相同。
当然,最后你可以把表格美化一下,让整个抽奖器看过去更美观一点。
用EXCEL制作抽奖小程序,用RAND函数即可实现,可实现以下功能:
1、不重复中奖。
2、自动记录中奖者。
操作流程如下:
1、准备数据
排序公式=COUNTIFS($B$2:$B$25,&;=&B24)
序号公式=IF(D25=√,,RAND())
中奖公式=IFERROR(VLOOKUP(C2,奖项汇总!$A:$B,2,0),)
抽奖后,点击控件,记录中奖者。
2、最终效果
按F9键抽奖,实现中奖者不在参与抽奖,并记录中奖者名单。
记录控件代码:
Sub按钮1_Click()
Dimrng
DimB
Setrng=Sheets(奖项汇总).Range(A65536).End(xlUp)
B=rng.Row+1
Sheets(奖项汇总).Cells(B,1)=Sheets(抽奖).Range(H5)
Sheets(抽奖).Range(A1).Select
EndSub
希望以上回答剋帮到您,谢谢!记得关注我哦,更多干货小技巧分享!