Excel 2007 - formatação condicional - como transformar códigos de cores em cores? - excel-vba, excel-2007, vba, excel

Eu tenho um código de macro muito simples que mostra a cor do código de cor que é gravado dentro de uma célula:

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

Eu estou procurando agora alguma maneira de mudar oconteúdo da célula em outro código de cor e ser imediatamente mostrado a cor. Eu experimentei com formatação condicional, mas parece que eu só posso escolher entre os formatos pré-definidos. Alguém pode me dar uma dica?

Respostas:

Se eu acertar você precisa adicionar este códigomódulo de folha apropriado, como um chamado "Sheet1 (Sheet1)" (não no módulo padrão como Module1). Como resultado, este código irá disparar um evento apropriado para você.

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

Eu mantive seu código básico dentro, pois seria mais fácil para você.