1、首先,在Excel中制作一个抽奖界面,这里是制作了一个可以抽30次的抽奖程序,如下图所示。
2、然后按下Alt+F11,打开VBA编辑界面,双击抽奖界面所在的工作表,弹出代码编辑区,如下图所示。
3、这里要实现的是双击抽奖界面中的数字单元格,就会弹出是否中奖的信息,因此需要使用VBA中的双击之前事件,并取消菜单显示,代码:Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)Cancel = TrueEnd Sub如下图所示。
4、而其中的主要代码:Randomizek = Int(Rnd() * 10) + 1If k < 2 ThenTarget.Value = "中奖了"Target.Interior.Color = vbGreenElseTarget.Value = "未中奖"Target.Interior.Color = vbBlackEnd If先生成一个1-10之间的随机数字,如果这个随机数小于2,就中奖,并且单元格颜色变成绿色;如果随机数不小于2,则未中奖,单元格变成黑色,如下图所示。
5、关闭VBA界面,返回Excel中,双击数字所在单元格,就会弹出相关的中奖与否信息,并且单元格颜色跟着变化,如下图所示。