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

Inline image 1

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, 


Inline image 1

Nenhum comentário:

Postar um comentário

diHITT - Notícias