Как установить массив цветов с помощью vba?

Question

Я хочу установить массив цветов с помощью VBA.
Это было не просто, как я думал, что это будет.

с помощью Vb.NET вы можете объявить массив цвета так:

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

так я пытался что-то similer в 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, b0 как «средний человек»).

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 

Answer 2

В VBA/VB6 Object типа зарезервировано для переменных, которые содержат ссылку на объект . В отличие от .NET, не все является объектом - поэтому вы не можете назначить константу enum (в основном) целую сумму с именем 10).

Вместо этого используйте Variant тип, и вы можете встраивать декларацию массива с помощью функции Array:

Dim colors As Variant 
colors = Array(vbRed, vbGreen, vbBlue, vbYellow) 

---

Также в VB.NET это:

Dim a, b, c As Object 

Объявляет 3 Object переменные.

В VBA/VB6 однако, что декларирует c как Object, и оставляет a и b как неявные Variant переменных: вы хотите, чтобы избежать нескольких объявлений на одной и той же линии.

Answer 3

Для VBA вы можете использовать эту функцию (я сделал это и успешно использовать в нескольких проектах)

Function GetColorFromColrName(ColrName As String) As Long 
    Dim rgbc As Long 
    Select Case ColrName 
    Case "red" 
     rgbc = RGB(255, 0, 0) 
    Case "brown" 
    rgbc = RGB(165, 42, 42) 
Case "coral" 
    rgbc = RGB(255, 127, 80) 
Case "orange red" 
    rgbc = RGB(255, 69, 0) 
Case "orange" 
    rgbc = RGB(255, 165, 0) 
Case "gold" 
    rgbc = RGB(255, 215, 0) 
Case "yellow" 
    rgbc = RGB(255, 255, 0) 
Case "yellow green" 
    rgbc = RGB(154, 205, 50) 
Case "lawn green" 
    rgbc = RGB(124, 252, 0) 
Case "green" 
    rgbc = RGB(0, 128, 0) 
Case "lime" 
    rgbc = RGB(0, 255, 0) 
Case "aqua" 
    rgbc = RGB(0, 255, 255) 
Case "blue" 
    rgbc = RGB(0, 0, 255) 
Case "blue violet" 
    rgbc = RGB(138, 43, 226) 
Case "dodgerblue" 
    rgbc = RGB(30, 144, 255) 
Case "dark magenta" 
    rgbc = RGB(139, 0, 139) 
Case "dark violet" 
    rgbc = RGB(148, 0, 211) 
Case "purple" 
    rgbc = RGB(128, 0, 128) 
Case "magenta" 
    rgbc = RGB(255, 0, 255) 
Case "chocolate" 
    rgbc = RGB(210, 105, 30) 
Case "black" 
    rgbc = RGB(0, 0, 0) 
Case "dim gray" 
    rgbc = RGB(105, 105, 105) 
Case "gray" 
    rgbc = RGB(188, 188, 188) 
Case "silver" 
    rgbc = RGB(192, 192, 192) 
Case "white" 
    rgbc = RGB(255, 255, 255) 
Case "" 

    End Select 
    GetColorFromColrName = rgbc 
End Function 

Все самое лучшее!