Bu dosya, kullanıcının InputBox ile seçtiği başlangıç hücresinden itibaren verilen kolon gruplarını hücre değerine göre renklendiren bir VBA örneğidir. Renklendirme ColorColumns makrosuyla yapılır.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- Sayfa1: B2:M17 aralığında örnek veri bulunur. B sütununda AAA, BBB, CCC gibi kodlar, D sütununda bu kodlara karşılık gelen sayılar yer alır. F sütunundaki sayılar ile H sütunundaki kodlar ve J sütunundaki sayılar da aynı düzende devam eder.
- Module1: ColorColumns makrosunu barındıran VBA modülüdür.
Makrolar
ColorColumns makrosu şu adımlarla çalışır:- Application.InputBox ile başlangıç hücresi seçtirilir. Seçim yapılmazsa "Lütfen Bir Hücre Seçiniz" uyarısı verilir.
- İkinci InputBox ile her grupta kaç kolonun renklendirileceği sorulur.
- Başlangıç hücresinden sağa ve aşağıya doğru End ile son sütun ve son satır belirlenir.
- Başlangıç sütunundan itibaren kolon sayısı kadar adımlarla ilerlenir. Her satırda, grubun ilk sütunundaki değer kontrol edilir ve gruptaki tüm hücreler aynı renge boyanır.
- Renkler değere göre atanır: AAA, BBB, CCC, DDD, EEE, FFF, GGG ve HHH kodlarının her biri için ayrı bir dolgu rengi vardır. FFF ve HHH için yazı rengi beyaz, diğerleri için siyahtır. Listede olmayan değerler beyaz dolguyla bırakılır.
- İşlem sırasında ekran güncellemesi kapatılır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin.
- ALT+F8 ile ColorColumns makrosunu çalıştırın.
- Açılan kutuda başlangıç hücresini seçin; örnek veride B2 kullanılabilir.
- Kaç kolonun bir grup olarak boyanacağını girin. Örnek veride her grup iki sütundan oluştuğu için 2 girilir.
- Hücreler koda göre renklendirilir. Kendi verinizde farklı kodlar kullanacaksanız VBA düzenleyicisinde Select Case bölümündeki değerleri değiştirin.
