'小技巧——用Excel做抽獎軟件'

大家都知道Excel的功能是非常強大的，有的時候我們甚至可以用Excel寫程序，例如前幾年火遍大學宿舍的“三國殺”遊戲在最開始的時候就是用Excel製作。

今天就和大家分享下如何用Excel來製作一個簡單的抽獎小程序，首先我們來看下最終效果：

想做出這樣的一個抽獎模型其實並不難，所用到的只有indirect、counta和randbetween3個函數公式以及一點vba宏的知識。我們甚至可以不用下面的開始和結束按鈕，不加宏都可以製作出來一個簡單的抽獎模型，具體怎麼做呢？為大家來揭祕一下。

首先，我們將需要抽獎的名單填充到A列，然後選擇一定區域合併單元格將來顯示抽獎結果，這個可以根據自己的審美喜好來調整。

第二步，在抽獎結果單元格填充公式：=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))，然後隱藏A列。

這個時候你會發現，我們按住F9鍵，中獎結果就是發生改變。（可以把F9當成抽獎開關，長按一直刷新，鬆開就出結果），對於我們要求低的讀者來說，已經是可以直接拿來用了。

為什麼會有這種效果呢?我們來解釋下=INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))這串公式的含義。

①COUNTA(A:A)，計數作用，來數一下A列包括表頭“姓名”以外非空單元格的數量，即有多少人蔘與抽獎（通過這個公式，不管之後姓名是增加還是減少，公式都不用再改）

②RANDBETWEEN(2,COUNTA(A:A))，在2到N直接隨機取數（N為名單最後一個單元格的行數）

③INDIRECT("a"&RANDBETWEEN(2,COUNTA(A:A)))即表示A？單元格的值，？就是RANDBETWEEN(2,COUNTA(A:A))的隨機結果，也就是從A2到AN單元格隨機選中一個單元格。（從A2開始是因為A1為表頭）

F9單元格控制randbetween公式的刷新，所以我們可以製作出一個簡單的抽獎程序。