用Excel做个抽奖器吧


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


效果图

用Excel做个抽奖器吧

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

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


01 制作原理

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

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


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

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


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


录制宏滚动排序


02 选择奖品

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

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

用Excel做个抽奖器吧

03 录制宏滚动排序

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

用Excel做个抽奖器吧

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


04 制作奖品滚动框

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

用Excel做个抽奖器吧

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


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

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

用Excel做个抽奖器吧

05 美化

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

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

用Excel做个抽奖器吧

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

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


分享到:


相關文章: