抽獎小程序，要求的是結果隨機，在Excel里面有隨機數函數rand()和randbtween來(lái)進(jìn)行制作的，我們分三種情況來(lái)制作，1、單人抽獎，2、多人不重復抽獎，3、內定抽獎

我們首先準備抽獎的名單，放在A(yíng)列，這個(gè)表格里面有88個(gè)人員

1、單人抽獎模式

我們在某個(gè)空白的單元格中輸入公式

=index(a:a,randbetween(1,88))

這個(gè)時(shí)候，我們按住F9鍵，屏幕就會(huì )滾動(dòng)起來(lái)，松開(kāi)F9鍵，就得到了抽獎的結果（如果是筆記本電腦，按FN+F9鍵），抽獎效果如下所示：

2、多人不重復抽獎

我們需要在第2列中輸入公式=rand()函數，然后向下填充，它會(huì )隨機的生成0-1之間的隨機數

然后我們在中獎名單里面輸入公式：=index(a:a,rank(b1,b:b))，希望幾個(gè)人中獎的話(huà)，就向下拉動(dòng)幾個(gè)單元格，便可以得到不重復的多人中獎抽獎模式

3、內定抽獎

如果希望抽獎的時(shí)候，內定抽到自己的話(huà)，那么我們可以借助VBA來(lái)實(shí)現制作過(guò)程如下，首先我們按ATL+F11，打開(kāi)VBA編輯器，在里面輸入如下三個(gè)模塊的代碼

因為在代碼中，我們是對D1單元格產(chǎn)生隨機數，所以在表格中，輸入的公式是：=index(a:a,d1)

然后我們插入三個(gè)按紐，其中內定的按紐放的隱蔽一點(diǎn)，分別綁定開(kāi)始，結果，內定代碼

這個(gè)時(shí)候就制作完成了，當我們正常點(diǎn)擊開(kāi)始，結束抽獎時(shí)，是正常的

當我們提前點(diǎn)了一下內定按紐之后，再點(diǎn)開(kāi)始，結束時(shí)，抽獎的結果100%是作者本身了

因為插入了VBA代碼，所以表格需要另存為一下，將格式更改成xlsm格式的文件。

這就是3個(gè)Excel用來(lái)制作抽獎的小程序技巧