RENK KODLARI
RENK KODLARI
Bu çalışmamda Excel’deki 56 ve 256^3 renk kodları ve simülasyonları verilmiştir.
Renk indeksini bulmak için aşağıdaki KTF (Kullanıcı Tanımlı Fonksiyon) kullanılır. Bu Kodlar 56 renk için işlem görür.
Function Renki(aln As Range, Optional sy As Boolean = False) As Integer
Application.Volatile True
If sy = True Then
Renki = aln(1, 1).Font.ColorIndex
Else
Renki = aln(1, 1).Interior.ColorIndex
End If
End Function
Sözdizimi Örnek:
DOLGU RENGİ İÇİN
=Renki(A1)
=Renk(A1;)
=Renki(A1;0)
=Renki(A1;FALSE)
FONT REGİ İÇİN
=Renki(A1;1)
=Renki(A1;TRUE)
RED – GREEN – BLUE RGB RENK SİSTEMİ
RGB RENK SİSTEMİ, Kırmızı – Red, Yeşil –Green ve Mavi – Blue renklerinin karışımından oluşur. Buna ksaca RGB denir.
RGB‘nin her bileşeni 8 bit kullanır. Her bileşen tamsayı olarak 0’dan 255’e kadar değer alır.
Buna göre, 2^8*2^8*2^8=2^24=256*256*256=16.777.216 renk oluşturulabilir.
Yukarıda renk kodları ile oynayarak 16.777.216 değişik renk elde etmek mümkün.
Aşağıda belirtilen KTF ile RGB kodları bulunur. (Yandaki tabloda tüm renklere yer verilmemiştir. Örnek olması açısında bir miktar renk alınmıştır.)
Function R_G_B(hcr As Range, Optional op As Integer) As Long
Dim C As Long
Dim R As Long
Dim G As Long
Dim B As Long
C = hcr.Interior.Color
R = C Mod (2) ^ 8
G = C \ (2) ^ 8 Mod (2) ^ 8
B = C \ ((2) ^ 8) ^ 2 Mod (2) ^ 8
If op = 1 Then
R_G_B = R
ElseIf op = 2 Then
R_G_B = G
ElseIf op = 3 Then
R_G_B = B
Else
R_G_B = C
End If
End Function
Formüllerle RGB kodlarından Access kodunun bulunması ve Access kodundan RGB kodlarının bulunması.
RGB kodları yardımı ile Acces Kodunun bulunması:
=R+G*2^8+B*2^16
Acces Kodundan RGB Kodlarının bulunması:
R için: =INT(MOD(Access Kodu;2^8))
G için: =INT(MOD(Acces Kodu/2^8;2^8))
B için: =INT(MOD(Access Kodu/(2^8)^2;2^8))
Dosya:
Son Yorumlar