Excel如何用VBA写一个简单的抽奖程序？

1、首先，在Excel中制作一个抽奖界面，这里是制作了一个可以抽30次的抽奖程序，如下图所示。

2、然后按下Alt+F11，打开VBA编辑界面，双击抽奖界面所在的工作表，弹出代码编辑区，如下图所示。

3、这里要实现的是双击抽奖界面中的数字单元格，就会弹出是否中奖的信息，因此需要使用VBA中的双击之前事件，并取消菜单显示，代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

 

Cancel = True

 

End Sub

如下图所示。

4、而其中的主要代码：

Randomize

 

k = Int(Rnd() * 10) + 1

 

If k < 2 Then

 

Target.Value = "中奖了"

 

Target.Interior.Color = vbGreen

 

Else

 

Target.Value = "未中奖"

 

Target.Interior.Color = vbBlack

 

End If

先生成一个1-10之间的随机数字，如果这个随机数小于2，就中奖，并且单元格颜色变成绿色；如果随机数不小于2，则未中奖，单元格变成黑色，如下图所示。

5、关闭VBA界面，返回Excel中，双击数字所在单元格，就会弹出相关的中奖与否信息，并且单元格颜色跟着变化，如下图所示。

1、1.打开Excel，设计抽奖界面；

2.Alt+F11，打开VBA编辑界面；

3.使用BeforeDoubleClick事件；

4.使用随机数字判断是否中奖，显示不同信息；

5.返回Excel，就可以抽奖了。