VBA Döngülerle Koşullu Biçimlendirme

Bu yazıda 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 belirtilmesi.

En çok satan ürünü sarı, en az satan ürünü ise kırmızı ile renklendireceğiz.

	A	B	C	D	E	F	G
1	aylar	ürün-1	ürün-2	ürün-3	ürün-4	ürün-5
2	ocak	62	56	65	42	52
3	şubat	32	76	62	54	74
4	mart	59	39	29	70	73
5	nisan	60	36	69	58	27
6	mayıs	69	40	54	38	32
7	haziran	80	56	72	52	39
8	temmuz	52	39	37	34	51
9	ağustos	32	20	68	41	33
10	eylül	47	28	67	20	75
11	ekim	50	53	71	72	32
12	kasım	30	23	66	26	25
13	aralık	26	49	42	36	21
14
15

 

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 = 2 To 13 'i değeri satır numaramızı verecek A2 ile A13 arasındaki tüm satırlarda sırayla dolaşacağız.

 

For Each rng In Range("A" & i & ":" & "F" & i)

 

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

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

rng.Interior.Color = vbYellow 'rengini sarıya boya

 

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

'üstünde bulunduğun hücre bu aralıklatki 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



vba max min