Microsoft Excelin vakiotyökalujen joukossa on monia eri tapoja korostaa kopioita väreillä. Helpoin ja nopein tapa on ehdollinen muotoilu. Voit tehdä tämän valitsemalla vain solualueen ja valitsemalla välilehdeltä Etusivu — Ehdollinen muotoilu — Solujen valintasäännöt — Kaksinkertaiset arvot (Etusivu — ehdollinen muotoilu — korostussolujen säännöt — päällekkäiset arvot):
Tässä tapauksessa kaikkien solujen täyttöväri on kuitenkin sama, eli se vain ilmaisee, että elementillä on kaksoiskappaleita jossain muualla alueella, mutta ei auta niitä löytämään millään. Voit korjata tilanteen pienellä makrolla, joka täyttää jokaisen (tai useamman) toistuvan kaksoiskappaleen omalla värillään:
Niin paljon selkeämpi, eikö? Tietysti suurella määrällä toistuvia soluja on vaikea erottaa sävyjä toisistaan, mutta suhteellisen pienellä määrällä kaksoiskappaleita tämä menetelmä toimii täydellisesti.
Voit käyttää tätä makroa painamalla pikanäppäintä Alt + F11 tai painiketta Visual Basic kieleke Kehittäjä, aseta uusi tyhjä moduuli valikon kautta Insert – moduuli ja kopioi tämän makron koodi sinne:
Sub DuplicatesColoring() Dim Dupes() 'Määritä taulukko kopioiden tallentamiseksi ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Poista täyttö, jos i = 3 jokaiselle solulle Valinta If WorksheetFunction.CountIf(Valinta, solu.Arvo) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'jos solu on jo kaksoiskappaleiden joukossa, täytä Jos Dupes(k, 1) = solu Sitten solu.Sisä. ColorIndex = Dupes(k, 2) Seuraava k 'jos solu sisältää kaksoiskappaleen, mutta ei vielä taulukossa, lisää se taulukkoon ja täytä se If cell.Interior.ColorIndex = -4142 Sitten solu.Interior.ColorIndex = i Dupes(i, 1 ) = solu.Arvo Dupes(i, 2) = ii = i + 1 End If End If Next solu End Sub
Nyt voit valita minkä tahansa välin, jossa on tietoja taulukossa, ja suorittaa makromme pikanäppäimellä Alt + F8 tai painikkeen kautta Makrot (Makrot) kieleke kehittäjä (Kehittäjä).
- Korosta kaksoiskappaleet värillä
- Mitä makrot ovat, mihin makrokoodi lisätään Visual Basicissa, miten niitä ajetaan
- Kuinka laskea yksittäisten arvojen lukumäärä tietyllä solualueella