Excel VBA ile Koşullu Biçimlendirme Makrosu: Verileri Otomatik Renklendirme
1. Örnek Veri Tablosu
Aşağıdaki tablo üzerinde koşullu biçimlendirmeyi öğreneceğiz.
2. Temel Koşullu Biçimlendirme
Satış değeri 5'ten büyük olan hücreler kırmızı renk alacak.
Sub KosulluBicimlendirme()
Range("B2:B8").FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=5"
.Interior.Color = RGB(255, 0, 0)
End With
End Sub
Ne Yapar?
B sütununda 5'ten büyük değerleri kırmızı yapar.
🎯 Sonuç:
| Ürün | Satış |
|---|---|
| Laptop | 8 |
| Mouse | 4 |
| Klavye | 10 |
| Monitör | 7 |
| USB Bellek | 3 |
| Yazıcı | 2 |
| Kulaklık | 5 |
3. Formül ile Koşullu Biçimlendirme
Satış değeri 3'ten küçük olan hücreler mavi renk alacak.
Sub FormulIleKosullu()
Range("B2:B8").FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=3"
.Interior.Color = RGB(0, 0, 255)
End With
End Sub
İpucu
xlLess (küçüktür) yerine xlGreater (büyüktür) veya xlEqual (eşittir) kullanabilirsiniz.
🔵 Sonuç:
| Ürün | Satış |
|---|---|
| Laptop | 8 |
| Mouse | 4 |
| Klavye | 10 |
| Monitör | 7 |
| USB Bellek | 3 |
| Yazıcı | 2 |
| Kulaklık | 5 |
4. Birden Fazla Koşul Ekleme
3 farklı koşul:
- >5 → Kırmızı
- 3-5 → Yeşil
- <3 → Mavi
Sub CokluKosul()
Dim rng As Range
Set rng = Range("B2:B8")
' >5 Kırmızı
rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreater, Formula1:="=5"
.Interior.Color = RGB(255, 0, 0)
End With
' 3-5 Yeşil
rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=3", Formula2:="=5"
.Interior.Color = RGB(0, 255, 0)
End With
' <3 Mavi
rng.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, Formula1:="=3"
.Interior.Color = RGB(0, 0, 255)
End With
End Sub
Kullanılan Operatörler
- xlGreater → Büyüktür (>)
- xlBetween → Arasında
- xlLess → Küçüktür (<)
🌈 Sonuç:
| Ürün | Satış |
|---|---|
| Laptop | 8 |
| Mouse | 4 |
| Klavye | 10 |
| Monitör | 7 |
| USB Bellek | 3 |
| Yazıcı | 2 |
| Kulaklık | 5 |
5. Geliştirici Sekmesini Aktifleştirme
1. Geliştirici Sekmesini Aktifleştirin
3. Modül Ekleyin
Makro yazma rehberi için tıklayın.
2. VBA Düzenleyici'yi Açın
Alt + F11 (Win) / Option + F11 (Mac)
4. Kodu Çalıştırın
F5 ile çalıştırın.
F5
▶️ Makroyu çalıştır
6. Sıkça Sorulan Sorular
01 Excel VBA ile koşullu biçimlendirme nasıl yapılır?
FormatConditions.Add metodu ile koşullu biçimlendirme ekleyebilirsiniz.
02 Birden fazla koşul nasıl eklenir?
FormatConditions.Add metodunu birden fazla kez çağırarak ekleyebilirsiniz.
03 Renklendirme nasıl yapılır?
Interior.Color = RGB(255, 0, 0) ile renklendirme yapabilirsiniz.
04 Mac'te koşullu biçimlendirme çalışır mı?
Evet, Mac'te de aynı kodlar çalışır.
05 Kuralları nasıl temizlerim?
Range.FormatConditions.Delete ile tüm kuralları temizleyebilirsiniz.
06 Formül ile koşullu biçimlendirme nasıl yapılır?
Type:=xlExpression ile formül tabanlı koşullar oluşturabilirsiniz.