Renklerin HTML ve RGB Karşılıkları

Renklerin [b]HTML[/b] ve [b]RGB[/b] karşılıklarını öğrenmek için aşağıdaki kodları kullanabilirsiniz..

[img] [/img]

Sub Renkleri_Karşılıkları()
    Dim i As Long, str0 As String, str As String
    Cells(1, 1) = "Interior"
    Cells(1, 2) = "Font"
    Cells(1, 3) = "HTML"
    Cells(1, 4) = "RED"
    Cells(1, 5) = "GREEN"
    Cells(1, 6) = "BLUE"
    Cells(1, 7) = "COLOR"
    For i = 0 To 56
        Cells(i + 2, 1).Interior.ColorIndex = i
        Cells(i + 2, 2).Font.ColorIndex = i
        Cells(i + 2, 2).Value = "[Color " & i & "]"
        str0 = Right("000000" & Hex(Cells(i + 2, 1).Interior.Color), 6)
        str = Right(str0, 2) & Mid(str0, 3, 2) & Left(str0, 2)
        Cells(i + 2, 3) = "#" & str
        Cells(i + 2, 4).Formula = "=Hex2dec(""" & Right(str0, 2) & """)"
        Cells(i + 2, 5).Formula = "=Hex2dec(""" & Mid(str0, 3, 2) & """)"
        Cells(i + 2, 6).Formula = "=Hex2dec(""" & Left(str0, 2) & """)"
        Cells(i + 2, 7) = "[Color " & i & "]"
    Next i
    i = Empty: str0 = "": str = ""
End Sub

Hoşça kalın !