Tekrarlayan Verileri Vurgulama
01 Ocak 2021
02 Ocak 2021
744
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ın Başına Gitme | Home |
| Bitişik Olmayan Hücrelerde Sağa Gitme | Ctrl Alt → |
| Tüm Tabloyu Seçme | Ctrl A |
| Veri Aralığının En Soluna Gitme | Ctrl ← |
| Eğik Yazdırma / Alternatif | Ctrl 3 |