抽奖随机滚动_用Excel做个抽奖器吧

前段时间为了制作单词表的目录借助了hyperlink函数，没几天就因为工作需要，得深入学习hyperlink函数，学完后突然萌生了做个抽奖链接的想法，说做就做，幸好折腾出来了，这就奉上简易的教程。

效果图

电脑太卡，这速度有点慢。。。。将就看

为了不为难自己电脑，直接跳转文字吧

01 制作原理

hyperlink函数：=hyperlink(链接位置,显示文本)

hyperlink函数实现点击单元格跳转显示奖品

randbetween函数：=randbetween(最小值,最大值)

randbetween函数实现随机生成区间内的整数

排序实现单元格文本的变化

录制宏滚动排序

02 选择奖品

选十件奖品：口红，拍立得，榨汁机，书，降噪耳机，加湿器，百乐笔，moleskine笔记本，太阳伞，气泡酒

在B列输入以上奖品；A列输入=randbetween(1,10),随机生成一组数

03 录制宏滚动排序

步骤：开发工具--录制宏--数据--排序--点击宏--编辑--在宏代码首端输入for i =1 to 100,尾端输入next,换行，输入end，回到Excel页面，点击宏，运行即可，按esc键可结束运行。

for i=1 to 100代表此操作执行100次

04 制作奖品滚动框

输入=hyperlink("#B5",B5)

执行宏排序，可同时更新randbetween函数，即变化B5单元格的内容，G5单元格显示文本同步变化。

到这步就差不多制作结束啦~但是我想有个按钮可以点击开始滚动，那这时就需要加上个表格控件

开发工具--绘制表格控件--指定宏--右键修改控件名称

05 美化

选中AB列，自定义单元格格式，自定义输入";;;"，隐藏。

全选表格，将填充色设为墨绿，抽奖单元格文本设为黄色，调整间距

搞定啦~原本打算做跳转图片，但是电脑太不给力，就只变化文字吧~

突然发现这个用来做真心话大冒险的惩罚也比较好....