excel vba rgb colors converter
Public Function ConvertRGBToHEX(iRed As Integer, iGreen As Integer, iBlue As Integer) As String
ConvertRGBToHEX = "#" & Right("0" & Hex(iRed), 2) & Right("0" & Hex(iGreen), 2) & Right("0" & Hex(iBlue), 2)
End Function
Public Function ConvertHexToRGB(sHexColor As String, sRGB As String) As Integer
sHexColor = Replace(sHexColor, "#", "")
Select Case UCase(sRGB)
Case "R"
ConvertHexToRGB = CInt("&h" & Left(sHexColor, 2))
Case "G"
ConvertHexToRGB = CInt("&h" & Mid(sHexColor, 3, 2))
Case "B"
ConvertHexToRGB = CInt("&h" & Right(sHexColor, 2))
End Select
End Function
Public Function ConvertRGBToLong(iRed As Integer, iGreen As Integer, iBlue As Integer) As Long
ConvertRGBToLong = RGB(iRed, iGreen, iBlue)
End Function
Public Function ConvertLongToRGB(lColor As Long, sRGB As String) As Integer
Select Case UCase(sRGB)
Case "R"
ConvertLongToRGB = lColor Mod 256
Case "G"
ConvertLongToRGB = lColor \ 2 ^ 8 Mod 256
Case "B"
ConvertLongToRGB = lColor \ 2 ^ 16 Mod 256
End Select
End Function
Public Function ConvertLongToHex(lColor As Long) As String
Dim sRed As String, sGreen As String, sBlue As String
sRed = Right("00" & Hex(lColor Mod 256), 2)
sGreen = Right("00" & Hex(lColor \ 2 ^ 8 Mod 256), 2)
sBlue = Right("00" & Hex(lColor \ 2 ^ 16 Mod 256), 2)
ConvertLongToHex = "#" & sRed & sGreen & sBlue
End Function
Public Function ConvertHexToLong(sHexColor As String) As Long
Dim sRed As String, sGreen As String, sBlue As String
sHexColor = Replace(sHexColor, "#", "")
sRed = Left(sHexColor, 2)
sGreen = Mid(sHexColor, 3, 2)
sBlue = Right(sHexColor, 2)
ConvertHexToLong = CLng("&h" & sBlue) * 2 ^ 16 + CLng("&h" & sGreen) * 2 ^ 8 + CLng("&h" & sRed)
End Function