从现在开始,让我们来不断地认识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.Valu