用ecxel快速制作一個抽獎模型-VBA按鈕式抽獎模型

第一步：制作按鈕圖形

插入-插圖-形狀-選擇合適的形狀-填寫“開始抽獎”

復制一個圖形修改文字“清除數(shù)據(jù)”

第二步：VBA

按 alt+F11 打開vbe（vba的編輯器），在該窗口對應的文件下，右鍵單擊-插入-模塊

在模塊中編寫兩個小程序

Sub 開始抽獎()

??Worksheets(9).Range("F3") = 1

End Sub

意思為：將sheet9中F3單元格賦值為1

Sub 清除數(shù)據(jù)()

??Worksheets(9).Range("F3") = 0

End Sub

意思為：將sheet9中F3單元格賦值為0

第三步：將數(shù)據(jù)復制到sheet9

將數(shù)據(jù)和抽獎公式等復制到sheet9，或者將抽獎公式復制到sheet9，修改公式，使之可以完成抽獎

第四步：

將sheet每一練中的抽獎公式換為=IF('sheet'!$F$3=1,'sheet'!$E$4," ")

完成