Renklerin İsim Karşılıkları

[Saban Sertkaya]

Merhabalar,

Renklerin isim karşılıklarına ihtiyacım var. Şöyleki;

A1'de Kırmızı renk var ise, B1'e Kırmızı veya Red,
A2'de Sarı renk var ise, B2'ye Sarı veya Yellow yazmasına ihtiyacım var.

Bu işlemi temel 56 renk için yaptırmak istiyorum. Mümkün ise yardımlarınızı talep eder, şimdiden emek ve uğraşılarınız için teşekkür ederim.

 

[ASLAN7410]

Merhaba, hayırlı geceler.

Aşağıdaki linkteki kodlar alıntıdır, işinize yarar mı bilmiyorum.

http://s3.dosya.tc/server7/vqg73p/Renkler.xls.html

 

[Emir Hüseyin Çoban]

. . .

Oncelikle renkleri degistirdiginizde kodlar calismaz. Kodlarin tetiklenmesi icin buton tiklanmali...
Bu sekilde isinizi gorecekse 56 rengin colorindex sayisina gore veritabani olusturup buradan cekebiliriz.
Ornegin;
0 - siyah
3 - kirmizi gibi... renklerin sayisal degerlerini forumdan veya makro kaydet ile bulabilirsiniz.

(Mobilden yazildi)

. . .

 

[Ergün GÖKER]

Şaban abi mrb
Bunlar belki işine yarar

http://s6.dosya.tc/server5/r77ulq/Renk_Paleti_ColorIndex.xls.html
http://s6.dosya.tc/server5/r77ulq/Rank_ve_renklendirme.xls.html

 

[Ergün GÖKER]

Abi birde bunu incele

http://s6.dosya.tc/server5/28shkf/ColorIndex__Renk_Paleti_HTML__RGB.xls.html

 

[Saban Sertkaya]

Merhabalar, verdiğiniz cevaplar ve emekler için teşekkür ederim. Malesef verilen linkleri incelemiştim ve ihtiyacımı karşılamamaktadır.

Sayın Çoban, bir renk veritabanı veya el ile girerek renk isimlerine ulaşmak istemiyorum. Makro kaydet yöntemi ile bir şey çıkarabilir miyim diye denedim ve malesef sonuca ulaşamadım. Renk isimlerini de bir buton yardımı ile elde etmek istiyorum.
Yani direkt olarak bu renk isimlerini alabileceğimiz bir kod var mıdır ?

Aslında istediğim biraz şöyledir,

For a = 1 to 56
Cells(a,1).interior.colorindex = a
'[B][COLOR="Green"]Cells(a,2) = cells(a,1).interior.colorindex.[COLOR="Red"]name[/COLOR][/COLOR][/B] gibi,
Next a

Ergün merhabalar. Görüşmek üzere...

 

[Emir Hüseyin Çoban]

.

Vba nin Türkçe destegi olmadigi icin zaten kirmizi yesil demesi imkansiz.
Dedigim gibi 56 rengi kodlara tanimlarsaniz yapilabilir. Suan icin baska cozum yolu yok gibi...

.

 

[Merhum İdris SERDAR]

.

Buradaki örneklere de bakınız.

http://www.excelgurusu.com/?s=renk


.

 

[Saban Sertkaya]

İdris Bey, link ve dosyalar için teşekkür ederim. Çok güzel çalışmalar olmakla birlikte, belirttiğim üzere malesef bu örnekler de ihtiyacımı karşılamamaktadır.

Sayın Çoban, ilginize teşekkür ederim. Eğer istediğim şekilde bir kodlama yok ise, belirttiğiniz üzere renkleri tanımlayarak sonuca gitmeyi düşünüyorum.

Konu hakkında bilgisi veya yardımı dokunabileceklere şimdiden teşekkür ederim.

 

[Mustafa MUTLU]

Konu hakkında bilgisi veya yardımı dokunabileceklere şimdiden teşekkür ederim.

İşlemi nasıl yapacağınızı bilmediğimizden
Ben size bir dosya hazırladım
A sütununda renklerin 1 den 56 ya kadar sıralan mıştır.
C sütununa rengin ismini giriniz.
tuşa tıklama yaptığınızda B sütununa renlerin ismini yazar
(Yani a sütunundaki rengin adını sizin C sütununa girdiğiniz ad gibi yazar)

Birazıcık kod bilginiz varsa bunu kendinize uyarlayabilirsiniz..

 

[antonio]

Sanırım RGB kodları aranıyor. Aşağıdaki bağlantı incelenebilir:
http://dmcritchie.mvps.org/excel/colors.htm

Üç renkten oluşan, her tonun 0-255 arasında değer aldığı çok ayrıntılı bir renk kombinasyonudur.
VBA makro kodları ile ifadesine örnek:

Sub renkler()
Range("A1").Interior.Color = RGB(204, 255, 255)
Range("A2").Interior.Color = RGB(255, 204, 0)
Range("A3").Interior.Color = RGB(0, 255, 255)
Range("A4").Interior.Color = RGB(255, 255, 0)
End Sub

 

[Orion1]

Temel renklerin isimleri ile renklendirebilirsiniz.Diğer renkler için colorindex veya rgb kullanabilirsiniz.

Sub renk()
Range("A1").Interior.Color = vbRed
End Sub

 

[Merhum İdris SERDAR]

Merhabalar,

Renklerin isim karşılıklarına ihtiyacım var. Şöyleki;

A1'de Kırmızı renk var ise, B1'e Kırmızı veya Red,
A2'de Sarı renk var ise, B2'ye Sarı veya Yellow yazmasına ihtiyacım var.

Bu işlemi temel 56 renk için yaptırmak istiyorum. Mümkün ise yardımlarınızı talep eder, şimdiden emek ve uğraşılarınız için teşekkür ederim.

.

Buradaki dosyayı inceleyin.

http://www.excelgurusu.com/excelde-renk-adlari-ve-renk-indeksleri/


.

 

[Saban Sertkaya]

Değerli katkılarınızdan ve değerli vaktinizi ayırmanızdan dolayı, her bir cevap sahibine ayrı ayrı teşekkür ederim.

Sanıyorum ki vba da, renklerin direkt karşılığını veren bir kod yok.

Tekrar teşekkürlerimle...

 

[Merhum İdris SERDAR]

Değerli katkılarınızdan ve değerli vaktinizi ayırmanızdan dolayı, her bir cevap sahibine ayrı ayrı teşekkür ederim.

Sanıyorum ki vba da, renklerin direkt karşılığını veren bir kod yok.

Tekrar teşekkürlerimle...

.

Verdiğim yerdeki dosyayı incelediniz mi? Dosyadaki KTF rengin adını veriyor.

Direkt versin derken ne demek?

Renklerin VBA'daki karşılığı renk indeksi veya RGB numaralarıdır.

Ayrıca; 8 rengin VBA'da tanımları ise şu şekilde yapılmıştır Bunun dışında başkaca tanımlama yok.

1 vbBlack
2 vbWhite
3 vbRed
4 vbGreen
5 vbBlue
6 vbYellow
7 vbMagenta
8 vbCyan

.

 

[Saban Sertkaya]

İdris Bey eklemiş olduğunuz örneği inceledim. Güzel bir örnek, yalnız belirttiğim üzere benim aradığım şey "Kod ile bu renk isimlerini alabilir miyiz ?" şeklinde.

Ben KTF veya renk isimlerini bir yere yazarak oradan ulaşmaya çalışmak istemiyorum. Direkt olarak renklerin isimlerini verebilecek bir kod var ise, ona ulaşmaya çalışıyorum.

Yukarıda 6 nolu mesajda aslında ne istediğimi ifade etmeye çalışmıştım. Aşağıda renklendirilmiş bölümde ifade etmeye çalıştığım tarzda bir kod var mıdır ?

For a = 1 to 56
Cells(a,1).interior.colorindex = a
[B][COLOR="Green"]Cells(a,2) = cells(a,1).interior.colorindex[/COLOR][COLOR="Red"].[U]NAME[/U][/COLOR][/B]
Next a

Ve sanıyorum ki bu tip bir kod yok. Alternatiflerden birini kullanıp işimi göreceğim inşallah.
Emek verip değerli zamanınızı ayırdığınız için tekrar teşekkür ederim.