Top 10 Değeri Renklendirme

Top 10 Değeri Renklendirme isimli bu kod, Koşullu Biçimlendirme özelliği ile seçilen alandaki Top 10 değeri renklendirme işlemi sağlar.

XD Destek İste
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 Sub

Gerekli Adımlar

Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.

  1. Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
  2. Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
  3. Araç çubuklarından Insert -> Module yazısına tıklayın.
  4. Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
  5. Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
  6. Üstteki kodu yapıştırın.

Kod Açıklaması

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.

#Top 10 Değeri Renklendirme
50 Farklı Hazır Makro (VBA) Kodu
Excel Hücresine Gitme Makrosu
Satırlardaki Farkı Renklendirme
Excel Makroları ile Dosya Sayısını Bulma
Excel Makroları ile Klasör Arama
Excel Makroları ile Dosya Taşıma
Sütunu Kes Kopyala ve Yapıştır
Birleştirilmiş Hücrelerin Başlangıç Bitiş Sütununu Belirleme
Excel ile Faiz Hesaplama Kodu
UserForm Resize Özelliği Eklemek
Kopyala ve Değer Olarak Yapıştır
Seçili Sütunların Sayısını Bulma
Excel Hücresini Seçme Makrosu
Listbox ve Combobox Satır Kaydırma
Gizli Sayfaların Bulunması ve Gösterilmesi
Giriş Kutusu ve Mesaj Yazma İşlemi
Alarmlı Saat Ekleme Kodu
Excel Üzerinden Klasör Açma Kodu
Belirli Kriterlere Sahip Satırları Silme
Dizileri Döngüye Eklemek
56 Koşula Kadar Biçimlendirme Yapma
2. Derece Denklemin Grafiğini Çizmek
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Her Bir Sütundaki Maksimum Değeri Bulma
Dolar Okutma Makrosu
Excel Dosya Arama Yapma Makrosu
Kes Kopyala ve Başka Çalışma Kitabına Yapıştır
Label Nesnesine Kayan Yazı Ekleme
Aktif Satırı ve Sütunu Vurgulama
Excel Kapanırken Otomatik İşlem Yaptırma
Aktif Hücrenin Sütun Numarasını Bulma
Makro ile Hızlı Doldurma
Satırı Kes Kopyala ve Yapıştır
Formu Kapatma Makro Kodu
Makro ile Boş Satırları Silme
Bir Değeri Renklendirme
Hücre Aralığını Kes Kopyala ve Yapıştır
Transparan UserForm Oluşturmak
Yazı Efekti Verme Kodu
Hatalı Hücreleri Renklendirme
Makrolar ile Eliptik Form Oluşturma
Bir Aralıktaki Minimum Değeri Renklendirme
Excel Dosya Silme İşlemi Makrosu
Seçili Hücrenin Sütun Harfini Bulma
Kopyala ve Özel Yapıştır
Excel Makroları ile Form Çağırma
Excel Üzerinden Klasör Alma Kodu
Kopyala ve Biçimleri Yapıştır
Boşluk Olan Hücreleri Renklendirme
Hücrede Değişiklik Olduğunda Makroyu Çalıştırma
Üstteki alanda, Google Reklamları yerine sizin reklamınızın yayınlanmasını ister misiniz?
Reklam vermek istiyorum

Daha önce yorum yapılmamış!

Excel hücrelerinizde, ok tuşlarının dışında;

  • Enter tuşu ile alt hücreye,
  • Shift + Enter tuşları ile üst hücreye
  • Tab ile sağ hücreye,
  • Shift + Tab tuşları ile sol hücreye
gidebilirsiniz.
Yükleniyor...