Excel Makroları ile Renk Paleti Oluşturma

Bu dosya, Excel'in 56 renkli ColorIndex paletini bir makro ile sayfaya döker. Her renk numarası yanındaki hücrede o rengin kendisiyle gösterilir; böylece VBA kodunda veya hücre biçimlendirmede kullanılacak renk numarası görsel olarak bulunur.

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sheet1: A1:G56 aralığını kapsayan tek sayfadır. A sütununda 1'den başlayan renk numaraları yer alır. Makro çalıştırıldığında B sütunundaki hücreler bu numaralara karşılık gelen renkle boyanır.
• Module1: İki prosedür içeren VBA modülüdür: renkpaleti ve RenkPaletim.

Dosyada çalışma sayfası formülü bulunmaz; tüm işlem makrolarla yapılır.

Makrolar​

• renkpaleti: Önce Cells.Delete ile sayfadaki tüm hücreleri siler, böylece önceki renkler temizlenir. Ardından 1'den 56'ya giden bir For...Next döngüsü çalışır. Döngü her adımda A sütununa sıra numarasını yazar, aynı satırdaki B hücresinin Interior.ColorIndex değerini bu numaraya ayarlar.
• RenkPaletim: RenkKodu adlı bir tam sayı alan fonksiyondur. Aktif hücrenin dolgu rengini verilen ColorIndex değerine ayarlar.

Makro sayfadaki tüm hücreleri sildiği için, çalıştırmadan önce aynı sayfada tutulması gereken veri varsa başka bir sayfaya taşınmalıdır. Kodda dosya silme veya dış bağlantı gibi işlemler yoktur.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Alt+F8 tuşlarıyla makro listesini açın, renkpaleti makrosunu seçip Çalıştır düğmesine basın.
3. A sütunundaki numaralar ile B sütunundaki renkleri karşılaştırarak ihtiyacınız olan renk numarasını belirleyin.
4. Belirlediğiniz numarayı kendi VBA kodunuzda Interior.ColorIndex özelliğine yazarak kullanın.
5. Aktif hücreyi tek tek boyamak için RenkPaletim fonksiyonu kullanılabilir; kodda renk numarası parametre olarak verilir.