抖音怎么设置抽奖

抖音设置抽奖的步骤如下：

1、打开抖音主页，点击右上角”三横“图标。

2、点击”钱包“选项。

3、点击每日福利下面”活动入口“。

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

hi现场滚动抽奖怎么设置

亲，您好，很高兴回答您的问题嗨现场活动抽奖怎么设置不允许重复中奖，帮您查询到以下答案：（一）进入互动功能设置，选择“抽奖”进行相关设置（二）进入到“抽奖”设置页面，点击屏幕右上角“新建抽奖”（三）选择抽奖方式，扫码抽奖或名单抽奖1. 扫码抽奖 设置设置方法，选择扫码抽奖方式，输入奖项设置（奖项名称、奖品名称、奖品数量等），抽奖环节默认不可以重复中奖，这里可以设置是否允许重复中奖。

---