电脑学习 EXCEL 18：用Excel快速制作一个抽奖模型（3）VBA一...

用ecxel快速制作一个抽奖模型-VBA按钮式抽奖模型

第一步：制作按钮图形

插入-插图-形状-选择合适的形状-填写“开始抽奖”

复制一个图形修改文字“清除数据”

第二步：VBA

按 alt+F11 打开vbe（vba的编辑器），在该窗口对应的文件下，右键单击-插入-模块

在模块中编写两个小程序

Sub 开始抽奖()

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

End Sub

意思为：将sheet9中F3单元格赋值为1

Sub 清除数据()

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

End Sub

意思为：将sheet9中F3单元格赋值为0

第三步：将数据复制到sheet9

将数据和抽奖公式等复制到sheet9，或者将抽奖公式复制到sheet9，修改公式，使之可以完成抽奖

第四步：

将sheet每一练中的抽奖公式换为=IF('sheet'!$F$3=1,'sheet'!$E$4," ")

完成