大家好，我是：Excel自學成才
抽獎小程序，要求的是結果隨機，在Excel里面有隨機數函數rand()和randbtween來進行制作的，我們分三種情況來制作，1、單人抽獎，2、多人不重復抽獎，3、內定抽獎
我們首先準備抽獎的名單，放在A列，這個表格里面有88個人員
1、單人抽獎模式
我們在某個空白的單元格中輸入公式
=index(a:a,randbetween(1,88))
這個時候，我們按住F9鍵，屏幕就會滾動起來，松開F9鍵，就得到了抽獎的結果（如果是筆記本電腦，按FN+F9鍵），抽獎效果如下所示：
2、多人不重復抽獎
我們需要在第2列中輸入公式=rand()函數，然后向下填充，它會隨機的生成0-1之間的隨機數
然后我們在中獎名單里面輸入公式：=index(a:a,rank(b1,b:b))，希望幾個人中獎的話，就向下拉動幾個單元格，便可以得到不重復的多人中獎抽獎模式
3、內定抽獎
如果希望抽獎的時候，內定抽到自己的話，那么我們可以借助VBA來實現制作過程如下，首先我們按ATL+F11，打開VBA編輯器，在里面輸入如下三個模塊的代碼
因為在代碼中，我們是對D1單元格產生隨機數，所以在表格中，輸入的公式是：=index(a:a,d1)
然后我們插入三個按紐，其中內定的按紐放的隱蔽一點，分別綁定開始，結果，內定代碼
這個時候就制作完成了，當我們正常點擊開始，結束抽獎時，是正常的
當我們提前點了一下內定按紐之后，再點開始，結束時，抽獎的結果100%是作者本身了
因為插入了VBA代碼，所以表格需要另存為一下，將格式更改成xlsm格式的文件。
這就是3個Excel用來制作抽獎的小程序技巧