?爆竹聲中一歲除，春風送暖入屠蘇；千門萬戶曈曈日，總把新桃換舊符。
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?--宋/王安石《元日》
年末馬上就要到了，一般這個時候，每家公司基本都開始準備年終聚餐以及年終總結了，當然必不可少的肯定是大家都想得到的抽獎環節了
比如特等獎：華為
一等獎：電動自行車
。。。
幸運獎：50元現金
相信上面這些獎品，大家都想得到。公司抽獎有多種多樣，比如每人一個標簽紙，統一放到紙箱上抽獎，今天給大家分享個抽獎小工具，使用Excel來實現，不過這個需要用到VBA的一些知識，大家可以直接使用。
首先看下成品效果，操作步驟先點擊【立即抽獎】，當需要停止的時候，點擊【停止抽獎】，最后選中需顯示人員名稱單元格，再點保存即可。
下面就給大家講下，這是如何實現的。
操作步驟：
1、首先我們需要準備好人員清單，人員清單包含【工號】及【人員名單】信息，統一放置在[人員名單]工作表內，因工號是唯一的，這樣同時實現可避免抽獎出現相同名字的人員
2、制作抽獎界面樣板，首先我們先設置各獎項人員顯示位置，在B2:B8位置分別輸入各獎項的名稱，并添加相應的背景色等內容
再添加抽獎使用的背景樣式
3、我們在A1單元格輸入如下公式：
=(2,(人員名單!A:A))
函數，隨機生成區間2~(人員名單!A:A)之間的隨機數
因我們【人員名單】第一行是標題，故需要從2開始，返回的是隨機的行數
再在A2單元格輸入公式：
=INDEX(人員名單!A:B,抽獎系統!A1,1)&CHAR(10)&INDEX(人員名單!A:B,抽獎系統!A1,2
公式運行后及得到工號及人員名稱，Char(10)為換行符，起到自動換行作用
?4、制作抽獎顯示窗口如何利用vb制作抽獎小程序，點擊插入【文本】-【橫向文本框】，輸入文字，設置字體顏色為紅色，字號選擇28，加粗，去除文本框的框線及背景色
再點擊顯示窗口，輸入公式：=A2
即把A2單元格的內容顯示到文本框中，這是只要我們按F9,可以看到姓名隨著變更了
5、插入抽獎及保存抽獎信息的窗口，點擊【插入】，選擇矩形，設置邊框為白色如何利用vb制作抽獎小程序，無填充，輸入文字：開始抽獎，字號24，字體：華文彩云
分別插入3個矩形，命名為：立即抽獎；停止抽獎；保存抽獎
6、編寫VBA代碼，右擊工作表名稱-【查看代碼】，輸入如下三段代碼
e ""(ByVal )'暫停 64位系統'epLib""(ByVal )'暫停 32位系統Dim mark As 立即開始()[A2] = "=INDEX(人員名單!A:B,抽獎系統!A1,1)&CHAR(10)&INDEX(人員名單!A:B,抽獎系統!A1,2)"mark = While . Sub
Sub 停止抽獎()mark = Sub
Sub 保存抽獎()CH = [A1] = [A2]("人員名單").Cells(CH, 1)... = False[A2] = "". = Sub
7、再分別右擊插入的矩形框，點擊【指定宏】，分別指定以上設置的宏命令
這樣一個抽獎小程序就做好，我們只要點擊【立即抽獎】，再點擊【停止抽獎】按鈕，最終保存抽獎人名，即可。
此方法主要是應用了INDEX及函數，再結合VBA程序制作而成。
數據原始檔案，可從以下網盤下載：
提取碼: hq3q
如果覺得文章對你有幫助的話，希望大家幫忙點贊加分享哦~，謝謝
本文由彩虹Excel原創，歡迎關注，帶你一起長知識！