正常情况下抽奖效果如下所示，抽了两次，结果都是随机的 。（因为是录屏软件1秒抓取2张图片，看起来滚动比较慢，实际滚动速度很快）
文章插图
文章插图
文章插图
文章插图
马上就要抽特等奖了，先点击内定小圈开关，再点开始抽奖，不论什么时候点击结束，中奖的结果都是小编自己，如下所示：
文章插图
文章插图
文章插图
文章插图
这样轻轻松松自己拿大奖了，这是怎么制作的呢？
第一步：在A:B列准备好抽奖的姓名和抽奖的照片，然后找一张喜庆的背景，插入一个艺术字体，幸运大抽奖，如下所示：
【抽奖软件怎么设置内定 微信小程序抽奖可以内定吗】
文章插图
文章插图
文章插图
文章插图
第二步：在E1单元格中输入公式：
=INDEX(A:A,D1)，同时插入一个文本框，将文本框的填充改成无，点击文本框的边缘位置，然后在公式输入框中输入=E1，这个文本框中便会随着E1的内容变化而变化 。
文章插图
文章插图
文章插图
文章插图
第三步，在菜单栏填，公式中插入一个名称管理器，名称为zp，公式为=INDEX(制作!$B:$B,制作!$D$1)，绑定了D1单元格对应的B列中的照片 。
文章插图
文章插图
文章插图
文章插图
我们在D1单元格任意先输入一个数字，比如4，然后在页面上插入任意一张图片，将格式调整为圆形，在公式编辑栏输入=zp，绑定照片 。
文章插图
文章插图
文章插图
文章插图
第四步，我们按ATL+F11，在VBA编辑栏中输入VBA代码
文章插图
文章插图
文章插图
文章插图
Dim i, j
Sub 开始()
i = 0
Do
Range(“d1”) = Application.RandBetween(2, 9)
DoEvents
Loop Until i = 1
End Sub
Sub 结束()
i = 1
If j = 1 Then ‘如果点了内定
Range(“d1”) = 9 ‘结果就是等于9
j = 2 ‘恢复到普通抽奖
End If
End Sub
Sub 内定()
j = 1 ‘内定参数为1
End Sub
创建了3个过程，分别是开始，结束，以及内定过程
第五步，在表格中插入三个按纽，分别绑定三个过程
文章插图
文章插图
文章插图
文章插图
插入一个圆形，右键，指定宏
文章插图
文章插图
- 眼睛里面长了个白色肉疙瘩是怎么回事 眼睛下面长白色疙瘩粒
- 咳嗽无痰吃什么药 一直咳嗽没有痰不见好怎么办
- 嗓子总痒痒想咳嗽怎么调理 长期咳嗽老不好怎么办
- 你在喝醉之后是怎么醒酒的 过量饮酒的穴位按摩解酒
- 舌苔白厚喉咙有痰怎么办 成人止咳化痰偏方
- 1380元血氧仪|1380元血氧仪成本仅几十块是怎么回事 血氧仪为什么这么贵了
- 金盟918玉米种子怎么样 金盟减肥药
- 黄褐斑怎么祛除最快 年轻女孩胆固醇高
- 过年了准备和家里人怎么吃年夜饭 团圆饭菜谱大全
- 请问女生们身上怎么弄得香香的 让女人皮肤好的方法
特别声明：本站内容均来自网友提供或互联网，仅供参考，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系，我们将在24小时内删除。