excel - 通过变量更改事件 x 选项按钮的背景颜色会使它们变黑

Question

我在excel中有一些奇怪的(因为我不明白)行为。
我有不少optionbuttons我想改变的背景颜色。总共有 15 个按钮和 3 种(可能是 4 种)颜色。
如果我简单地为它们分配 RGB 代码本身，这将非常有效。

Private Sub OptionButton1_Click()

OptionButton1.BackColor = RGB(0, 150, 79) 'Dark Green
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4

End Sub

但是，当我尝试创建包含 RGB 代码的变量时，如下所示:

 Private Sub OptionButton1_Click()

    OptionButton1.BackColor = DGn 'Dark Green
    ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=4

 End Sub

按钮变成黑色，如下所示:



由于有很多按钮，我希望只分配一次颜色，然后只需键入 DGn 或 Ylw，而不必不断地按 CTRL-C、CTRL-V

代码在 ThisWorkbook

Dim DGn As Long
Dim LGn As Long
Dim Ylw As Long


Public Sub Workbook_Open()
DGn = RGB(0, 150, 79)
LGn = RGB(138, 201, 49)
Ylw = RGB(249, 234, 5)
End Sub

任何建议表示赞赏!有一个美好的美好的一天/晚上。

Answer 1

在常规模块的顶部:

Public Const DGn As Long = 5215744   'RGB(0, 150, 79)
Public Const LGn As Long = 3262858   'RGB(138, 201, 49)
Public Const Ylw As Long = 387833    'RGB(249, 234, 5)

不能直接使用 RGB()在常量中，因为需要在编译时知道常量的值和 RBG()直到运行时才执行。

要转换值，请转到 VB 编辑器中的立即 Pane 并键入(例如) ? RGB(138, 201, 49)并按 Enter - 您将获得 Long 结果，然后您可以在常量中使用该结果。