歲末年初，很多公司都會舉辦年度酒會。在年度酒會上一般都會進行抽獎。如果用傳統的紙條抽獎，既繁瑣又招人懷疑是否有內幕。很多人會選擇程式設計來進行抽獎，其實我們可以用excel函式公式來製作抽獎小程式。今天就讓我們一起來學習如何製作Excel 抽獎小程式。

大觀園內舉辦一場年度酒會，準備從三十六釵中抽取5個幸運者。每個人不能重複上榜，重複中獎。

1、先在B列插入隨機數1-36，B2=RANDBETWEEN(1,36)，雙擊下拉填充到底。

公式解讀：

RANDBETWEEN函式：返回大於等於指定的最小值，小於等於指定最大值之間的一個隨機整數。其函式語法為：RANDBETWEEN（bottom,top）Bottom引數： RANDBETWEEN將返回的最小整數。Top引數： RANDBETWEEN將返回的最大整數。RANDBETWEEN(1,36)是產生隨機整數1至36。

2、在D1中輸入幸運名單，在D2輸入公式：=INDEX($A$2:$A$37,RANK(B2,$B$2:$B$37))，往下拖動五行，就能產生五個幸運者。

公式解讀：

Rank函式最常用的是求某一個數值在某一區域內的排名。rank函式語法形式：rank(number,ref,[order])函式名後面的引數中 number 為需要求排名的那個數值或者單元格名稱（單元格內必須為數字），ref 為排名的參照數值區域，order的為0和1，預設不用輸入，得到的就是從大到小的排名，若是想求倒數第幾，order的值請使用1。RANK(B2,$B$2:$B$37)意思是B2在B2至B37中排名第幾，B2至B37必須採用絕對引用，否則公式下拉之後會導致排名區域發生變動，導致出錯。

Index函式語法：INDEX(reference,row_num,column_num,area_num)Reference是對一個或多個單元格區域的引用。· 如果要對引用輸入一個非連續區域，請使用括號將該引用括起來。· 如果引用中的每個區域都只包含一行或一列，則可以不使用相應的 row_num 或 column_num 引數。例如，對於單行引用，可以使用 INDEX(reference,,column_num)。Row_num是要從中返回引用的引用中的行編號。Column_num是要從中返回引用的引用中的列編號。當然index函式還有陣列形式，在本公式中是採用引用形式，因此只談它的引用形式。INDEX($A$2:$A$37,RANK(B2,$B$2:$B$37))意思是先求出B2在B2至B37中的位置，再算出相對應的A2至A37的單元格，最終產生出幸運者。

因為是採用隨機函式來產生，所以最終產生的幸運者都是隨機的。

如果要更新幸運者，只要按F5就能進行更新，產生新的幸運者名單。

Gif動圖如下：

1.INDEX+RANDBETWEEN函式

如下圖，在D2單元格輸入公式：=INDEX($A$2:$A$11,RANDBETWEEN(1,10)) 按F9重新整理可實現抽獎效果。RANDBETWEEN(1,10)表示姓名的個數，從1-10個姓名之間隨機抽取。

2.OFFSET+RANDBETWEEN函式

如下圖，在D2單元格輸入公式：=OFFSET($A$1,RANDBETWEEN(1,10),,) 按F9重新整理可實現抽獎效果。

3.同時抽取多個不重複中獎者

首先在B2單元格輸入：RAND()生成隨機小數

然後在E2單元格輸入公式：=INDEX($A$2:$A$11,MATCH(LARGE($B$2:$B$11,ROW(A1)),$B$2:$B$11,0)) 使用LARGE函式提取第1、第2、第3最大值，使中獎姓名不會出現重複。

製作簡易抽獎小程式，需要用到如下技巧：

F9，重新計算所有資料；

Counta單元格計數；

Randbetween生成一個隨機數；

Index檢索單元格

按下F9，Excel就會重新計算資料。

若，你的表格資料量很大，公式很多，每次變動資料，Excel變得很卡時，可以將Excel設定為手動計算，然後使用F9來獲取最新資料。

Counta獲取總人數；Counta(區域)

使用Randbetween函式生成指定範圍的隨機數；Randbetween(開始數字,結束數字)

再使用Index函式獲取中獎人員；INDEX(要查詢的區域, 第幾行, 第幾列)

如下所示，按住F9再鬆開即可。

抽獎活動還在使用紙箱的原始方法抽獎？每天糾結該吃什麼？

【本文示例檔案獲取方法見文末】

其實，我們只需要藉助EXCEL，就能快速製作一個抽獎小程式，輕鬆解決抽獎，吃放選擇困難症的難題！國際慣例，先來看下效果吧！

下面我們來看一下怎麼製作吧！

將我們的名單輸入名單列，然後選定一個單元格輸入以下公式

=INDEX(B:B,RANDBETWEEN(3,COUNTA(B:B)+1))

選中B列，設定條件格式，條件格式公式為：=B1=$D$5；填充顏色設定為綠色，字型顏色設定為白色

按住F9鍵就可以開始抽獎啦，鬆開F9鍵就可以得到抽獎結果！

INDEX

功能：返回表或區域中的值或對值的引用（通俗來說，就是告訴EXCEL你需要第幾行第幾列的資料，它給你找出來拿給你！）

語法：INDEX(引用資料區，第幾行，[第幾列]，[哪個區域])

抽獎公式：

INDEX(B:B,RANDBETWEEN(3,COUNTA(B:B)+1))，

就是返回B列第RANDBETWEEN(3,COUNTA(B:B)+1)行的資料

RANDBETWEEN：

功能：返回指定區間的一個隨機整數

語法：RANDBETWEEN（最小值，最大值）

公式RANDBETWEEN(3,COUNTA(B:B)+1) 功能就是返回3~COUNTA(B:B)+1之間的一個隨機整數

COUNTA：

功能：返回引數列表中非空的單元格個數

語法：COUNTA(區域1,[區域2])

COUNTA(B:B)+1功能就是返回 B列的非空單元格加一（這裡+1是因為我們的名單是從B2單元格開始的，因此最後一個名字在B列中的位置要比非空單元格多一）

我們將名單換成選單，就可以決定每天要吃什麼啦，從此告別選擇困難症~

很多公司每年年終都會搞抽獎活動，隨機從員工名單中抽取若干名員工發放年終幸運大獎。如何利用EXCEL製作抽獎小程式抽獎呢？介紹2種EXCEL製作的抽獎小程式，看是不是有您需要的。

第一種：運用公式製作的簡單抽獎小程式。如果要求不高，抽的人數也不是很多，可以透過EXCEL公式來製作一個簡單的抽獎器。比如我們要從96名員工中抽出3名幸運員工，主要有3個步驟：

1、B2單元格內輸入公式=RAND(),並填充到B97單元格

2、設計好中獎人員名單顯示區域格式，然後在H9單元格錄入公式：

=INDEX($A$2:$A$97,RANK(B2,$B$2:$B$97))

3、透過鍵盤F9開獎，比如按住您可以按住F9鍵不放,此時隨機數及中獎人會不斷變化，倒數幾秒，放開F9鍵隨機生成三個中獎人姓名。

還在用excel製作抽獎你就out了，這裡給你介紹一個兼具問卷調查、簽到資訊統計、抽獎於一體的軟體——頃刻應用。

抽獎製作，將簽到所得表單或者已有簽到資訊收集完成的表單關聯到抽獎裡，簡單設定欄位以及獎項詳情即可。此外，還有一項特色功能，可以自定義預設中獎人的哦，你懂得。

具體制作方法，可以登入東軟平臺雲官網檢視相關使用技巧。https://cloud.neusoft.com/pages/download/download_form_2/download_form_2

抽獎小程式製作最簡的方式，就是間接指定一個含有姓名的單元格(其單元格行號隨機而已)，使用下圖函式組。=INDIRECT("D"&RANDBETWEEN(4,23))如果你不清楚，可以看我的影片http://www.365yg.com/i6595174380832031236/#mid=1608943286868995應該說得很清楚。如果看完後，仍然不懂，就直接找我，索要原始檔，拿去用就是了，免費哦！

有時候我們遇到一些重要的場合，有抽獎活動，那麼怎麼樣才可以做出一個有趣的抽獎介面呢？用Excel就可以！今天教大家兩種方法輕鬆製作出抽獎小程式。

INDEX函式

具體公式：在D2單元格輸入【=INDEX($A$2:$A$11,RANDBETWEEN(1,10))】

PS:RANDBETWEEN(1,10)表示抽取的總數

輸入完畢，按F9重新整理，抽獎功能就完成了，看，一次一個名字哦！

OFFSET函式

具體公式：在D2單元格輸入【=OFFSET($A$1,RANDBETWEEN(1,10),,)】

PS:RANDBETWEEN(1,10)同樣表示抽取的總數

輸入完畢，按F9重新整理，抽獎功能就完成了！也很簡單喲！

是不是很簡單？是不是很想收藏？學會了這招，以後公司年會的抽獎你承包啦！讓領導對你刮目相看！

EXCEL可以抽獎，透過Randbetween、rand等函式來獲取隨機結果，也是可以的，但不直觀，不明白的也不知道這個結果怎麼來的，公不公平。

現在給大家分享一個PPT+EXCEL來實現的抽獎程式。

到年底了，很多公司都在準備年會，但年會抽獎是少不了的，為了使抽獎程式更直觀，透過VBA在PPT中呼叫後臺EXCEL中的抽獎人員名實現隨機滾動的效果，在滾動過程中按回車實現抽獎結果隨機定位，中獎的人員將不再進行後續的抽獎，並將抽獎結果寫入EXCEL的中獎人員中。

功能如下：

座位號迴圈隨機滾動

按回車鍵抽獎一次抽出一名員工，並將中獎的員工資訊寫入EXCEL中獎人員表中，同時此員工不再參加後續抽獎

可以簡單修改後設定一等獎、二等獎、三等獎等獎項

抽獎結果在EXCEL抽獎人員中隨機抽取，絕對公平，程式程式碼不控制抽獎結果，抽獎結果取決於抽獎時按回車時隨時迴圈滾動的名單確定。

抽獎主介面，可以新增圖片及動畫效果

抽獎介面，可以新增圖片及動畫效果

抽獎後記錄中獎人員名單

抽獎時，透過座位號隨機滾動抽獎人員

部分VBA程式碼

用EXCEL製作抽獎小程式，用RAND函式即可實現，可實現以下功能：

1、不重複中獎。

2、自動記錄中獎者。

操作流程如下：

排序公式=COUNTIFS($B$2:$B$25,">="&B24)

序號公式=IF(D25="√","",RAND())

中獎公式=IFERROR(VLOOKUP(C2,獎項彙總!$A:$B,2,0),"")

按F9鍵抽獎，實現中獎者不在參與抽獎，並記錄中獎者名單。

記錄控制元件程式碼：

Dim rng

Dim B

Set rng = Sheets("獎項彙總").Range("A65536").End(xlUp)

B = rng.Row + 1

Sheets("獎項彙總").Cells(B, 1) = Sheets("抽獎").Range("H5")

Sheets("抽獎").Range("A1").Select

End Sub