Как получить значение цвета HEX из цвета ячейки?

Это обеспечивает шестнадцатеричные значения RGB в правильном порядке и с двумя цифрами каждое (т. е. для каждого цвета):

Function GetHexColor(cel As Range) As String
    If cel.Cells.Count <> 1 Then Exit Function
    Dim lColorNum As Long, iRed As Integer, iGreen As Integer, iBlue As Integer
    lColorNum = cel.Interior.Color
    iRed = lColorNum And 255
    iGreen = lColorNum \ 256 And 255
    iBlue = lColorNum \ 256 ^ 2 And 255
    GetHexColor = Right$("0" & Hex(iRed), 2) & Right$("0" & Hex(iGreen), 2) & Right$("0" & Hex(iBlue), 2)
End Function

... возвращая 750D02 и AE0F21 для двух цветов из вашего связанного «подробного объяснения».

Проще

Function GetColorInHex(cc As Range) As String
  Dim s As String
  s = Hex(cc.Cells(1).Interior.Color)
  s = String(6 - Len(s), "0") & s
  GetColorInHex = Right(s, 2) & Mid(s, 3, 2) & Left(s, 2)
End Function