For Each Döngüsüyle Koşullu Biçimlendirme


 Vba ile minimum ve maximum değerlerin renklendirilmesi

Yapacağımız örnekte ay bazında çeşitli ürünlerin satış adetleri mevcut ve bizden istenilen her ay en çok ve en az satan ürünlerin renklendirilmesi. En çok satan ürünü yeşil, en az satan ürünü ise kırmızı ile renklendireceğiz. Her bir satırın min, mak değerleri birbirinden bağımsız olacak.

Microsoft Excel - vba_for_each_kosullu_bicimlendirme_2

Burada her satırı bağımsız bir yapı olarak ele alıp her satırın içindeki hücrelerde dolaşarak maximum ve minimum değerlerini bulmamız gerekiyor.


Sub renklendir()

 Dim rng As Range

 Dim i As Integer

 For i = 3 To 14 'i değeri satır numaramızı verecek 3 ile 14. satırlarda sırayla dolaşacağız.

 For Each rng In Range("B" & i & ":" & "I" & i)

 If rng.Value = Application.WorksheetFunction.Max(Range("B" & i & ":" & "I" & i)) Then 

'üstünde bulunduğun hücre bu aralıklaki en büyük hücre ise

 rng.Interior.Color = vbGreen 'rengini yeşile boya

 ElseIf rng.Value = Application.WorksheetFunction.Min(Range("B" & i & ":" & "I" & i)) Then

'üstünde bulunduğun hücre bu aralıklaki en küçük hücre ise

 rng.Interior.Color = vbRed 'rengini kırmızıya boya

 End If

 Next rng

 Next i 'bir sonraki satıra geç

 End Sub


 

Microsoft Excel - vba_for_each_kosullu_bicimlendirme

excel dosyasını indirmek için tıklayınız:

download

Reklamlar

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap /  Değiştir )

Connecting to %s