Как менять цвет?

[gedice]

Привет. Есть игра шашки и нужно чтобы менялся цвет шашек например с помощью InputBox вводишь цвет красный и соответственно цвет меняется на красный. Через if пытаюсь сделать ,но не получается ,просто я новичок в этом деле.. если не сложно ,был бы благодарен..

[IgorGO]

Есть игра шашки и

Вы что, дальтоник?
у Вас все шашки квадратные!!!

[gedice]

Если вам так интересно ,то нет я не дальтоник ,а квадратные они потому что это image

[IgorGO]

"дальтоник" - это из анекдота:

-- курсант, что это Вы какой-то неровный квадрат нарисовали? Вы что - дальтоник что-ли???

[Aleksandr H.]

1. В UserForm1.CommandButton1_click()
Дописать строку

For b = 1 To 2
        a = 1
        cv = CInt(InputBox("Введи один из цветов для закраски [1,9,3,7,38,17,25,53,46,45,44,49]", "pickColor", 49))'<===========
        For i = ryad To ryad + 2
            For j = stolbik To 8 Step 2
                Set v(a, b) = New Shashka
                v(a, b).kl i, j, cv
                a = a + 1
            Next
            stolbik = 3 - stolbik
        Next
        ryad = 6
        'cv = 255 + 0 - cv
    Next

2. в Shashka.kl изменить строку

Public Sub kl(i, j, cv)
    Шашка.Left = m * (j - 1) + 10
    Шашка.Top = m * (i - 1) + 10
    Шашка.BackColor = &H80000001
    Шашка.Width = m
    Шашка.Height = m
    Шашка.BackColor = ActiveWorkbook.Colors(cv) '<===========
    Шашка.BorderColor = RGB((255 - cv), (255 - cv), (255 - cv))
End Sub