正常情况下抽奖效果如下所示,抽了两次,结果都是随机的。(因为是录屏软件1秒抓取2张图片,看起来滚动比较慢,实际滚动速度很快)
![e3b6eb1904b17628e4e27489af26b417.gif](https://i-blog.csdnimg.cn/blog_migrate/3cf02a2d9ac9916faa6c0432ddb5217b.gif)
马上就要抽特等奖了,先点击内定小圈开关,再点开始抽奖,不论什么时候点击结束,中奖的结果都是小编自己,如下所示:
![7e59a71d35bb571c38291aea4160767e.gif](https://i-blog.csdnimg.cn/blog_migrate/ee28d9af4ccd43d81870ce9626221727.gif)
这样轻轻松松自己拿大奖了,这是怎么制作的呢?
第一步:在A:B列准备好抽奖的姓名和抽奖的照片,然后找一张喜庆的背景,插入一个艺术字体,幸运大抽奖,如下所示:
![fb589000fd28623ef094f6db0ec8cbd3.png](https://i-blog.csdnimg.cn/blog_migrate/8de38852e5e9f206db0e0e13e873b1da.jpeg)
第二步:在E1单元格中输入公式:
=INDEX(A:A,D1),同时插入一个文本框,将文本框的填充改成无,点击文本框的边缘位置,然后在公式输入框中输入=E1,这个文本框中便会随着E1的内容变化而变化。
![75f43bbca3c2b7943b7e3dd798633032.png](https://i-blog.csdnimg.cn/blog_migrate/bc8b1c5b8c9b80f78c35209b5a99d29a.jpeg)
第三步,在菜单栏填,公式中插入一个名称管理器,名称为zp,公式为=INDEX(制作!$B:$B,制作!$D$1),绑定了D1单元格对应的B列中的照片。
![d70c4334a660ee48857ac2a2852c310a.png](https://i-blog.csdnimg.cn/blog_migrate/634ffca7127c6c1ec443b1fdcc3b7f04.jpeg)
我们在D1单元格任意先输入一个数字,比如4,然后在页面上插入任意一张图片,将格式调整为圆形,在公式编辑栏输入=zp,绑定照片。
![f9bcf9faad9301283f51af4952505b4c.png](https://i-blog.csdnimg.cn/blog_migrate/bcdc4b4e1da45ccf86a0d338b87b3de9.jpeg)
第四步,我们按ATL+F11,在VBA编辑栏中输入VBA代码
![bc705bdae5b8699a525ceef7f28afcec.png](https://i-blog.csdnimg.cn/blog_migrate/00b1db14fb39a7f8fb349b8b44b8f207.jpeg)
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个过程,分别是开始,结束,以及内定过程
第五步,在表格中插入三个按纽,分别绑定三个过程
![fa6bf1563ca0bbb1ab9bfb52ea306e40.png](https://i-blog.csdnimg.cn/blog_migrate/04636855960d09c488d28e79018d363e.jpeg)
插入一个圆形,右键,指定宏
![6fafb3b338a6b5c9686b8654c66deffe.png](https://i-blog.csdnimg.cn/blog_migrate/34483802a6f142dd016f8898b868496a.jpeg)
![187d10601f29550497b4321e5b40cfc5.png](https://i-blog.csdnimg.cn/blog_migrate/c2bbc3dcf2c7406e2cdb9ae16ca09942.jpeg)
这样就制作完成了,需要抽到作者自己的时候,那只需要只一下内定的小圆圈,然后再点开始,点结束,抽到的100%就是自己了。
好,你学会了么?自己动手做一下吧!
欢迎留言讨论,期待您的点赞和转发分享
--------------
欢迎关注,更多精彩内容持续更新中....