1. 首頁 > 生活百科 > >

EXCEL做隨機抽獎搖獎器2020新發布

excel電腦知識

當年終時，有些企業會組織職工聯歡會，可能還會搞個抽獎的小節目增添樂趣，下面就介紹一個用EXCEL做的簡單的抽獎工具 。
第一步：畫表格
假設共有30位職工，就需要30個號碼，先按下圖的樣子把1至30個號碼填列到一個工作表中 。

EXCEL做隨機抽獎搖獎器2020新發布

文章插圖
為了美觀，可以把字體設成自己喜歡的顏色，加上邊框，再把號碼以外的網格線隱藏起來 。
設置字體顏色：選中B2:F7區域，按“格式－單元格”，選“字體”選項卡，里面可設置字體顏色（也可在上面工具欄中的“字體顏色”中設置） 。
加邊框：選中B2:F7區域，按“格式－單元格”，選“邊框”選項卡，在“顏色”中選“青色”，再從“線條樣式”中選擇雙線，點“外邊框”，設置外邊框為青色雙線型；同樣步驟，從“邊框”選項卡的“顏色”中選“蘭色”，再從“線條樣式”中選擇細實線，點“內部”，設置單元格內部邊框為蘭色的細實線 。 本文來自www.45it.com
隱藏網格線：按上面菜單欄上的“工具－選項”，在“視圖”選項卡中，去掉“網格線”前的勾即可 。
EXCEL做隨機抽獎搖獎器2020新發布

文章插圖
第二步：編寫代碼
在工作表下面的標簽上點鼠標右鍵，選“查看代碼”，調出VBA窗口，把下面代碼復制進去就行了 。
EXCEL做隨機抽獎搖獎器2020新發布

文章插圖
Dim a As Integer '定義公共變量
Sub 隨機()
Dim x As Integer
Dim y As Integer
a = 0
Randomize '初始化
10：
x = Rnd() * (7 - 2) + 2 '生成2至7的隨機數，代表行數
y = Rnd() * (6 - 2) + 2 '生成2至6的隨機數，代表列數
Range("b2:f7").Interior.ColorIndex = xlNone '去掉填充色
Cells(x, y).Interior.ColorIndex = 3 '填充為紅色
DoEvents '釋放程序控制權，允許其他事件
If a = 1 Then Exit Sub '如果按下“結束”鈕則終止程序
GoTo 10
End Sub
Sub 結束()
a = 1 '結束標志
End Sub
代碼很簡單，并且加了注釋，不再逐句解釋了 。
第三步：添加按鈕
回到EXCEL窗口，按“視圖－工具欄－窗體”，調出“窗體”工具欄，用上面的“按鈕”工具在屏幕上添加兩個按鈕，在每個按鈕上點右鍵，選“編輯文字”，一個輸入“開始”，另一個輸入“結束” 。
在兩個按鈕上分別按鼠標右鍵，指定宏 。
EXCEL做隨機抽獎搖獎器2020新發布

文章插圖

EXCEL做隨機抽獎搖獎器2020新發布

文章插圖

完成
以上操作完成后，就可以使用了，點擊“開始”按鈕，會有一個紅色方塊隨機的在各號碼上閃動，當按“結束”按鈕時，紅色方塊會靜止在某一個號碼上，表示抽中此號 。
EXCEL做隨機抽獎搖獎器2020新發布

文章插圖

EXCEL做隨機抽獎搖獎器 第二篇
當年終時，有些企業會組織職工聯歡會，可能還會搞個抽獎的小節目增添樂趣，下面就介紹一個用EXCEL做的簡單的抽獎工具，這個抽獎的方法與前面介紹的界面不同 。
一、界面
EXCEL做隨機抽獎搖獎器2020新發布

文章插圖
按下開始按鈕后會，會在B2：F2單元格中產生五個0-9的隨機數 。 在按“結束”前，這些隨機數字會不停變化，直到按下“結束”按鈕 。
二、代碼
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做隨機抽獎搖獎器2020新發布】
注意
  • 提示：代碼及按鈕的添加請參考前面的文章《EXCEL做隨機抽獎》
    如果你需要的抽獎數字個數不是五個，請修改FOR語句中的終值，比如想要8位數字，就修改成 For i = 1 To 8 ，其他代碼部分不用修改 。

    推薦閱讀