VBA—EXCEL操作集合—03

从现在开始，让我们来不断地认识EXCEL VBA中的部分事件。我们还是以具体功能为例来展开。

今天我们做一个很简单地抽奖游戏。

先来看截图：

游戏规则：

双击带有数字的单元格，如果中奖了，就显示中奖的金额，如果不中奖就显示“未中奖”。

中奖效果截图：

未中奖效果截图：

 这里面有一个动作，就是单元格的双击事件。

单元格的双击事件是：Worksheet_BeforeDoubleClick

先来看一下代码：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim k As Integer
    
    Cancel = True
    Randomize
    k = Int(Rnd() * 10) + 1
    If k < 2 Then
        Target.Value = k & "元"
        Target.Interior.Color = vbGreen
        Target.Font.Size = 10