用Excel做个抽奖链接吧

今日安利：女孩子们的新歌Uh-Oh超好听~

前段时间为了制作单词表的目录借助了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单元格显示文本同步变化。

到这步就差不多制作结束啦~但是我想有个按钮可以点击开始滚动，那这时就需要加上个表格控件
开发工具--绘制表格控件--指定宏--右键修改控件名称

04
美化
选中AB列，自定义单元格格式，自定义输入";;;"，隐藏。
全选表格，将填充色设为墨绿，抽奖单元格文本设为黄色，调整间距
搞定啦~原本打算做跳转图片，但是电脑太不给力，就只变化文字吧~
突然发现这个用来做真心话大冒险的惩罚也比较好....

公众号回复【抽奖】，可获取文件~