Изменить, а затем изменить цвет объекта при нажатии на него в Excel

Question

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

Решение:
Я хочу изменить их на Зеленый, если щелкнуть (по отдельности, Не все вместе), а затем снова изменить на серый, если щелкнуть снова.

Это должен быть простой код, но он очень ограничен моим опытом работы с VBA, так как я только начинаю и зацикливаюсь на этом. Пожалуйста, помогите!

Вот как это выглядит:

Answer 1

Используя событие Worksheet_BeforeDoubleClick, вы можете достичь ожидаемых результатов. Приведенный ниже код иллюстрирует, как изменить цвет ячейки с серого на зеленый и обратно, если дважды щелкнуть дважды:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then 'check if double click happens in Column A
    Cancel = True 'Stop the cursor accessing the cell
        If Target.Font.ColorIndex = 16 Then 'check if the cell colour is grey, amend to reflect your actual ColorIndex
            Target.Font.ColorIndex = 50 'change cell color to green
        ElseIf Target.Font.ColorIndex = 50 Then 'if cell is green
            Target.Font.ColorIndex = 16 'change to grey
        End If
    End If
End Sub