Farvelægning Identiske Company Navne

Connie har et regneark, der har firmanavne i hver celle i kolonne B. De er grupperet under en overskrift region (Northeast, West, etc.) i kolonne A. Hun ønsker at anvende betinget formatering til firmanavne, så hvis et navn forekommer i mere end én region, det dukker op ved hjælp af en baggrund eller tekst farve, som gør de matchende selskaber let at finde. Det betyder, at hvis en virksomhed er formateret som rød, bør ingen anden virksomhed som rød (det skal vises som en anden farve, såsom blå eller grøn). Connie er ikke sikker på, hvordan dette gøres, eller hvis det overhovedet kan lade sig gøre med betinget formatering.

Der er en måde at markere dubletter ved hjælp af betinget formatering; bare følge disse generelle trin:

  1. Marker de celler, der indeholder dine firmanavne.
  2. Vist fanen af ​​båndet Hjem og klik på Betinget formatering værktøj i Styles gruppen.
  3. Vælg Ny regel. Excel viser Ny formatering dialogboksen Regel kassen.
  4. Klik på Format Kun Unique eller kopiere Værdier option øverst i dialogboksen.
  5. Sørg for, at Duplicate er valgt i rullelisten i den nederste halvdel af dialogboksen. (Se figur 1.)

    Farvelægning Identiske Company Navne

    Figur 1. De nye formatering dialogboksen Regel kassen.

  6. Klik på knappen Format og ændre formateringen at afspejle, hvordan du vil duplikere firmanavne skal vises.
  7. Klik på OK for at lukke Ny formatering dialogboksen Regel kassen.

På dette tidspunkt alle dine dubletter skal matche hvad formatering, du valgte i trin 6. Det eneste problem er, at alle dubletter er formateret på samme måde. Med andre ord, hvis du har to selskaber (ABC Company og DEF Company), og der er dubletter for de virksomheder, de er alle formateret på samme måde, vil du ikke se anderledes formatering for de to selskaber.

Selvfølgelig kunne du nemt bruge Excels filtrering kapaciteter til at fremhæve dubletter selskaber, ikke-dublerede virksomheder eller individuelle firmanavne. Dette kan være den nemmeste måde at "nul i" på de virksomheder, du ønsker at finde.

Den eneste måde at bruge betinget formatering til at anvende forskellige farver til forskellige grupper af identiske firmanavne kræver, at du identificere, op foran, den egentlige dubletter. Med denne liste i hånden, kan du oprette en række betingede formatering, der bruger formler ligner følgende:

= OG (ISNUMBER (FIND ("ABC Company", B1)), TÆL.HVIS ($ B $ 1: $ B $ 99, "ABC Selskabet")> 1)

I denne formel "ABC Company" er selskabets navn, B1 er den første celle i området, og B1: B99 er hele spektret af celler. For hver formatering, du kunne anvende en anden formatering hensigtsmæssigt at det pågældende selskab. Det betyder, at hvis du vidste, op foran, at der var 24 forskellige firmanavne, der havde dubletter, ville du nødt til at oprette 24 regler betinget formatering til at håndtere disse 24 navne.

Kompleks, faktisk. Desværre er der ikke en nemmere måde at bruge betinget formatering. Du kan dog give afkald på betinget formatering og bruge en makro til at gøre dine dubletter skiller sig ud. Den enkleste "automatisk" makro vi kunne komme op med (hvor du ikke behøver at kende de dublerede navne før tid) er en, der undersøger en række celler og sætter den interne celle farve baseret på identiske firmanavne.

Sub ColorCompanyDuplicates ()
Dim x As Integer
Dim y As Integer
Dim lRows så længe
Dim lColNum så længe
Dim iColor As Integer
Dim iDupes As Integer
Dim bFlag Som Boolean

lRows = Selection.Rows.Count
lColNum = Selection.Column
iColor = 2

For x = 2 Til lRows
bFlag = False
For y = 2 til x - 1
Hvis Cells (Y, lColNum) = Cells (x, lColNum) Derefter
bFlag = True
Exit For
End hvis
Næste y
Hvis ikke bFlag Så
iDupes = 0
For y = x + 1 Til lRows
Hvis Cells (Y, lColNum) = Cells (x, lColNum) Derefter
iDupes = iDupes + 1
End hvis
Næste y
Hvis iDupes> 0 Derefter
iColor = iColor + 1
Hvis iColor> 56 Derefter
MsgBox "For mange dublerede virksomheder!", VbCritical
Exit Sub
End hvis
Celler (x, lColNum) .Interior.ColorIndex = iColor
For y = x + 1 Til lRows
Hvis Cells (Y, lColNum) = Cells (x, lColNum) Derefter
Celler (y, lColNum) .Interior.ColorIndex = iColor
End hvis
Næste y
End hvis
End hvis
Næste X
End Sub

Hvis du vil bruge makroen, skal du blot vælge de celler, der indeholder firmanavne og derefter køre den. Makroen gør tre passerer gennem cellerne. Den første passage ser tilbage gennem celler fra den nuværende, der undersøges det bruges til at afgøre, om der er nogen "tilbagestående" dubletter, fordi hvis der er end ikke yderligere behandling på den pågældende celle er nødvendig. Den anden pass ser frem gennem cellerne for at afgøre, om der er dubletter af det nuværende firmanavn. Hvis der er, så forøger en tredje pass cellen farveværdi og derefter anvender det på dubletter.

Bemærk, at makroen sætter ColorIndex formuegoder af enhver dubletter den finder, og det forøger variablen bruges til at indstille ejendom, når den finder et nyt sæt dobbelte firmanavne. For alle de firmanavne, for hvilke der ikke er dubletter, er ColorIndex ejendom af cellen ikke ændret. Det betyder, at der er en grænse for, hvor mange virksomheder kan markeres dog the ColorIndex kan kun ligge i området mellem 0 og 56. De faktisk tildelt af makro området 3-56 værdier, så det er kun muligt at formatere 54 grupper af virksomheder .

ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (12673) gælder for Microsoft Excel 2007, 2010 og 2013.


© 2021 Zajacperrone.com | Contact us: webmaster# zajacperrone.com