Transformar uma cor em valor digital

Novembro 2016

Em caso de necessidade, com esta macro, você pode obter o código de uma cor para um processamento posterior
Sub distri_cor()   
  Dim i   
  For i = 1 To 12   
    Worksheets(1).Range("C" & i).Value = Worksheets(1).Range("B" & i).Interior.Color   
  Next i   
End Sub
'Substituir o 10 pelo número de linhas que você quer processar.
'Substituir o "I" pela coluna que você quer utilizar para o resultado (código de cor).
'Substituir o "B" pela coluna que contém as cores a serem filtradas.


Tradução feita por Lucia Maurity y Nouira

Veja também :
Este documento, intitulado « Transformar uma cor em valor digital  »a partir de CCM (br.ccm.net) está disponibilizado sob a licença Creative Commons. Você pode copiar, modificar cópias desta página, nas condições estipuladas pela licença, como esta nota aparece claramente.