VBA Excel - Encontrando o valor RGB de uma célula - Find RGB Value of a color

Termo de Responsabilidade

Em certas implementações precisamos seguir o padrão definido pela empresa que nos contratou e isso inclui a paleta de cores que utilizaremos.

Para não corrermos o risco de não utilizarmos exatamente as mesmas cores que são padrão para empresa, podemos utilizar essa pequena, mas muito útil função de identificação do padrão de cor RGB (Red, Green e Blue).

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

Caso desejamos saber qual é o valor RGB da célula A1, digitaremos na célula B1:  = rgb_color(A1) 

Reference: Excelvbamacros.com

Tags: VBA, Excel, RGB, color, cor, colour,