Hevitra ato Anatiny

Anisan'ireo fitaovana Microsoft Excel mahazatra, misy fomba maro samihafa hanasongadinana ny dika mitovy amin'ny loko. Ny fomba tsotra sy haingana indrindra dia amin'ny endrika misy fepetra. Mba hanaovana izany, mifidiana sela isan-karazany ary mifidiana eo amin'ny tabilao Home — Fandrafetana fepetra — Fitsipika mifantina sela — Soatoavina duplicate (Horonan-trano — Fandrafetana fepetra — Asongadino ny fitsipiky ny sela — Soatoavina roa sosona):

Fanazavana indroa ny dika mitovy

Na izany aza, amin'ity tranga ity, ny lokon'ny famenoana ny sela rehetra dia hitovy, izany hoe milaza fotsiny izy fa misy dika mitovy amin'ny toeran-kafa ao amin'ny faritra ny singa, saingy tsy manao na inona na inona hanampy amin'ny fitadiavana azy ireo. Azonao atao ny manamboatra ny toe-javatra amin'ny macro kely izay hameno ny tsiroaroa tsirairay (na mihoatra) amin'ny dika mitovy amin'ny lokony manokana:

Fanazavana indroa ny dika mitovy

Mazava kokoa, sa tsy izany? Mazava ho azy, miaraka amin'ny sela miverimberina be dia be, dia ho sarotra ny manavaka ny alokaloka, fa miaraka amin'ny dika mitovy kely, ity fomba ity dia hiasa tsara.

Raha hampiasa an'io macro io dia tsindrio ny hitsin-dàlana fitendry Alt + F11 na bokotra Visual Basic vakizoro Developer, ampidiro môdôly tsy misy na inona na inona amin'ny alalan'ny menio Ampidiro - Module ary kopia ny code an'ity macro ity:

Sub DuplicatesColoring() Dim Dupes() 'Ambarao ny array hitahiry duplicate ReDim Dupes(1 To Selection.Cells.Count, 1 à 2) Selection.Interior.ColorIndex = -4142 'Esory ny fille raha i = 3 Ho an'ny sela tsirairay Selection Raha WorksheetFunction.CountIf(Selection, cell.Value) > 1 Dia ho an'ny k = LBound(Dupes) To UBound(Dupes) 'raha toa ka efa ao anatin'ny laharan'ny dika mitovy ny sela dia fenoy ny Raha Dupes(k, 1) = cell Avy eo cell.Interior. ColorIndex = Dupes(k, 2) Manaraka k 'raha misy dika mitovy ny sela, nefa mbola tsy ao anatin'ny laharan-kira dia ampidiro ao amin'ny laharan-tariby ary fenoy raha cell.Interior.ColorIndex = -4142 Avy eo cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Fiafarana Raha mifarana Raha efi-trano manaraka End Sub  

Ankehitriny ianao dia afaka misafidy izay faritra misy angona eo amin'ny takelaka ary mampandeha ny macro amin'ny alàlan'ny hitsin-dàlana fitendry Alt + F8 na amin'ny alalan'ny bokotra macros (Macro) vakizoro Developer (mpamorona).

  • Asongadino ny dika mitovy amin'ny loko
  • Inona ny macros, aiza no hampidirana kaody macro ao amin'ny Visual Basic, ny fomba fampandehanana azy
  • Ahoana ny fanisana ny isan'ny soatoavina tsy manam-paharoa amin'ny sela nomena

Leave a Reply