Med standardnimi orodji Microsoft Excel obstaja veliko različnih načinov za označevanje dvojnikov z barvo. Najlažji in najhitrejši način je s pogojnim oblikovanjem. Če želite to narediti, preprosto izberite obseg celic in izberite na zavihku Domov — Pogojno oblikovanje — Pravila za izbiro celic — Podvojene vrednosti (Domov — Pogojno oblikovanje — Pravila za označevanje celic — Podvojene vrednosti):
Vendar bo v tem primeru barva polnila vseh celic enaka, kar pomeni, da preprosto signalizira, da ima element dvojnike nekje drugje v obsegu, vendar ne naredi ničesar, da bi jih pri iskanju. Situacijo lahko popravite z majhnim makrom, ki bo vsak par (ali več) ponovljenih dvojnikov zapolnil z lastno barvo:
Toliko bolj jasno, kajne? Seveda bo pri velikem številu ponavljajočih se celic težko razlikovati med odtenki, a pri relativno majhnem številu dvojnikov bo ta metoda delovala odlično.
Če želite uporabiti ta makro, pritisnite bližnjico na tipkovnici Alt + F11 ali gumb Visual Basic tab Razvojni, vstavite nov prazen modul prek menija Vstavi – Modul in tja kopirajte kodo tega makra:
Sub DuplicatesColoring() Dim Dupes() 'Razglasi matriko za shranjevanje dvojnikov ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Odstrani polnilo, če je i = 3 Za vsako celico v Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'če je celica že v nizu dvojnikov, izpolnite If Dupes(k, 1) = cell Nato celica.Notranjost. ColorIndex = Dupes(k, 2) Next k 'če celica vsebuje dvojnik, vendar še ni v matriki, jo dodajte v matriko in jo zapolnite If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Zdaj lahko izberete poljuben obseg s podatki na listu in zaženete naš makro z uporabo bližnjice na tipkovnici Alt + F8 ali preko gumba Makri (makri) tab razvijalec (Razvijalec).
- Označite dvojnike z barvo
- Kaj so makri, kam vstaviti kodo makra v Visual Basic, kako jih zagnati
- Kako prešteti število edinstvenih vrednosti v danem obsegu celic