Hücredeki Sayı Aralığına Göre Satırı Renklendirme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
[*]ws değişkeni, işlem yapılacak çalışma sayfasını temsil eder.
[*]aralik değişkeni, renklendirme yapılacak hücrelerin aralığını belirtir. Bu örnekte A1:A10 aralığı kullanılmıştır.
[*]minValue ve maxValue değişkenleri, renklendirme için belirlenen sayısal değer aralığını temsil eder.
[*]Döngü (For Each hucre In aralik), belirlenen aralıktaki her hücre için çalışır.
[*]If IsNumeric(hucre.Value) Then kontrolü, hücrenin sayısal bir değer içerip içermediğini kontrol eder.
[*]If hucre.Value >= minValue And hucre.Value <= maxValue Then kontrolü, hücre değerinin belirtilen aralıkta olup olmadığını kontrol eder.
[*]Eğer koşul sağlanırsa, hucre.EntireRow.Interior.Color özelliği ile ilgili satırın arka plan rengi değiştirilir.
Bu makro, belirtilen aralıktaki sayısal değerlere göre satırları renklendirir. Renk ve aralık değerlerini ihtiyacınıza göre düzenleyebilirsiniz.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Görüntülemek için giriş yapmanız gerekmektedir.
(27 satır)Açıklama
[*]ws değişkeni, işlem yapılacak çalışma sayfasını temsil eder.
[*]aralik değişkeni, renklendirme yapılacak hücrelerin aralığını belirtir. Bu örnekte A1:A10 aralığı kullanılmıştır.
[*]minValue ve maxValue değişkenleri, renklendirme için belirlenen sayısal değer aralığını temsil eder.
[*]Döngü (For Each hucre In aralik), belirlenen aralıktaki her hücre için çalışır.
[*]If IsNumeric(hucre.Value) Then kontrolü, hücrenin sayısal bir değer içerip içermediğini kontrol eder.
[*]If hucre.Value >= minValue And hucre.Value <= maxValue Then kontrolü, hücre değerinin belirtilen aralıkta olup olmadığını kontrol eder.
[*]Eğer koşul sağlanırsa, hucre.EntireRow.Interior.Color özelliği ile ilgili satırın arka plan rengi değiştirilir.
Bu makro, belirtilen aralıktaki sayısal değerlere göre satırları renklendirir. Renk ve aralık değerlerini ihtiyacınıza göre düzenleyebilirsiniz.
Faydalanılması temennisiyle
