Tekrarlayan Verileri Vurgulama
01 Ocak 2021
02 Ocak 2021
643
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 | |
|---|---|
| Hücreyi Sağa Yaslı Hale Getirmek | Alt Ş AI |
| Yardım | F1 |
| Şerit Menü simgeleri arasında dolaşma | Tab |
| Hücreyi Para Birimi Olarak Biçimlendirme | Ctrl Shift $ |
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |