macro to show RGB numbers of a selected cell.

[abhay_547]

Hi All,

I want to come up with a macro which when a user will select a cell and run that macro then the macro will give the RGB numbers of the color pattern which cell has in a msgbox. I have the below code so far. Please expedite.

Function RGB(CellRef As Variant)
RGB = ToHex(Range(CellRef).Interior.Color)
End Function

Function ToHex(ByVal N As Long) As String
strH = ""
For i = 1 To 6
d = N Mod 16
strH = Chr(48 + (d Mod 9) + 16 * (d \ 9)) & strH
N = N \ 16
Next i
ToHex = strH
End Function

Thanks a lot for your help in advance.

[shg]

Function CellColor(r As Range)
    CellColor = Hex(r(1).Interior.Color)
End Function

E.g., =CellColor(A1)

[abhay_547]

Hi Shg,

Thanks a lot for your reply, But I want to get the RGB code and not Hex code.


Thanks a lot for your help in advance.

[Leith Ross]

Hello abhay_457,

What is the difference between the proposed solution and your code?

[abhay_547]

Hi Ross,

Thanks a lot for your reply, I want to get the RGB color numbers and not Hex code. for e.g.

Cell A1 is colored / filled with "Light Yellow" color then the RGB for the same will be R = 255, G = 255, B = 153. So I am looking for something which will show Msgbox RGB("A1").


Thanks a lot for your help in advance.

[Leith Ross]

Hello abhay_547,

Perhaps a macro like this will do...

Sub ShowRGB()

  Dim R As Integer, G As Integer, B As Integer
  Dim N As String
  
    N = Hex(ActiveCell.Interior.Color)
    
      R = Val("&H" & Left(N, 2))
      G = Val("&H" & Mid(N, 3, 2))
      B = Val("&H" & Right(N, 2))
    
    MsgBox "Active Cell Color: R = " & R & ", G = " & G & ", B = " & B
    
End Sub

[romperstomper]

What exactly are you expecting the output to be?

[Marcol]

Does this help?

Function GetRGB(rng As Range)
    Dim strHEX As String

    strHEX = Right("000000" & Hex(rng.Interior.Color), 6)
    GetRGB = WorksheetFunction.Hex2Dec(Right(strHEX, 2)) & ", " & _
             WorksheetFunction.Hex2Dec(Mid(strHEX, 3, 2)) & ", " & _
             WorksheetFunction.Hex2Dec(Left(strHEX, 2))

End Function

Enter so

=GetRGB(A2)

[EDIT]
Where did all these replies come from???...

[romperstomper]

RGB values are always the same for a given colour. However, if you move a file from 2007 to 2003, the colours themselves may change, so the RGB values will be different.