有创意的抽奖方式

相比传统的抽奖箱抽奖，现在有更多的抽奖软件可以用。抽奖可以分为福利发放式的运气性发奖和炒热气氛式的竞技性发奖。经过细致的调研选择，下面为您介绍截至目前最好用最有创意的抽奖软件！

无需下载软件，网站注册填写奖品信息即可使用。不但发奖核销方便，也可以带动现场气氛，更好的提高活动的趣味性和质感。实测专业稳定，而且免费开放，同时满足各种自定义需求，千人千面有特色，兼具气氛品质效果！

1：3D抽奖

作为历来年会的压轴抽奖环节，很多公司都会选择微媒网络-大屏互动团队开发的“3D酷炫抽奖”形式。大屏上3D效果滚动所有伙伴的头像，在全场高度关注下，寻觅现场锦鲤，送福利同时轻松吸引全场目光，现场氛围嗨翻天。

2：红包雨

活动现场怎么能没有红包的身影呢，通过红包雨互动，大屏幕和嘉宾手机屏幕同步掉落红包，参会者只需要点击手机，就可以领取各种红包礼品。实物奖品现场凭借兑换码兑换，现金可直接进入微信或者钉钉钱包，真的很方便！

3：摇一摇互动

摇一摇互动在微媒率先开发出来之后迅速风靡全国各大活动现场，当全场用户在同一刻同时疯狂摇动手机，氛围瞬间点燃。 支持多种活动形式：拔河、赛车，赛龙舟，游艇赛等。元素均支持自定义，无穷变换惊喜和嗨翻天现场气氛，是活动必备环节。

4：答题闯关

答题闯关很适合穿插在会议中间环节，可以利用答题闯关进行现场知识和技能的PK；灵活的题库配置，紧张刺激的现场答题新方式，题目答案的自定义设置，让活动变得更有创意，更能达到寓教于乐的效果～

5：幸运大转盘

参会者点击手机端中心按钮，大转盘就会加速转动。大屏端同步的转盘抽奖效果，实现台上大屏端和台下手机端的完美串联，游戏过程更透明、更刺激，营造现场的火热感。同时可以作为线下吸引人群参加活动的利器：通过大转盘抽奖，吸引人群关注活动。同时支持签到送好礼，趣味送福利。

6：全民战疫

2020年全民对抗疫情，极大提高了民族凝聚力，众志成城，攻坚克难。结合了疫情期消灭病毒的想法，玩法和水果忍者相似。企业可以通过这个互动，提升企业内部凝聚力，普及对健康习惯的认知。

7：描福

“笔酣墨饱谢吉祥，行云流水过福年”，描福互动可以让大家在活动中，书写心中起祈愿。同时还可以自定义描福对象，可以是福字或品牌logo，主办方可以设置多轮描福。通过累计的描福分数做奖品激励。

如上所有的互动，1000人以内免费即可使用！同时搭配奖品核销系统和直播系统，连接线上线下构成活动整体解决方案，并由支持过阿里双十一和各种大型会议的微媒网络大屏互动团队研发并在线提供会务经验及技术支持，更在年会季期间为您提供完备的年会/晚宴活动策划解决方案（邀请函、签到、d幕、抽奖、红包雨、照片墙、投票评分、流程控台、年会直播/云年会等），能很好的帮您解决您遇到的问题。

相比传统的抽奖箱抽奖，现在有更多的抽奖软件可以用。抽奖可以分为福利发放式的运气性发奖和炒热气氛式的竞技性发奖。经过细致的调研选择，下面为您介绍截至目前最好用最有创意的抽奖软件！

无需下载软件，网站注册填写奖品信息即可使用。不但发奖核销方便，也可以带动现场气氛，更好的提高活动的趣味性和质感。实测专业稳定，而且免费开放，同时满足各种自定义需求，千人千面有特色，兼具气氛品质效果！

1：3D抽奖

作为历来年会的压轴抽奖环节，很多公司都会选择微媒网络大屏互动团队开发的“3D酷炫抽奖”形式。大屏上3D效果滚动所有伙伴的头像，在全场高度关注下，寻觅现场锦鲤，送福利同时轻松吸引全场目光，现场氛围嗨翻天。

2：红包雨

活动现场怎么能没有红包的身影呢，通过红包雨互动，大屏幕和嘉宾手机屏幕同步掉落红包，参会者只需要点击手机，就可以领取各种红包礼品。实物奖品现场凭借兑换码兑换，现金可直接进入微信或者钉钉钱包，真的很方便！

3：摇一摇互动

摇一摇互动在微媒率先开发出来之后迅速风靡全国各大活动现场，当全场用户在同一刻同时疯狂摇动手机，氛围瞬间点燃。 支持多种活动形式：拔河、赛车，赛龙舟，游艇赛等。元素均支持自定义，无穷变换惊喜和嗨翻天现场气氛，是活动必备环节。

4：答题闯关

答题闯关很适合穿插在会议中间环节，可以利用答题闯关进行现场知识和技能的PK；灵活的题库配置，紧张刺激的现场答题新方式，题目答案的自定义设置，让活动变得更有创意，更能达到寓教于乐的效果～

5：幸运大转盘

参会者点击手机端中心按钮，大转盘就会加速转动。大屏端同步的转盘抽奖效果，实现台上大屏端和台下手机端的完美串联，游戏过程更透明、更刺激，营造现场的火热感。同时可以作为线下吸引人群参加活动的利器：通过大转盘抽奖，吸引人群关注活动。同时支持签到送好礼，趣味送福利。

6：全民战疫

2020年全民对抗疫情，极大提高了民族凝聚力，众志成城，攻坚克难。结合了疫情期消灭病毒的想法，玩法和水果忍者相似。企业可以通过这个互动，提升企业内部凝聚力，普及对健康习惯的认知。

7：描福

“笔酣墨饱谢吉祥，行云流水过福年”，描福互动可以让大家在活动中，书写心中起祈愿。同时还可以自定义描福对象，可以是福字或品牌logo，主办方可以设置多轮描福。通过累计的描福分数做奖品激励。

如上所有的互动，1000人以内免费即可使用！同时搭配奖品核销系统和直播系统，连接线上线下构成活动整体解决方案，并由支持过阿里双十一和各种大型会议的微媒网络大屏互动团队研发并在线提供会务经验及技术支持，更在年会季期间为您提供完备的年会/晚宴活动策划解决方案（邀请函、签到、d幕、抽奖、红包雨、照片墙、投票评分、流程控台、年会直播/云年会等），能很好的帮您解决您遇到的问题。

”如果要设置抽奖类型，比如一等奖，二等奖，三等奖，该怎么办？“

"每个抽奖类型，要设置中奖个数，应该怎么办？”

“为了增加趣味性，能实时显示各部门的中奖情况吗？”

“能实时显示，每个奖项还剩多少奖吗？”

“如果某个奖项抽完了，能提醒抽下一个奖项吗？”

“能避免多抽吗？比如奖项只有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

---