Renklerin HTML ve RGB Karşılıkları

Konu başlatıcı

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 ! --)(

Gönderildi : 16/11/2013 17:36

Paylaşım için teşekkürler.

1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.