EXCEL做隨機抽獎?chuàng)u獎器

EXCEL做隨機抽獎?chuàng)u獎器來源：百度經(jīng)驗作者:佚名更新時間：12-22點擊：118次當(dāng)年終時，有些企業(yè)會組織職工聯(lián)歡會，可能還會搞個抽獎的小節(jié)目增添樂趣，下面就介紹一個用EXCEL做的簡單的抽獎工具。第一步：畫表格假設(shè)共有30位職工，就需要30個，先按下圖的樣子把1至30個填列到一個工作表中。為了美觀，可以把字體設(shè)成自己喜當(dāng)年終時，有些企業(yè)會組織職工聯(lián)歡會，可能還會搞個抽獎的小節(jié)目增添樂趣，下面就介紹一個用EXCEL做的簡單的抽獎工具。第一步：畫表格假設(shè)共有30位職工，就需要30個，先按下圖的樣子把1至30個填列到一個工作表中。

起來。設(shè)置字體顏色：選中B2:F7區(qū)域，按“格式一單元格”，選“字體”選項卡，里面可設(shè)置字體顏色（也可在上面工具欄中的“字體顏色”中設(shè)置）。加邊框：選中B2:F7區(qū)域，按“格式一單元格”，選“邊框”選項卡，在“顏色”中選“青色”，再從“線條樣式”中選擇雙線，點“外邊框”，設(shè)置外邊框為青色雙線型；同樣步驟，從“邊框”選項卡的“顏色”中選“蘭色”，再從“線條樣式”中選擇細實線，點“部”，設(shè)置單元格部邊框為蘭色的細實線。本文來自

www.45it.隱藏網(wǎng)格線按上面菜單欄上的“工具一選項”在“視圖”選項卡中去掉“網(wǎng)格線”前的勾即可?！鮍Q0設(shè)置曷色外也稚45U^_Ci□QQ0設(shè)置曷色外也稚45U^_Ci第二步：編寫代碼在工作表下面的標(biāo)簽上點鼠標(biāo)右鍵，選“查看代碼”，調(diào)出在工作表下面的標(biāo)簽上點鼠標(biāo)右鍵，選“查看代碼”，調(diào)出VBA窗口，把下面代碼復(fù)制進去就行了。$文峰歸俎僵①版畫的地兒?密玄?■濯過如話為嶼工其①外疆用摩⑷芭口回粘附加」江⑸今…，魁第T1弼$文峰歸俎僵①版畫的地兒?密玄?■濯過如話為嶼工其①外疆用摩⑷芭口回粘附加」江⑸今…，魁第T1弼1E⑥3MIL(sm物部》楷GM科第電部此也芯M*L￥JQTh.LsHcrk%^<il百度chac^iuaiOOS"7.45IT.COM沁時折口口引，吊■"--」一?￡打11nli?TAs三層t&￡rr&■Oi1防舊：1se'韌珈叱1X=B^ao*??-￡）*?■生融率￥0漉!狙燙3代班行數(shù)7r七聞匕?（&-zME1生出生國嫡規(guī)妗J松會無心「m:仃?>1牖3片■匕仁丸加工葡醇=川如“’去而A克也匚彳1工工Riy^）.JnLar1or.G4lorla^tM—3情無為亂也如檢nu'視啜曲存版工驍許方艷矍生IfL=17hm小"筑b，M源住下噌SJt。鋁制筑it桂洋^r?Id加L副Lx跖，外束。.*=i'塔壟瓊.UEndSuk:］修機好抽獎一!rl￥-Sheet1(代局jDimaAsInteger定義公共變量Sub隨機ODimxAsIntegerDimyAsIntegera=0Randomize'初始彳匕10:x=Rnd()*(7-2)+2'生成2至7的隨機數(shù)，代表行數(shù)y=Rnd()*(6-2)+2'生成2至6的隨機數(shù)，代表列數(shù)Range("b2:f7").Interior.ColorIndex=xlNone'去掉填充色Cells(x,y).Interior.ColorIndex=3'填充為紅色DoEvents'釋放程序控制權(quán)，允許其他事件Ifa=1ThenExitSub'如果按下“結(jié)束”鈕則終止程序GoTo10EndSubSub結(jié)束()a=1結(jié)束標(biāo)志EndSub代碼很簡單，并且加了注釋，不再逐句解釋了。第三步：添加按鈕回到EXCEL窗口，按“視圖一工具欄一窗體”，調(diào)出“窗體”工具欄，用上面的

“按鈕”工具在屏幕上添加兩個按鈕，在每個按鈕上點右鍵，選“編輯文字”，一個輸入“開始”，另一個輸入“結(jié)束”。在兩個按鈕上分別按鼠標(biāo)右鍵，指定宏。

旗制證）45ITSheetl開始Sheetl.結(jié)束位置百度chwohu副口口日所有打開的工作簿旗制證）45ITSheetl開始Sheetl.結(jié)束位置百度chwohu副口口日所有打開的工作簿取消箍靠算簫定指定宏完成以上操作完成后，就可以使用了，點擊“開始”按鈕，會有一個紅色方塊隨機的在各上閃動，當(dāng)按“結(jié)束”按鈕時，紅色方塊會靜止在某一個上，表示抽中此號。

EXCEL做隨機抽獎?chuàng)u獎器第二篇當(dāng)年終時，有些企業(yè)會組織職工聯(lián)歡會，可能還會搞個抽獎的小節(jié)目增添樂趣，下面就介紹一個用EXCEL做的簡單的抽獎工具，這個抽獎的方法與前面介紹的界面不同。一、界面按下開始按鈕后會，會在82邛2單元格中產(chǎn)生五個0-9的隨機數(shù)。在按“結(jié)束”前，這些隨機數(shù)字會不停變化，直到按下“結(jié)束”按鈕。二、代碼DimaAsInteger定義公共變量Sub開始Oa=0Randomize'初始彳匕10:Fori=1To5Cells(2,i+1)=Int(Rnd()*10)'在單元格中顯示NextDoEvents'釋放程序控制權(quán)Ifa=1ThenExitSub'如果按下“結(jié)束”鈕則終止程序GoTo10EndSubSub結(jié)束0a=