当然是抽奖啦!而在抽奖环节,除了让人期待的奖品,创意年会抽奖方式也能锦上添花,让年会氛围更加火爆。那么,有哪些充满新意的年会抽奖方式呢?微媒数字会议为大家整理了年会抽奖方案大合集,包括6大种类抽奖方式,线上线下年会都可以直接使用。
(一)盲盒抽奖:近几年盲盒抽奖的玩法十分火爆,年会上也不妨采用这种方式,将各类福利和奖品放在盲盒里让大家抽取,还可以设置“隐藏款”超级大奖,调动现场的热情。年会盲盒抽奖小程序-大屏互动/线上H5:大屏互动盲盒将线下抽盲盒的场景搬到了屏幕上,主办方提前设置好奖品和中奖率,员工扫码后点击想要的盲盒就可以拆开啦。与实体盲盒相比,线上的优势在于不限人数、不限地点,天南海北的参会者都可以一同抽奖,大屏还实时显示中奖结果,大奖的出现也更有悬念。盲盒抽奖-实体物料:以线下为主的年会中,盲盒抽奖也是容易准备且快速燃起气氛的玩法。将盲盒放在舞台或签到处,让大家挑选,包装漂亮的盲盒甚至可以作为年会美陈的一部分,场面更大,参与感更强。当然,也需要足够的场地面积。
(二)幸运转盘:幸运转盘可谓是抽奖的经典玩法,不同价值的奖品和概率一目了然,摆在商场里总是会排起长队。这种老少咸宜的形式可以直接搬到年会中来。幸运转盘-大屏互动/线上H5:观众扫码即可参与转盘抽奖,主办方点击开始后,转盘就会加速转动,参会者可清晰看到自己的头像在上面切换,增加抽奖的刺激感。点击停止后,就会d出各类奖项的获奖名单,参会者也可以在手机上查看自己的获奖情况。幸运转盘-实体物料:参会者亲手转动转盘,转盘停下来后,指针指向哪个奖项,就获得对应奖品。一等奖还是阳光普照奖?就看手气啦。当然,实体大转盘抽奖耗时比较长,适合参与人数较少的环节。
(三)随机抽奖:顾名思义,随机抽奖的本质就是根据参会者的属性,例如座位号、工号、签到序号、头像等,再随机抽取几组。随机抽奖-大屏互动/线上H5:参会者扫码签到后即可进入抽奖池,主办方点击开始后,参与者的头像在大屏幕上滚动,主办方点击停止后,跳出预定数量的中奖用户。参与也十分方便,微信、钉钉、支付宝等渠道均可参与,还可以设置多轮抽奖,一个环节搞定全场的抽奖氛围。随机抽奖-实体物料:主办方可以制作精致的实体抽奖券,并准备两组一模一样的编号,一组印刷在抽奖券上发给用户,作为领奖凭证,另一组则放入奖池。抽奖开始后,主持人随机从奖池中抽取编号,持有该编号的人中奖。(
四)现金红包抽奖方式:在众多抽奖环节中,现金红包抽奖可谓简单粗暴又广受欢迎。如果你还觉得现场不够热闹,那就安排一场红包雨吧。现金红包抽奖-大屏互动/线上H5:在年会主舞台的大屏幕上,设置多轮红包雨,环节开始后,大屏幕上和参会者的手机端都会像下雨一样降下红包,获奖金额不仅看运气,也看手速。在奖项设置上,可以设置超级大奖,也可以让大家雨露均沾。毕竟红包不在多少,而在于讨到新一年的好彩头,堪称人气飙升的秘籍。抓钱-实体物料:实体版的红包抽奖除了真的给每个人发一个红包外,还可以有更吸引眼球的方式——抓钱。抽奖游戏规则:参与者蒙眼站在机器内,底部的风吹起大量现金,参与者要做的事就是在规定时间内抓到更多的钱。场面很有冲击力,能瞬间调动起现场氛围。毕竟对于打工人来说,谁不想这么投入地“搞钱”呢。不过,抓钱的设备一次通常只支持一个人参与,主办方可以应用在参与人数较少的环节当中,例如年度优秀员工颁奖等。
(五)游戏互动抽奖:游戏与抽奖的组合可以将趣味再提升一个台阶。与其他抽奖类型相比,游戏互动抽奖可谓凭实力拿奖,而对主办方而言,可选择的游戏类型非常丰富,更容易发挥创意。竞技类游戏:微媒开发了超多样的小游戏,包括各种摇一摇游戏、竞速类游戏、投掷类游戏、答题闯关、寻找月饼等等,一分钟就能玩一局,适合抽奖环节。主办方选择游戏并提前配置好奖品,在大屏上投屏展示,参会者扫码参与游戏,分数越高的就能获得价值越多的奖品,当然,主办方也可以开启随机发奖。互动游戏抽奖的形式可以设置多轮,每一轮都能选择不同的小游戏,每一轮都能有新鲜的体验。d幕/口令类互动:在年会的候场预热等环节,可以配合d幕/口令类的互动抽奖,既能完成抽奖,又能引导参会者积极留言。d幕抽奖需要开启d幕墙功能,参会者扫码参与d幕上墙,即可获得抽奖资格;而口令抽奖则需要参会者输入指定口令才可以参与。二者均可用来提升现场氛围、提升互动率。许愿墙抽奖:新年许愿是一个必不可少的环节,参会者扫码许愿上墙,立下新一年的Flag,十分能提振士气,同时,主办方还能点击骰子随机选取心愿,从而确定中奖用户。这种抽奖方式有更强的仪式感。实体物料抽奖:在现场设置一些时宜的互动游戏,并与抽奖相结合,不仅活跃气氛,更能烘托出新年的氛围。例如:射箭、投壶、跳房子等,并划分不同分数档位,按照档位发放奖品,鼓励更多人来挑战。
(六)其他抽奖方式:积分抽奖:积分抽奖可以与游戏互动、签到等方式结合起来,变成更有趣的抽奖方式。例如,在游戏抽奖中,主办方可以按照玩家的游戏排名发放积分,积分用于兑换额外的游戏次数或者抽奖次数;还可以设置参会者在打卡后获取积分,用积分兑换奖品或抽奖资格,提升整场年会的参与度。签到抽奖:除了上述方案,主办方还可以选择更简单的方式:签到抽奖。微媒的大屏互动抽奖、H5抽奖等均支持开启签到限制,只要完成签到,就可以参与抽奖。签到抽奖;除了上述方案,主办方还可以选择更简单的方式:签到抽奖。微媒的大屏互动抽奖、H5抽奖等均支持开启签到限制,只要完成签到,就可以参与抽奖。
有1、大转盘大转盘抽奖活动是常用的抽奖类小程序之一,几乎每个企业都有过大转盘抽奖活动。这类型的小游戏胜在它 *** 作简单,点击中间的抽奖按钮就可以进行随机抽奖。而且转盘上还能写上能获得的奖品名字,直观清晰。参与者能看见自己获奖的概率和过程,可信度比较高。2、游戏积分抽奖这是需要游戏小程序先参与一个小游戏,获得一定积分,获得闯过一定关卡之后才能获取抽奖机会的抽奖小程序。相比直接白捡的抽奖次数来说,自己“挣”来的机会,会让参与者更加珍惜,在之后的抽奖和获奖的过程中,带来的刺激和兴奋感也会更高。3、大屏现场抽奖大屏抽奖小程序 也是运用比较广泛的一种,现场客户先根据微信扫一扫报名大屏抽奖活动,进行在线抽奖,后边依据扫二维码现场参与用户的头像图片,开展头像图片滚动进行在线抽奖。
”如果要设置抽奖类型,比如一等奖,二等奖,三等奖,该怎么办?“"每个抽奖类型,要设置中奖个数,应该怎么办?”
“为了增加趣味性,能实时显示各部门的中奖情况吗?”
“能实时显示,每个奖项还剩多少奖吗?”
“如果某个奖项抽完了,能提醒抽下一个奖项吗?”
“能避免多抽吗?比如奖项只有3个,却不小心抽了四个奖”
这些都能实现的。 老规矩,先看动态效果图。动态图,包含的内容较多,请花几十秒耐心看完。
下面介绍一下制作过程,由于涉及到一部分VBA/宏的内容,如果你不熟悉VBA/宏的话,可以直接Copy使用。或者使用前面三种抽奖程序,可以翻阅前三篇文章。
如果急用的话, 可以加关注,点赞,在评论区备注“我要抽奖程序”,我会私信发给大家。
步骤1. 准备数据
准备员工数据。并将数据复制到工作表"抽奖“。
员工数据表
准备”中奖记录“工作表。格式如下。
中奖记录
步骤2. 设置抽奖界面, 部门中奖实时统计,奖项实时统计的格式。
抽奖界面
步骤3. 公式设置。
抽奖类型设置。H1. 使用数据验证,设置抽奖种类。
设置随机中奖行数。在F5输入=RANDBETWEEN(2,22)。 RandBetween是返回两个数之间的随机数字。如果公司有1000人,就改为=RANDBETWEEN(2,1000). 此步是随机决定中奖员工所在的行数。
中奖信息设置。
G5输入公式=INDEX(A:D,F5,1)
H5输入=INDEX(A:D,F5,2)
I5输入=INDEX(A:D,F5,3)
Index查询函数的格式为: Index(数据区域,行数,列数).具体适合用方法,可以参看前一篇文章。
设置中奖人的照片。不熟悉名称管理器的,可以参看前一篇文章。
通过公式/名称管理器创建名称 zp。引用位置=INDEX(抽奖!$A:$D,抽奖!$F$5,4)。
在K5插入一张任意照片,并调整大小。
点击K5的照片, 然后在公式编辑栏输入=zp 。
部门中奖实时统计公式设置。这一步是统计各部门已经中奖人的信息。此处要用到countifs函数。Countifs的格式为countiffs(条件1所有区域, 条件1, 条件2所在区域, 条件2)
在H9输入=COUNTIFS(中奖记录!$A:$A,$G9,中奖记录!$D:$D,抽奖!H$8)
然后复制公式到H9:K12.
奖项实时统计设置. 这一步是统计各部门每类奖项的中奖数,每类奖项的剩余奖项数。
奖项个数。这是人工设置的每类奖项的个数,可以根据实际情况修改。
已中奖个数公式. 在N9输入=COUNTIF(中奖记录!D:D,抽奖!L9) . 并复制公式到N9:N11.
剩余奖项个数。在O9输入=M9-N9 . 并复制公式到O9:O11.
部门
奖项个数
已中奖个数
剩余奖项个数
一等奖
2
0
2
二等奖
5
0
5
三等奖
10
0
10
步骤4. 创建按钮和子程序。
创建两个按钮,开始抽奖和初始化。
创建两个子程序,
chushihua() 。并指定宏给按钮”初始化“
choujiang() 。并指定宏给按钮”开始抽奖“
步骤5. 子程序chushihua()代码
Sub chushihua()
Sheets("抽奖").[H1] = "" '奖项初始化
Sheets("抽奖").[F5] = 1 '随机数初始化
Sheets("中奖记录").[a2:d100000].ClearContents '中奖记录初始化
End Sub
步骤6. 子程序choujiang()代码
Sub choujiang()
Sheets("抽奖").Select
'中奖奖项设置为空
Range("J5") = ""
'判断是否选择了抽奖类型,如果没选,提示选择抽奖类型。
If Range("H1") = "" Then
MsgBox "请选择抽奖奖项", vbInformation
End If
'判断剩余奖项数.如果剩余奖项数为0, 就提示需要重新选择下一个奖项
If Range("H1") <>"" Then
shengyi = WorksheetFunction.VLookup(Range("H1"), Range("L:O"), 4, 0)
If shengyi = 0 Then
MsgBox "奖项已抽完,请选择下一个奖项", vbInformation
End If
Endif
'如果已选择了抽奖种类,并且剩余抽奖数也大于0, 就执行主体抽奖程序。
If Range("H1") <>"" And shengyi >0 Then
Sheets("抽奖").Select
Range("J5") = "" '奖中奖奖项设置为空
'设置随机中奖行数
Range("F5") = WorksheetFunction.RandBetween(2, 22)
Range("J5") = Range("H1") '填入中奖奖项
Range("G5:J5").Copy
Sheets("中奖记录").Select
'找到中奖记录最后一行的行数
hangshu = [a1].CurrentRegion.Rows.Count
'将中奖信息复制到“中奖记录”的最后一行
Cells(hangshu + 1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Sheets("抽奖").Select
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)