Excel obter a cor da célula no padrão rgb

[Boudais]

Olá

Estou com um problema para retornar a cor de uma célula num código RGB quanto esta está preenchida com cor de tabela ou por formatação condicional.

Por exemplo:

Uma célula eu a colori de amarelo e quero que a cor desta seja retornada em outra célula pelo código RGB, porém há uma formatação condicional a pode deixa-la preta, e esta nova cor não retorna para a célula do código RGB. Nesta célula fica mantida a cor amarela.

Estou usando a função abaixo:

 

Function rgb_color(cl As Range) As String
Dim rgbc As Long, rc As Long, gc As Long, bc As Long
If cl.Cells.Count = 1 Then
rc = cl.Interior.Color Mod 256
rgbc = Int(cl.Interior.Color / 256)
gc = rgbc Mod 256
bc = Int(rgbc / 256)
rgb_color = "Red - " & rc & " Green - " & gc & " Blue - " & bc
Else
rgb_color = "Please select single cell only"
End If
End Function

 

Há uma forma de retornar o RGB da cor aparente?

Eu deixei um exemplo anexado.

 

collor-rgb R0.xlsm

[CasaDoHardware]

Faça um teste 

 

Altere a cor e digite algo em qualquer celula da planilha

 

Se a cor funcionar  insira Calculate

 

Antes do IF

 

Deve resolver

 

 

[Boudais]

Testei mas sem sucesso.

 

O código apresentado ainda é da cor que pintei a célula, não a mostrada pela formatação condicional que seria preta(Red - 0 Green - 0 Blue - 0)

 

Se tiver mais sugestões agradeço.

[Basole]

Veja a sugestao...se pode sr com a formula se.

 

 

collor-rgb R0-V1.xlsm

[Boudais]

Basole 

 

Ficou muito bom.

 

Valeu