VBA ile Hücreleri Boyama

VBA ile Hücreleri Boyama, hücre dolgu renklerinin makro koduyla nasıl atandığını gösteren örnek bir çalışma dosyasıdır. Sayfadaki ilk 56 satır, Interior.ColorIndex özelliği kullanılarak sırayla 1'den 56'ya kadar renk indeksleriyle boyanır. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Sayfa1: Başlangıçta A1:A56 aralığı kullanılır. Sayfada bir ToggleButton1 düğmesi bulunur; renkleri uygulamak ve silmek için kullanılır.

Makrolar​

Dosya iki makro içerir; ikisi de kullanıcı verisine zarar vermeyecek biçimde yalnızca bu sayfada çalışır, dosya silme ya da dış bağlantı işlemi yoktur.

• renkler (Module1): 1'den 56'ya kadar döngü kurar. Her satırda A sütunu hücresinin dolgu rengini sıradaki ColorIndex değerine ayarlar, B sütununa da o satırın numarasını yazar. Böylece B sütunu, A sütunundaki rengin hangi indekse ait olduğunu gösterir.
• ToggleButton1_Click (Sayfa1): Düğme basılı duruma geçtiğinde başlığı "Renkleri Sil" olur ve renkler makrosu çalıştırılır. Düğme eski konumuna dönünce başlık "Renkler" olur ve Cells.Clear ile sayfadaki tüm hücrelerin içeriği ve biçimi temizlenir.

Dikkat: Cells.Clear yalnızca renkleri değil, sayfadaki tüm veriyi de siler. Bu nedenle sayfaya kendi verinizi eklemeyin ya da düğmeyi kullanmadan önce kopyasını alın.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Sayfa1 üzerindeki Renkler düğmesine basın; A1:A56 hücreleri boyanır, B sütununa satır numaraları yazılır.
3. Temizlemek için aynı düğmeye ("Renkleri Sil") tekrar basın.
4. Kodu incelemek için Alt+F11 ile VBA düzenleyicisini açın; Module1 içindeki renkler makrosunda satır sayısı ve renk atama biçimi değiştirilebilir.