UDF to find RGB Value of a color

ashish koul · Nov 2, 2012

If you want to know the RGB Value of a Fill color . Try this UDF

[pre]

Code:

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 = &#34;Red - &#34; & rc & &#34; Green - &#34; & gc & &#34; Blue - &#34; & bc
Else
rgb_color = &#34;Please select single cell only&#34;
End If
End Function

[/pre]

UDF to find RGB Value of a color

ashish koul

Member