CommandButton: изменение кнопок bgcolor при нажатии

Question

Я совсем не знаком с Excel. Хотя я хочу одну функцию, которая довольно сложна для первого таймера, как я.

Мне нужна кнопка, которая меняет цвет при каждом нажатии.

Я объясню это подробно:

Стандартно кнопка имеет красный цвет bg. Когда я нажимаю кнопку один раз, bg становится желтым. Когда я снова нажимаю кнопку один раз, цвет bg меняется с желтого на зеленый. И при следующем щелчке он снова становится красным.

Я создал CommandButton и достиг этого, но здесь я не совсем понимаю, как это сделать.

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 5243047
CommandButton1.BackColor = 14150650
End Sub

Я пробовал разные вещи, но ни одна из моих идей не работает.

Это просто превращается в цвет, который говорят строки 3. Ничего не меняется при клике.

Answer 1

Возможно что-то вроде этого:

Private Sub CommandButton1_Click()
    With CommandButton1
        Select Case .BackColor
            Case vbRed
                .BackColor = vbYellow
            Case vbYellow
                .BackColor = vbGreen
            Case vbGreen
                .BackColor = vbRed
            Case Else ' perhaps not needed, sets default to red
                .BackColor = vbRed
        End Select
    End With
End Sub