Ho khantša habeli ha likopi

Har'a lisebelisoa tse tloaelehileng tsa Microsoft Excel, ho na le mekhoa e mengata e fapaneng ea ho totobatsa likopi tse nang le mebala. Mokhoa o bonolo le o potlakileng ke oa ho fometa ka maemo. Ho etsa sena, khetha feela mefuta e mengata ea lisele ebe u khetha ho tab Lehae — Conditional Formatting — Melao ea Khetho ea Cell — Duplicate Values (Lehae - Ho Femata ka Maemo - Totobatsa Melao ea Lisele - Maemo a Menahaneng):

Leha ho le joalo, tabeng ena, 'mala o tlatsitsoeng oa lisele tsohle o tla tšoana, ke hore, e bontša feela hore ntho e na le likarolo tse ling sebakeng se seng, empa ha ho letho le ka thusang ho li fumana. U ka lokisa boemo ka macro e nyane e tla tlatsa para e 'ngoe le e' ngoe (kapa ho feta) ea likopi tse phetoang ka 'mala oa eona:

Ho hlakile haholoanyane, ho nepahetse? Ha e le hantle, ka palo e kholo ea lisele tse pheta-phetang, ho tla ba thata ho khetholla pakeng tsa li-shades, empa ka palo e fokolang ea likopi, mokhoa ona o tla sebetsa hantle.

Ho sebelisa macro ena, tobetsa konopo ea keyboard Alt + F11 kapa konopo Visual Basic tab ya developer indonesia, kenya mochine o mocha o se nang letho ka menu Kenya – Mojule 'me u kopitse khoutu ea macro ena moo:

Sub DuplicatesColoring() Dim Dupes() 'Phatlalatsa sehlopha ho boloka tse kopitsoang ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Tlosa ho tlatsa haeba ke = 3 Bakeng sa sele ka 'ngoe In Selection If WorksheetFunction.CountIf(Khetho, cell.Value) > 1 Joale Bakeng sa k = LBound(Dupes) Ho UBound(Dupes) 'haeba sele e se e ntse e le har'a mefuta e mengata, tlatsa Haeba Dupes(k, 1) = sele. Ebe sele.Hare. ColorIndex = Dupes(k, 2) Next k 'haeba sele e na le koporo, empa e so ka e hlophisoa, e kenye lethathamong ebe u e tlatsa If cell.Interior.ColorIndex = -4142 Ebe sele.Interior.ColorIndex = i Dupes(i, 1 ) = sele.Boleng Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub  

Joale o ka khetha mofuta ofe kapa ofe o nang le data leqepheng mme o tsamaise macro ea rona o sebelisa sekhechana sa keyboard Alt + F8 kapa ka konopo makhro (Macros) tab ya Moqapi (Moetsi).

• Totobatsa tse kopitsoang ka 'mala
• Li-macros ke eng, moo u ka kenyang khoutu ea macro ho Visual Basic, mokhoa oa ho li tsamaisa
• Mokhoa oa ho bala palo ea litekanyetso tse ikhethang mofuteng o fanoeng oa lisele