Efnisyfirlit

Meðal staðlaðra Microsoft Excel verkfæra eru margar mismunandi leiðir til að auðkenna afrit með lit. Auðveldasta og fljótlegasta leiðin er skilyrt snið. Til að gera þetta, veldu bara úrval af frumum og veldu á flipanum Heim — Skilyrt snið — Hólfvalsreglur — Tvítekið gildi (Heima — Skilyrt snið — Auðkenndu reglur um hólf — Tvítekið gildi):

Tvöföld lýsing á afritum

Hins vegar, í þessu tilviki, verður fyllingarlitur allra frumna sá sami, þ.e. það gefur einfaldlega til kynna að frumefnið hafi afrit annars staðar á sviðinu, en gerir ekkert til að finna þær. Þú getur lagað ástandið með litlum fjölvi sem mun fylla hvert par (eða fleiri) af endurteknum afritum með sínum eigin lit:

Tvöföld lýsing á afritum

Svo miklu skýrara, ekki satt? Auðvitað, með miklum fjölda endurtekinna fruma, verður erfitt að greina á milli tónum, en með tiltölulega litlum fjölda afrita mun þessi aðferð virka fullkomlega.

Til að nota þetta fjölvi, ýttu á flýtilykla Alt + F11 eða hnappur Visual Basic flipi Hönnuður, settu inn nýja tóma einingu í gegnum valmyndina Settu inn - Eining og afritaðu kóðann af þessu fjölvi þangað:

Sub DuplicatesColoring() Dim Dupes() 'Lýstu yfir fylki til að geyma afrit ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Fjarlægðu fyllinguna ef i = 3 Fyrir hverja reit Í Val If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'ef hólfið er þegar í fjölda afrita, fyllið út If Dupes(k, 1) = reit Þá cell.Interior. ColorIndex = Dupes(k, 2) Næst k 'ef hólfið inniheldur afrit, en er ekki enn í fylkinu, bætið því við fylkið og fyllið það ef cell.Interior.ColorIndex = -4142 Þá cell.Interior.ColorIndex = i Dupes(i, 1 ) = klefi.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub  

Nú geturðu valið hvaða svið sem er með gögnum á blaðinu og keyrt fjölvi okkar með því að nota flýtilykla Alt + F8 eða í gegnum hnappinn Fjölvi (fjölva) flipi verktaki (hönnuður).

  • Auðkenndu afrit með lit
  • Hvað eru fjölvi, hvar á að setja inn fjölvakóða í Visual Basic, hvernig á að keyra þau
  • Hvernig á að telja fjölda einstakra gilda í tilteknu sviði fruma

Skildu eftir skilaboð