當年終時，有些企業會組織職工聯歡會，可能還會搞個抽獎的小節目增添樂趣，下面就介紹一個用EXCEL做的簡單的抽獎工具。
工具/原料
excel軟體
第一步：介面設計
按下開始按鈕後會，會在B2：F2單元格中產生五個0-9的隨機數。在按“結束”前，這些隨機數字會不停變化，直到按下“結束”按鈕。
為了美觀，可以把字型設成自己喜歡的顏色，加上邊框，再把號碼以外的網格線隱藏起來。
設定字型顏色：選中B2:F7區域，按“格式－單元格”，選“字型”選項卡，裡面可設定字型顏色（也可在上面工具欄中的“字型顏色”中設定）。
加邊框：選中B2:F7區域，按“格式－單元格”，選“邊框”選項卡，在“顏色”中選“青色”，再從“線條樣式”中選擇雙線，點“外邊框”，設定外邊框為青色雙線型；同樣步驟，從“邊框”選項卡的“顏色”中選“蘭色”，再從“線條樣式”中選擇細實線，點“內部”，設定單元格內部邊框為蘭色的細實線。
隱藏網格線：按上面選單欄上的“工具－選項”，在“檢視”選項卡中，去掉“網格線”前的勾即可。
第二步：編寫程式碼
在工作表下面的標籤上點滑鼠右鍵，選“檢視程式碼”，調出VBA視窗，把下面程式碼複製進去就行了。
Dim a As Integer '定義公共變數
Sub 開始()
a = 0
Randomize '初始化
10:
For i = 1 To 5
Cells(2, i + 1) = Int(Rnd() * 10) '在單元格中顯示號碼
Next
DoEvents '釋放程式控制權
If a = 1 Then Exit Sub '如果按下“結束”鈕則終止程式
GoTo 10
End Sub
Sub 結束()
a = 1 '結束標誌
End Sub
第三步：新增按鈕
回到EXCEL視窗，按“檢視－工具欄－窗體”，調出“窗體”工具欄，用上面的“按鈕”工具在螢幕上新增兩個按鈕，在每個按鈕上點右鍵，選“編輯文字”，一個輸入“開始”，另一個輸入“結束”。在兩個按鈕上分別按滑鼠右鍵，指定巨集。
第四步：測試
以上操作完成後，就可以使用了，點選“開始”按鈕，B2：F2單元格中產生數字會隨機變動，當按“結束”按鈕時，會出現一個隨機數，表示抽中此號。
注意事項
程式碼為vb編寫，特殊要求可以自行更改。