當年終時，有些企業會組織職工(gōng)聯歡會，可能還會搞個抽獎的小(xiǎo)節目增添樂趣，下(xià)面就介紹一(yī)個用EXCEL做的簡單的抽獎工(gōng)具。

第一(yī)步：畫表格

假設共有30位職工(gōng)，就需要30個号碼，先按下(xià)圖的樣子把1至30個号碼填列到一(yī)個工(gōng)作表中(zhōng)。

 爲了美觀，可以把字體(tǐ)設成自己喜歡的顔色，加上邊框，再把号碼以外(wài)的網格線隐藏起來。

設置字體(tǐ)顔色：選中(zhōng)B2:F7區域，按“格式－單元格”，選“字體(tǐ)”選項卡，裏面可設置字體(tǐ)顔色（也可在上面工(gōng)具欄中(zhōng)的“字體(tǐ)顔色”中(zhōng)設置）。

加邊框：選中(zhōng)B2:F7區域，按“格式－單元格”，選“邊框”選項卡，在“顔色”中(zhōng)選“青色”，再從“線條樣式”中(zhōng)選擇雙線，點“外(wài)邊框”，設置外(wài)邊框爲青色雙線型；同樣步驟，從“邊框”選項卡的“顔色”中(zhōng)選“蘭色”，再從“線條樣式”中(zhōng)選擇細實線，點“内部”，設置單元格内部邊框爲蘭色的細實線。
隐藏網格線：按上面菜單欄上的“工(gōng)具－選項”，在“視圖”選項卡中(zhōng)，去(qù)掉“網格線”前的勾即可。

 第二步：編寫代碼
在工(gōng)作表下(xià)面的标簽上點鼠标右鍵，選“查看代碼”，調出VBA窗口，把下(xià)面代碼複制進去(qù)就行了。

Dim a As Integer '定義公共變量
Sub 随機()
Dim x As Integer
Dim y As Integer
a = 0
Randomize '初始化
10：
x = Rnd() * (7 - 2) + 2 '生(shēng)成2至7的随機數，代表行數
y = Rnd() * (6 - 2) + 2 '生(shēng)成2至6的随機數，代表列數
Range("b2:f7").Interior.ColorIndex = xlNone '去(qù)掉填充色
Cells(x, y).Interior.ColorIndex = 3 '填充爲紅色
DoEvents '釋放(fàng)程序控制權，允許其他事件
If a = 1 Then Exit Sub '如果按下(xià)“結束”鈕則終止程序
GoTo 10
End Sub
Sub 結束()
a = 1 '結束标志(zhì)
End Sub

代碼很簡單，并且加了注釋，不再逐句解釋了。

第三步：添加按鈕
回到EXCEL窗口，按“視圖－工(gōng)具欄－窗體(tǐ)”，調出“窗體(tǐ)”工(gōng)具欄，用上面的“按鈕”工(gōng)具在屏幕上添加兩個按鈕，在每個按鈕上點右鍵，選“編輯文字”，一(yī)個輸入“開(kāi)始”，另一(yī)個輸入“結束”。

在兩個按鈕上分(fēn)别按鼠标右鍵，指定宏。

完成

        以上操作完成後，就可以使用了，點擊“開(kāi)始”按鈕，會有一(yī)個紅色方塊随機的在各号碼上閃動，當按“結束”按鈕時，紅色方塊會靜止在某一(yī)個号碼上，表示抽中(zhōng)此号。

EXCEL做随機抽獎搖獎器 第二篇

當年終時，有些企業會組織職工(gōng)聯歡會，可能還會搞個抽獎的小(xiǎo)節目增添樂趣，下(xià)面就介紹一(yī)個用EXCEL做的簡單的抽獎工(gōng)具，這個抽獎的方法與前面介紹的界面不同。

一(yī)、界面

按下(xià)開(kāi)始按鈕後會，會在B2：F2單元格中(zhōng)産生(shēng)五個0-9的随機數。在按“結束”前，這些随機數字會不停變化，直到按下(xià)“結束”按鈕。

二、代碼

Dim a As Integer '定義公共變量
Sub 開(kāi)始()
a = 0
Randomize '初始化
10：
For i = 1 To 5
Cells(2, i + 1) = Int(Rnd() * 10) '在單元格中(zhōng)顯示号碼
Next
DoEvents '釋放(fàng)程序控制權
If a = 1 Then Exit Sub '如果按下(xià)“結束”鈕則終止程序
GoTo 10
End Sub
Sub 結束()
a = 1 '結束标志(zhì)
End Sub

注意

提示：代碼及按鈕的添加請參考前面的文章《EXCEL做随機抽獎》
如果你需要的抽獎數字個數不是五個，請修改FOR語句中(zhōng)的終值，比如想要8位數字，就修改成 For i = 1 To 8 ，其他代碼部分(fēn)不用修改。