RGB Value of Textbox1.BackColor which is equivalent to &H0080C0FF&

[NimishK]

Hi

if selected the backcolor of Textbox1 which is &H0080C0FF&
Can any one tell me its RGB Value

Thanks
NimishK

 

[Yongle]

The function below returns (255,192,128)
( Credit https://officetricks.com/convert-excel-vba-color-codes-rgb-hex/ )

Sub Test()
    MsgBox VBA_Hex_To_RGB("[COLOR=#ff0000]H0080C0FF[/COLOR]")
End Sub

Function VBA_Hex_To_RGB(hColor As String) As String
    Dim iRed, iGreen, iBlue
'Convert HEx to RGB
    hColor = VBA.Replace(hColor, "#", "")
    hColor = VBA.Right$("000000" & hColor, 6)
    iBlue = VBA.Val("&H" & VBA.Mid(hColor, 1, 2))
    iGreen = VBA.Val("&H" & VBA.Mid(hColor, 3, 2))
    iRed = VBA.Val("&H" & VBA.Mid(hColor, 5, 2))
'Return RGB Code
    VBA_Hex_To_RGB = "(" & iRed & "," & iGreen & "," & iBlue & ")"
End Function

This may also be useful - Hex value of background colour in active cell

MsgBox Right("000000" & Hex(ActiveCell.Interior.Color), 6)

An excellent site about colours http://dmcritchie.mvps.org/excel/colors.htm

 

[NimishK]

Thanks Yongle for refering the link https://officetricks.com/convert-exc...codes-rgb-hex/ )

Before posting the Thread had explored http://dmcritchie.mvps.org/excel/colors.htm

Thank you so much dear
NimishK