前段时间为了制作单词表的目录借助了hyperlink函数,没几天就因为工作需要,得深入学习hyperlink函数,学完后突然萌生了做个抽奖链接的想法,说做就做,幸好折腾出来了,这就奉上简易的教程。
效果图
![5b784114bcdc00b74f2c477eb9dfb729.gif](https://i-blog.csdnimg.cn/blog_migrate/d9351a75f62c24b948a6648b7d99bc90.gif)
电脑太卡,这速度有点慢。。。。将就看
为了不为难自己电脑,直接跳转文字吧
01 制作原理
hyperlink函数:=hyperlink(链接位置,显示文本)
hyperlink函数实现点击单元格跳转显示奖品
randbetween函数:=randbetween(最小值,最大值)
randbetween函数实现随机生成区间内的整数
排序实现单元格文本的变化
录制宏滚动排序
02 选择奖品
选十件奖品:口红,拍立得,榨汁机,书,降噪耳机,加湿器,百乐笔,moleskine笔记本,太阳伞,气泡酒
在B列输入以上奖品;A列输入=randbetween(1,10),随机生成一组数
![2b4511c60f3885e5bd3b4ea04cf34c42.gif](https://i-blog.csdnimg.cn/blog_migrate/f4472609e084b1a90527050bd56c7af3.gif)
03 录制宏滚动排序
步骤:开发工具--录制宏--数据--排序--点击宏--编辑--在宏代码首端输入for i =1 to 100,尾端输入next,换行,输入end,回到Excel页面,点击宏,运行即可,按esc键可结束运行。
![a2db9dcfdb939e3f4831ea37f6a49db1.gif](https://i-blog.csdnimg.cn/blog_migrate/b0b78e85aac825436fbc9ebddae3d034.gif)
for i=1 to 100代表此操作执行100次
04 制作奖品滚动框
输入=hyperlink("#B5",B5)
![56dc607424b5ea16584beae46d52b7d2.png](https://i-blog.csdnimg.cn/blog_migrate/189075298fd0a205e44f87db6140f8b8.jpeg)
执行宏排序,可同时更新randbetween函数,即变化B5单元格的内容,G5单元格显示文本同步变化。
到这步就差不多制作结束啦~但是我想有个按钮可以点击开始滚动,那这时就需要加上个表格控件
开发工具--绘制表格控件--指定宏--右键修改控件名称
![ab9ce93a18e02787d358e837e56a979d.gif](https://i-blog.csdnimg.cn/blog_migrate/08ccef17b5fd9135e8db93834f7a98ca.gif)
05 美化
选中AB列,自定义单元格格式,自定义输入";;;",隐藏。
全选表格,将填充色设为墨绿,抽奖单元格文本设为黄色,调整间距
![c04a6b051f0680233326894d7aa400dc.gif](https://i-blog.csdnimg.cn/blog_migrate/4530073dbfeb0b07ecf03e81d960ca7a.gif)
搞定啦~原本打算做跳转图片,但是电脑太不给力,就只变化文字吧~
突然发现这个用来做真心话大冒险的惩罚也比较好....