楠木軒

如何利用Excel製作抽獎小程序?

由 習國防 發佈於 經典

      今天和大家聊一個有趣的課題,利用Excel實現抽獎功能。本文的知識點涉及RANDBETWEEN函數和VLOOKUP函數、Excel表格的美化以及簡單的宏錄製和使用,實現抽獎功能不是目的,目的是通過有趣的小案例讓大家加深對相應知識點的理解,舉一反三,用到自己相應的工作環境中。

成果展示

        首先來看成果,點擊“點擊抽獎”,即可實現抽獎功能,如下圖。

準備工作

        準備一份抽獎名單,如下圖。

RANDBETWEEN函數及VLOOKUP函數

        本文中實現抽獎共能的就是利用隨機數函數RANDBETWEEN函數產生一個隨機數,然後在利用產生的隨機數查找對應的中獎者的姓名。

RANDBETWEEN函數的語法規則:

=RANDBETWEEN(bottom,top)

=RANDBETWEEN(最小整數,最大整數)

對應圖1中的序號,讓RANDBETWEEN函數從序號1001至1010中產生一個隨機的整數,在單元格中輸入:

=RANDBETWEEN(1001,1010) 

或者

=RANDBETWEEN(A2,A11)

這兩個公式差別是一個使用使用具體數值,另一個引用的單元格。

按鍵盤上的F9鍵,發現這個數會發生變化,如下圖。

然後在下方單元格中使用VLOOKUP函數查找隨機數對應的值。如果對於VLOOKUP函數不熟悉的同學可以參考這篇文章《Excel中的查找利器,Vlookup函數還是Index搭配Match函數?》

=VLOOKUP(E4,$A$2:$B$11,2,0)

如下圖。

然後再按鍵盤上F9鍵,發現隨機數和中獎者都發生的隨機的變化,至此,抽獎的核心功能就實現了,原理就是用RANDBETWEEN函數產生一個隨機數,然後用VLOOKUP函數查找隨機數對應的姓名。

點擊Excel窗口左下角加號新建一個工作表,作為展示頁面,如下圖。

然後在新建的工作表中單元格中輸入相應內容,例如我這裏在單元格B3輸入的是“恭喜”、單元格B7“您中獎了!”如下圖。

然後再單元格B5中輸入公式:

=VLOOKUP(RANDBETWEEN(1001,1010),Sheet1!$A$2:$B$11,2,0)

這個公式就是VLOOKUP函數嵌套了RANDBETWEEN函數,步驟參考下圖。

表格的美化

通過兩個函數的的使用,實現了抽獎的基本功能,但是如果拿出去用的話還是略顯不好看,所以我們需要對錶格進行美化,使之更像一個抽獎的程序。

首先選擇頁面佈局,點擊背景,選擇從文件,插入一張從網上下載的圖片,如下圖。

我們發現圖片是平鋪了整個工作表。

使用快捷鍵CTRL+A全選整個單元格,右鍵點擊單元格格式,選擇填充,在圖案樣式中選擇純白圖案填充。如下圖。

再選擇需要展示的區域,右鍵單擊選擇單元格格式,選擇填充,點擊無顏色,然後點擊確定,我們發現選擇的區域就出現了填充的背景,將文字顏色改為白色,通過調整行高和列寬,將文字顯示在圖片中間,調整文字大小,這樣就完成了美化。如下圖。

最後調整完的結果如下圖。

按鍵盤上F9,中獎者姓名也發生了改變。

宏的錄製和使用

如果每次都需要按鍵盤上F9來抽獎顯得有點麻煩,因此我們通過Excel中的功能將按鍵盤上F9刷新改為一個按鈕。

在菜單欄選擇開發工具,點擊錄製宏,記住宏名稱或自己設定,點擊確定,然後按鍵盤上F9,發現中獎人員發生變化後點擊停止錄製,這樣就完成了宏的錄製。

在菜單欄點擊插入,選擇形狀,選擇圓角矩形,在頁面下方畫出圓角矩形並更改其格式,是圓角矩形與頁面協調一些。

右鍵單擊圓角矩形,選擇編輯文字,在圓角矩形中輸入點擊抽獎並調整字體大小和格式。

右鍵單擊圓角矩形,點擊指定宏,選擇前面錄製的宏,點擊確定,這樣就將圓角矩形和之前錄製的宏關聯起來了。

點擊圓角矩形,即可發現中獎者姓名發生了改變。

步驟如下圖。

由於表格中啓用了宏功能,所以在保存表格時需要選擇啓用宏的工作薄。

至此,一個使用Excel製作的抽獎小程序就製作完成了。最後還是那句話,實現功能不是目的,目的是通過有趣的小案例讓大家加深對相應知識點的理解,舉一反三,用到自己相應的工作環境中。

感謝您的閲讀。