Top 10 Değeri Renklendirme isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Önce alan seçilir.
Kod çalıştırılır, sonuç.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Sub Top10()
Selection.FormatConditions.AddTop10
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.TopBottom = xlTop10Top
.Rank = 10
.Percent = False
End With
With Selection.FormatConditions(1).Font
.Color = -16752384
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13561798
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End SubAçıklama
Rakamlarınızın olduğu bir listeyi seçtikten sonra kodu çalıştırmanız yeterli olacaktır. Eğer 10 yerine daha az ya da fazla bir değer belirlemek isterseniz; .Rank = 10 kısmındaki 10 değerini değiştirmeniz yeterli olacaktır.Önce alan seçilir.
Kod çalıştırılır, sonuç.
Faydalanılması temennisiyle
