I roto i nga taputapu Microsoft Excel paerewa, he maha nga huarahi rereke hei whakanui i nga taarua me te tae. Ko te huarahi ngawari me te tere ko te whakahōputu herenga. Ki te mahi i tenei, tohua noa te whānuitanga o nga pūtau ka kowhiri i te ripa Kāinga — Whakahōputu Tikanga — Ture Whiriwhiri Pūtau — Uara Tārite (Kāinga — Whakahōputu Herenga — Miramirahia nga Ture Pūtau — Uara Taarua):
Heoi, i tenei keehi, ka rite te tae whakakī o nga pūtau katoa, ara, he tohu noa he taarua te huānga ki tetahi atu waahi o te awhe, engari kaore he mahi hei awhina i a raatau. Ka taea e koe te whakatika i te ahuatanga me tetahi tonotono iti ka whakakiia ia takirua (neke atu ranei) o nga taarua tukurua ki tona ake tae:
He maamaa ake, tika? Ae ra, me te maha o nga pūtau tukurua, he uaua ki te wehewehe i waenga i nga atarangi, engari ma te iti o nga taarua, ka tino pai tenei tikanga.
Hei whakamahi i tenei tonotono, pehia te pokatata papapātuhi Alt + F11 pātene ranei Visual Basic ripa kaiwhakawhanake, kōkuhu kōwae kau hou mā te tahua Kōkuhu – Kōwae ka kape i te waehere o tenei tonotono ki reira:
Sub DuplicatesColoring() Dim Dupes() 'Whakapuakina he huānga hei rokiroki i nga taarua ReDim Dupes(1 Ki te Selection.Cells.Count, 1 Ki te 2) Selection.Interior.ColorIndex = -4142 'Tangohia te whakakī ki te i = 3 Mo ia pūtau Kei roto Tīpakonga Mēnā WorksheetFunction.CountIf(Selection, cell.Value) > 1 Na Mo k = LBound(Dupes) Ki te UBound(Dupes) 'mehemea kei roto kē te pūtau i te huinga o nga taarua, whakakiia If Dupes(k, 1) = pūtau Katahi te pūtau.roto. ColorIndex = Dupes(k, 2) Panuku k 'mēnā he tārite kei roto i te pūtau, engari kāre anō i te huinga, tāpirihia ki te huānga ka whakakī Mēnā cell.Interior.ColorIndex = -4142 Na pūtau.Interior.ColorIndex = i Dupes(i, 1 ) = pūtau.Uara Dupes(i, 2) = ii = i + 1 Whakamutunga Mēnā ka mutu te pūtau Panuku Whakamutunga Sub
Inaianei ka taea e koe te kowhiri i tetahi awhe me nga raraunga kei runga i te rau ka whakahaere i ta maatau tonotono ma te whakamahi i te pokatata papapātuhi Alt + F8 ma te paatene ranei tonotono (Nga Tonotono) ripa kaiwhakawhanake (Kaiwhakawhanake).
- Miramirahia nga taarua me te tae
- He aha nga tonotono, kei hea te whakauru i te waehere tonotono ki Visual Basic, me pehea te whakahaere
- Me pehea te tatau i te maha o nga uara ahurei i roto i te awhe o nga pūtau