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

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

3、这里要实现的是双击抽奖界面中的数字单元格，就会弹出是否中奖的信息，因此需要使用VBA中的双击之前事件，并取消菜单显示，代码：Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Cancel = TrueEnd Sub如下图所示。

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