VBA—EXCEL操作集合—03

最新推荐文章于 2025-06-11 12:41:49 发布

原创

最新推荐文章于 2025-06-11 12:41:49 发布 · 4.3k 阅读

2 ·

CC 4.0 BY-SA版权

文章标签：

#开发语言

本文通过一个简单的抽奖游戏，介绍Excel VBA中的Worksheet_BeforeDoubleClick事件。当双击带有数字的单元格时，根据随机生成的数字决定是否中奖。代码展示了设置单元格背景色、字体大小、赋值以及使用MsgBox函数的方法。此外，还分享了查找颜色常量的小技巧。

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