正常情況下抽獎效果如下所示 ， 抽了兩次，結果都是隨機的 。（因為是錄屏軟件1秒抓取2張圖片 ， 看起來滾動比較慢，實際滾動速度很快）

文章插圖
馬上就要抽特等獎了，先點擊內定小圈開關，再點開始抽獎，不論什么時候點擊結束，中獎的結果都是小編自己，如下所示：

文章插圖
這樣輕輕松松自己拿大獎了，這是如何制作的呢？
第一步：在A:B列準備好抽獎的姓名和抽獎的照片，然后找一張喜慶的背景，插入一個藝術字體，幸運大抽獎 ， 如下所示：

文章插圖
第二步：在E1單元格中輸入公式：
=INDEX(A:A,D1) ， 同時插入一個文本框，將文本框的填充改成無，點擊文本框的邊緣位置，然后在公式輸入框中輸入=E1，這個文本框中便會隨著E1的內容變化而變化 。

文章插圖
第三步，在菜單欄填，公式中插入一個名稱管理器，名稱為zp，公式為=INDEX(制作!$B:$B,制作!$D$1)，綁定了D1單元格對應的B列中的照片 。

文章插圖
我們在D1單元格任意先輸入一個數字，比如4 ， 然后在頁面上插入任意一張圖片 ， 將格式調整為圓形，在公式編輯欄輸入=zp，綁定照片 。

文章插圖
第四步，我們按ATL+F11，在VBA編輯欄中輸入VBA代碼

文章插圖
Dim i, j
Sub 開始()
i = 0
Do
Range(“d1”) = Application.RandBetween(2, 9)
DoEvents
Loop Until i = 1
End Sub
Sub 結束()
i = 1
If j = 1 Then 如果點了內定
Range(“d1”) = 9 結果就是等于9
【老板讓我做年會抽獎系統，我用Excel制作內定抽到自己的大獎！】j = 2 恢復到普通抽獎
End If
End Sub
Sub 內定()
j = 1 內定參數為1
End Sub
創建了3個過程，分別是開始 ， 結束 ， 以及內定過程
第五步，在表格中插入三個按紐，分別綁定三個過程

文章插圖
插入一個圓形 ， 右鍵，指定宏

文章插圖

文章插圖
這樣就制作完成了，需要抽到作者自己的時候，那只需要只一下內定的小圓圈，然后再點開始，點結束，抽到的100%就是自己了 。

• ?紅薯淀粉可以做麻薯嗎 紅薯淀粉怎么樣制作麻薯
• 簡單又好吃的辣白菜做法 ?韓式辣白菜的正宗做法
• 有什么菜好吃又健康的做法
• ?韓庚轉做明星老板 他的成就有王一博高嗎
• ?白靜死因是什么？她的丈夫為什么要這樣做？
• 做試管嬰兒需要多少錢？附費用明細
• 鉆戒好不好的判斷標準，攻略都替你做好了！
• ?亞亞圖雷退役后的生活怎么樣？他以教練身份繼續為足壇做貢獻
• 最簡單的賀卡制作方法 ?自制賀卡怎么做簡單又漂亮
• 嘎牙子魚的做法 ?嘎魚的營養價值及功效與禁忌