Tekrarlayan Verileri Vurgulama
01 Ocak 2021
02 Ocak 2021
790
Tekrarlayan Verileri Vurgulama isimli kod, seçtiğiniz bir alanda varsa tekrarlanmış olan verilerin arka plan renginin farklılaştırılmasını sağlar.
Sub TekrarlayanVerileriVurgulama()
Dim Alan As Range
Dim Hucre As Range
Set Alan = Selection
For Each Hucre In Alan
If WorksheetFunction.CountIf(Alan, Hucre.Value) = 1 Then
Hucre.Interior.ColorIndex = 36
End If
Next Hucre
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- 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.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Kodu boş bir Module içine ekleyin ve bir butona atayın. Daha sonra tekrarlanmış bir veri aralığını kontrol etmek için seçim yapın ve atama yaptığınız butona basın. Kod sonuçları verecektir.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Satır/Sütun/Hücre Silme | Ctrl - |
| Koyu Yazdırma / Alternatif | Ctrl 2 |
| Şerit Menü Tuşlarını Aktif Etme / Alternatif | Shift F6 |
| Yazdırma | Ctrl P |
| Tablonun Satırını Seçme | Shift Space |