用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做個抽獎器吧

搞定啦~原本打算做跳轉圖片,但是電腦太不給力,就只變化文字吧~

突然發現這個用來做真心話大冒險的懲罰也比較好....


分享到:


相關文章: