Excel 2007 - условное форматирование - как превратить цветовые коды в цвета?

Question

У меня есть очень простой код макроса, который показывает цвет цветового кода, который записан внутри клетки:

Sub ShowColour() 
    ColCod = Selection() 
    With Selection.Interior 
     .Pattern = xlSolid 
     .PatternColorIndex = xlAutomatic 
     .Color = ColCod 
     .TintAndShade = 0 
     .PatternTintAndShade = 0 
    End With 
End Sub 

Я теперь ищет какой-то способ для изменения содержимого ячейки в другой цветовой код и немедленно показать его цвет. Я экспериментировал с условным формированием, но, похоже, я могу выбирать только из заранее определенных форматов. Может ли кто-нибудь дать мне подсказку?

Answer 1

Если вы мне правильно поняли, вы должны добавить этот код в соответствующий модуль листа, например, с именем Sheet1 (Sheet1) '(не в стандартный модуль, например Module1). В результате этот код запустит соответствующее событие для вас.

Private Sub Worksheet_Change(ByVal Target As Range) 

On Error GoTo ErrorHandler 
With Target.Interior 
    .Pattern = xlSolid 
    .PatternColorIndex = xlAutomatic 
    .Color = Target.Value 
    .TintAndShade = 0 
    .PatternTintAndShade = 0 
End With 

Exit Sub 
ErrorHandler: 
    MsgBox "Color number rather doesn't exists" 
End Sub 

Я сохранил ваш базовый код внутри, поскольку вам было бы легче.