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 LongIf cl.Cells.Count = 1 Thenrc = cl.Interior.Color Mod 256rgbc = Int(cl.Interior.Color / 256)gc = rgbc Mod 256bc = Int(rgbc / 256)rgb_color = "Red - " & rc & " Green - " & gc & " Blue - " & bcElsergb_color = "Please select single cell only"
End If
Caso desejamos saber qual é o valor RGB da célula A1, digitaremos na célula B1: = rgb_color(A1)End Function
Tags: VBA, Excel, RGB, color, cor, colour,
Nenhum comentário:
Postar um comentário