Pakati pezvishandiso zveMicrosoft Excel zvakajairwa, kune nzira dzakawanda dzakasiyana dzekusimbisa zvakapetwa neruvara. Nzira iri nyore uye inokurumidza ndeye nemamiriro ekugadzirisa. Kuti uite izvi, ingosarudza huwandu hwemasero uye sarudza pane tab Musha — Conditional Formatting — Cell Selection Rules — Duplicate Values (Kumba - Conditional Formatting - Simbisa Mitemo Yesero - Duplicate Values):
Nekudaro, mune iyi kesi, ruvara rwekuzadza masero ese ruchange rwakafanana, kureva zvinongoratidza kuti chinhu chine zvakapetwa pane imwe nzvimbo muhuwandu, asi hapana chazvinoita kubatsira kuzviwana. Iwe unogona kugadzirisa mamiriro acho nediki macro inozadza peya imwe neimwe (kana kupfuura) yekudzokororwa inodzokororwa nemuvara wayo:
Zvakanyanya kujeka, handiti? Ehe, nenhamba yakawanda yemasero anodzokorora, zvichave zvakaoma kusiyanisa pakati pemithunzi, asi nenhamba shoma yemakopi, iyi nzira ichashanda zvakakwana.
Kuti ushandise iyi macro, dzvanya iyo keyboard yekudimbudzira Alt + F11 kana bhatani Visual Basic Tab Developer, isa nyowani isina chinhu module kuburikidza nemenyu Pinza – Module uye tevedzera kodhi yeiyi macro ipapo:
Sub DuplicatesColoring() Dim Dupes() 'Zivisa hurongwa hwekuchengeta zvakapetwa ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Bvisa kuzara kana i = 3 Kune Imwe neimwe cell In Sarudzo Kana WorksheetFunction.CountIf(Sarudzo, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'kana sero ratove murudungwe rwezvakapetwa, zadza Kana Dupes(k, 1) = sero Ipapo cell.Interior. ColorIndex = Dupes(k, 2) Next k 'kana sero riine duplicate, asi risati rapinda muhurongwa, riwedzere kurongwa wozadza Kana cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End Kana Kupera Kana Next sero End Sub
Iye zvino unogona kusarudza chero renji ine data pane pepa uye mhanyisa macro yedu uchishandisa keyboard nzira Alt + F8 kana kuburikidza nebhatani macro (Makororo) Tab yokuvaka (Mugadziri).
- Simbisa zvakapetwa neruvara
- Chii macros, kupi kwekuisa macro kodhi muVisual Basic, maitiro ekuamhanyisa
- Maitiro ekuverenga huwandu hweakasiyana kukosha mune yakapihwa huwandu hwemasero