前段時間為了製作單詞表的目錄藉助了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列,自定義單元格格式,自定義輸入";;;",隱藏。
全選表格,將填充色設為墨綠,抽獎單元格文本設為黃色,調整間距
搞定啦~原本打算做跳轉圖片,但是電腦太不給力,就只變化文字吧~
突然發現這個用來做真心話大冒險的懲罰也比較好....
關鍵字: 控件 抽獎 randbetween