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:
Sub SatiriRenklendir()
Dim ws As Worksheet
Dim aralik As Range
Dim hucre As Range
Dim minValue As Integer
Dim maxValue As Integer
' Çalışacak olan çalışma sayfasını ayarla
Set ws = ThisWorkbook.Sheets("Sheet1") ' "Sheet1" yerine istediğiniz sayfa adını yazın
' Renklendirme yapılacak aralığı ayarla
Set aralik = ws.Range("A1:A10") ' Örnek olarak A1:A10 aralığını kullanıyoruz
' Değer aralığını ayarla
minValue = 5 ' Minimum değer
maxValue = 10 ' Maksimum değer
' Her hücre için döngü
For Each hucre In aralik
If IsNumeric(hucre.Value) Then
If hucre.Value >= minValue And hucre.Value <= maxValue Then
' Eğer hücre değeri belirtilen aralıkta ise satırı renklendir
hucre.EntireRow.Interior.Color = RGB(255, 255, 0) ' Sarı renk
End If
End If
Next hucre
End SubAçı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
