4个奖项怎么设抽奖模式

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

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

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

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

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

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

大家都玩过微信平台里面的砸金蛋或者大转盘等这类的抽奖活动吧?其实对于这种微信互动营销活动企业或者商家还是比较喜欢的,而且做一个抽奖活动,不仅需要贴近用户,赢得曝光,在许多细节上同样需要注意,比如奖品的选择、中奖几率、活动形式等等。

设置好不同的奖品后,还需要设置中奖几率,不仅要注意所有总中奖概率之外,在设置单个奖项的也需要略有区别,比如参与奖肯定中奖几率要高,这样让参与者更觉得有动力,这样的互动营销还是非常适合涨粉拉新的,并且还能取得很好的传播速度与宣传效果。今天我们具体说下设置抽奖活动的概率怎么设置,单独设置每个奖品概率的微信抽奖活动怎么做的

第一步,微信抽奖活动制作并没有大家想象当中那么困难,因为现在的游戏h5模板特别多,可以满足很多商家的不同需求。我们需要先在举客宝平台或者举客宝公众号上注册一个账号,如果有账号的话,那么就直接登录进入后台就可以了。

第二步,进入到后台后,我们可以找到并点击【我要创建活动】板块,然后进入到【抽奖】的界面查找相关模板,然后就可以看到很多相关的抽奖类营销活动的模板,选择自己喜欢的那个模板进行编辑就好了,

第三步:挑选好自己中意的微信抽奖动模板后,我们就可以针对模板进行修改完善了,编辑活动名称、活动图片、活动说明、活动时间、中奖提示、分享增加次数、抽奖次数、中奖次数等

第四步:也就是设置微信抽奖活动奖品概率的地方,中奖概率填写数字即可所有奖项概率之和为100,单个奖项即为百分之多少,比如50%,20%, 10%,8%, 7%, 5%,也就是整个中奖概率加起来等于百分百,如果不想某个奖品被抽中,可以直接设置为0

第五步:根据自己的需求修改好活动模板后,就可以扫描左上角的【二维码】查看活动的页面了。如果没什么问题的话,通过复制活动链接,进入活动,为了方便粉丝参加抽奖活动,可以把链接绑定在公众号菜单,粉丝直接点击菜单参与抽奖,商家可以在后台查看粉丝中奖情况,还可以进行奖品核销。

以上就是整个微信抽奖活动怎么做的方法,抽奖活动依然是常规的活动手段,不论是借助抽奖工具做一次性的活动,还是自己开发功能附在产品中,都对活跃指标有一定的拉升。最后还有一点需要注意,活动不是为了抽奖而抽奖需要在活动中将产品的信息带入到内容里,当然植入的方式尽量柔和。我们转换一种思维方式来创建和丰富抽奖活动的模式,这样就从一个老的抽奖模式,转换到新的模式中。如果你也想用这种活动吸引用户参与,可以试试制作哦~

1、打开一个浏览器，在百度中输入“淘宝网”，单击“百度一下”

2、单击“淘宝网”官网

3、打开淘宝网后，点击“千牛卖家中心”

4、此时打开千牛卖家工作台，点击“我订购的应用”——“管理我的订购”

5、在打开的服务市场中输入“幸运大抽奖”，点击“搜索”

6、点击“幸运大抽奖”

7、选择购买的时间，点击“立即购买”

8、勾选我同意，点击“同意并付款”

9、提示订购成功，说明购买成功

10、返回之前的卖家工作台，点击“我订购的应用”——“幸运大抽奖”

11、在打开的界面中，点击左侧的“基本设置”选项，然后选择手机端和电脑端的样式

12、在活动公告的地方输入文字，点击“保存”

13、点击“奖项和概率设置”，然后在右侧设置中奖概率，点击“保存”

14、点击左侧的“抽奖条件设置”，在右侧设置奖励次数，点击“保存”按钮，此时设置完毕

---