Bu yazımızda seçili alana koşullu biçimlendirme uygulamak için bir makro oluşturacağız.
Makronun çalışmasını göstermek için örnek veri olarak rastgele sayılar kullandık.
Makro, “Ana” sayfada “Maks Bul” düğmesine tıklanarak çalıştırılabilir.
Mantıksal açıklama
Seçilen alana koşullu biçimlendirme uygulamak için “ConditionalFormat” makrosu oluşturduk. Bu makro, seçili alandaki maksimum değeri içeren hücreyi mor renkte vurgular.
Bu makroyu çalıştırmadan önce, koşullu biçimlendirmeyi uygulamak istediği bir alan seçilmelidir.
Örneğin, seçilen veri örneği olarak B9'dan F17'ye kadar bir hücre aralığı seçtik.
Örnek alan seçildikten sonra makro çalıştırıldığında, seçilen alana koşullu biçimlendirme uygulanır ve en yüksek değeri (97) içeren D16 hücresi mor renkle vurgulanır.
Şimdi, başka bir örnek alın. İkinci numune alanı olarak B10 hücresinden F13'e kadar olan aralığı seçtik.
İkinci örnek alanı seçtikten sonra makroyu çalıştırmak için “Maks Bul” düğmesine tıklayın. Seçili alana koşullu biçimlendirme uygulanacak ve seçilen alanda maksimum değeri (92) içerdiğinden C11 hücresi menekşe rengiyle vurgulanacaktır.
İki farklı örnek için makro çalıştırıldıktan sonra her ikisine de koşullu biçimlendirme uygulanır. Numune verilerinde, ilgili numunelerinde maksimum değerleri temsil ettikleri için hem C11 hem de D16 hücreleri menekşe rengiyle vurgulanacaktır.
Örneklerden herhangi birindeki değerler değiştirilirse ve yeni eklenen değerlerden biri en yüksek değerse, o değere sahip hücre vurgulanır.
Kod açıklaması
Selection.FormatConditions.Delete
Yukarıdaki kod, seçilen verilere uygulanan herhangi bir koşullu biçimlendirmeyi silmek için kullanılır.
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=" & Selection.Cells(1).Address(False, False) & "=MAX(" & Selection.Address & ")"
Yukarıdaki kod, yeni bir koşullu biçimlendirme eklemek için kullanılır. Tür, ifadenin koşul biçimlendirmesini uygulamak için kullanıldığını belirtir. İfadenin formülü Formül1'de tanımlanmıştır.
Selection.Cells(1).Address(Yanlış, Yanlış)
Yukarıdaki kod, seçimdeki ilk hücrenin adresine referans vermek için kullanılır.
"=" & Selection.Cells(1).Address(False, False) & "=MAX(" & Selection.Address & ")"
Yukarıdaki kod, ilk seçilen hücrenin değerini, seçimin maksimum değeriyle karşılaştırmak için kullanılır.
Selection.FormatConditions(1).Interior.ColorIndex = 39
Yukarıdaki kod, biçimlendirme koşulunu sağlayan hücreye menekşe rengi atamak için kullanılır.
Lütfen kod için aşağıdan takip edin
Sub ConditionalFormat() Selection ile 'Önceki herhangi bir koşullu biçimlendirmeyi silin .FormatConditions.Delete' seçili hücreye koşullu biçimlendirme ekleyin .FormatConditions.Add Type:=xlExpression, Formula1:= _ "=" & Selection.Cells(1).Address(False) , False) & "=MAX(" & Selection.Address & ")" 'Koşullu biçimlendirme için Mor renk atama .FormatConditions(1).Interior.ColorIndex = 39 End With End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın