56 Koşula Kadar Biçimlendirme Yapma

26 Aralık 2020 1075

56 Koşula Kadar Biçimlendirme Yapma isimli kod, 56 ayrı koşul ile renklendirme yapmanızı sağlayacak hazır bir VBA kodudur.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Cells.Count > 1 Then Exit Sub
On Error GoTo ws_exit:
'Buradan koşullu biçimlendirme yapacağımız aralığı verebiliriz
Set rng = Application.Intersect(Target, Me.Range("A:z"))
If rng Is Nothing Then Exit Sub
    With Target
        Select Case UCase(.Value)
        'Burada "" içindeki rakamlar yerine sözcükler yazılabilir. = İşaretinden sonra yer alan sayılar renk indeksidir.
        Case Is = "1": .Interior.ColorIndex = 1
        Case Is = "2": .Interior.ColorIndex = 2
        Case Is = "3": .Interior.ColorIndex = 3
        Case Is = "4": .Interior.ColorIndex = 4
        Case Is = "5": .Interior.ColorIndex = 5
        Case Is = "6": .Interior.ColorIndex = 6
        Case Is = "7": .Interior.ColorIndex = 7
        Case Is = "8": .Interior.ColorIndex = 6
        Case Is = "9": .Interior.ColorIndex = 9
        Case Is = "10": .Interior.ColorIndex = 10
        Case Is = "11": .Interior.ColorIndex = 11
        Case Is = "12": .Interior.ColorIndex = 12
        Case Is = "13": .Interior.ColorIndex = 13
        Case Is = "14": .Interior.ColorIndex = 14
        Case Is = "15": .Interior.ColorIndex = 15
        Case Is = "16": .Interior.ColorIndex = 16
        Case Is = "17": .Interior.ColorIndex = 17
        Case Is = "18": .Interior.ColorIndex = 18
        Case Is = "19": .Interior.ColorIndex = 19
        Case Is = "20": .Interior.ColorIndex = 20

Case Is = "21": .Interior.ColorIndex = 21
        Case Is = "22": .Interior.ColorIndex = 22
        Case Is = "23": .Interior.ColorIndex = 23
        Case Is = "24": .Interior.ColorIndex = 24
        Case Is = "25": .Interior.ColorIndex = 25
        Case Is = "26": .Interior.ColorIndex = 26
        Case Is = "27": .Interior.ColorIndex = 27
        Case Is = "28": .Interior.ColorIndex = 28
        Case Is = "29": .Interior.ColorIndex = 29
        Case Is = "30": .Interior.ColorIndex = 30
        Case Is = "31": .Interior.ColorIndex = 31
        Case Is = "32": .Interior.ColorIndex = 32
        Case Is = "33": .Interior.ColorIndex = 33
        Case Is = "34": .Interior.ColorIndex = 34
        Case Is = "35": .Interior.ColorIndex = 35
        Case Is = "36": .Interior.ColorIndex = 36
        Case Is = "37": .Interior.ColorIndex = 37
        Case Is = "38": .Interior.ColorIndex = 38
        Case Is = "39": .Interior.ColorIndex = 39
        Case Is = "40": .Interior.ColorIndex = 40
        Case Is = "41": .Interior.ColorIndex = 41
        Case Is = "42": .Interior.ColorIndex = 42
        Case Is = "43": .Interior.ColorIndex = 43
        Case Is = "44": .Interior.ColorIndex = 44
        Case Is = "45": .Interior.ColorIndex = 45
        Case Is = "46": .Interior.ColorIndex = 46
        Case Is = "47": .Interior.ColorIndex = 47
        Case Is = "48": .Interior.ColorIndex = 48
        Case Is = "49": .Interior.ColorIndex = 49
        Case Is = "50": .Interior.ColorIndex = 50
        Case Is = "51": .Interior.ColorIndex = 51
        Case Is = "52": .Interior.ColorIndex = 52
        Case Is = "53": .Interior.ColorIndex = 53
        Case Is = "54": .Interior.ColorIndex = 54
        Case Is = "55": .Interior.ColorIndex = 55
        Case Is = "56": .Interior.ColorIndex = 56
        Case Else
        .Interior.ColorIndex = xlNone
        End Select
    End With
ws_exit:
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ı

Bu kodu kullanmak istediğiniz Excel sayfasının VB Penceresine çift tıklayarak kopyalamanız yeterli olacaktır.

50 Farklı Hazır Makro (VBA) Kodu
Seçilmiş Alanı Kes Kopyala ve Yapıştır
Toplu Sütun Silme
Birden Çok Sütun Ekleme
Açıklama İçeren Tüm Hücreleri Vurgulama
Excel Kapanırken Otomatik İşlem Yaptırma
Hesap Makinesini Açma
Alfabenin Harflerini Sayfaya Sıralı Olarak Ekleme
Seçili Sütunların Sayısını Bulma
Hücre Aralığını Görüntüye Dönüştürme
Ad Yöneticisindeki Tüm Adları Görünür Yapmak
Aktif Çalışma Sayfası Dışında Tümünü Silme
Belirli Bir Metne Sahip Hücreleri Vurgulama
Hücredeki Değişikliklerin Kaydını Tutma
Çalışma Kitabının Adını Tarih Olarak Kaydetme
Bir Aralıktaki Minimum Değeri Renklendirme
UserForm Kapatma Kodu
Gizlenmiş Makro Örnekleri
Excel Üzerinden Klasör Açma Kodu
Şeffaf UserForm Oluşturma Kodu
Seçili Hücrenin Sütun Harfini Bulma
Bilgisayar Bilgilerini Özetleme
Boş Hücreleri Sıfırlarla Değiştirme
Makrolar ile Klasör Kopyalama
Dizinde Klasör Araması Yapma
Bilgisayardaki Sürücü Sayısını Bulma
Hücredeki Değer Boşsa Kayıt Gerçekleşmesin
Grafiği Görüntü Olarak Yapıştırma
Excel Menüsüne Ekleme Yapma Kodu
Yanlış Yazılmış Hücreleri Vurgulama
Excel Tam Ekran Yapma
Tek Hücreyi Kes Kopyala ve Yapıştır
Bağlantılı Resim Ekleme
Yanıp Sönme Efekti Verme Kodu
Negatif Sayıları Poztif Sayıya Çevirme
Açılışta UserForm Nesnesinin Otomatik Gösterilmesi
Toplama İşlemi Yapan Kullanıcı Tanımlı Fonksiyon
Tek Sütunu Kes Kopyala ve Yapıştır
Makrolar ile Txt Dosyası Oluşturma
Bir Çalışma Kitabında Kaç Sayfa Var
Hoş Geldiniz Mesajı Ekleme
Tarih Değeri Yazarken Otomatik Ayraç Kullanımı
56 Renk Kodunu Sıralama
PDF Dosyalarını Birleştirme
Tüm Çalışma Sayfalarını Gösterme
Excel Hücresini Seçme Makrosu
Api ile Bilgisayar Adını Bulmak
Google Üzerinde Arama Yapma
Grafik Türünü Değiştirme
Çalışma Sayfalarını Ayrı PDF Olarak Kaydetme
Hücre Aralığını Kes Kopyala ve Yapıştır

Daha önce yorum yapılmamış!

Backlink Reklam Bu alanda 50 karakterlik açıklama ile web sitenize ait Backlink Reklam yayınlayabilirsiniz.
Yükleniyor...