vba - 如何使用vba设置颜色数组？

Question

我希望使用 VBA 设置颜色数组。

这并不像我想象的那么简单。

使用 Vb.NET您可以像这样声明颜色数组:

Dim ar() As Color = {Color.Yellow, Color.Red, Color.Green}

所以我在 VBA 中尝试了一些类似的东西(并且对抛出编译错误并不感到惊讶，我想知道什么数据类型是 vbYellow( Enum？)):

Private Sub CommandButton1_Click()

Dim ar(3) As Object
Dim a, b, c As Object

Set a = vbYellow
Set b = vbRed
Set c = vbGreen

ar(0) = a
ar(1) = b
ar(2) = c

End Sub 

谢谢你。

Answer 1

vbYellow返回一个数值，因此您需要将变量定义为 Long .所以，没有必要Set它之前。

您可以使用直接方法，使用 ar(0) = vbYellow (您不需要 a, b and c` 变量作为“中间人”)。

Private Sub CommandButton1_Click()

Dim ar(3) As Long
Dim a As Long, b As Long, c As Long

a = vbYellow
b = vbRed
c = vbGreen

ar(0) = a
ar(1) = b
ar(2) = c

End Sub