Bu dosya, A sütunundaki hücrelere girilen sayıların değerine göre hücre rengini VBA makrosuyla otomatik değiştirir. Sayılar beşerli gruplara ayrılır ve her grup farklı bir renkle gösterilir. Koşullu Biçimlendirme menüsü yerine makro kullanıldığı için renk kuralları kod içinde tanımlıdır.
Dosyanın içeriği
- Sayfa1: Renklendirmenin uygulandığı tek çalışma sayfasıdır. Makro A1:A20 aralığını izler; 2. satırda örnek olarak A sütununa 1 ve 2 değerleri girilmiştir.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Makro Sayfa1 sayfasının koduna yazılmıştır ve Worksheet_Change olayıyla çalışır; ayrıca çalıştırma düğmesi gerekmez. A1:A20 aralığındaki bir hücre değiştiğinde değer şu gruplara göre renklendirilir:- 1-5 arası: ColorIndex 6
- 6-10 arası: ColorIndex 12
- 11-15 arası: ColorIndex 7
- 16-20 arası: ColorIndex 53
- 21-25 arası: ColorIndex 15
- 26-30 arası: ColorIndex 40
- Bu aralıkların dışındaki değerler: dolgu rengi kaldırılır
Nasıl kullanılır
- Dosyayı açın ve güvenlik uyarısında İçeriği Etkinleştir seçeneğini kullanarak makroları etkinleştirin.
- Sayfa1 üzerinde A1:A20 aralığındaki herhangi bir hücreye sayı girin.
- Hücre, girilen sayının bulunduğu gruba karşılık gelen renge otomatik boyanır.
- Renkleri veya grup aralıklarını değiştirmek için Alt+F11 ile VBA düzenleyicisini açın, Sayfa1 kodundaki Case satırlarında aralıkları ve RenkNo değerlerini düzenleyin.