N'ime ọkọlọtọ Microsoft Excel ngwaọrụ, e nwere ọtụtụ ụzọ dị iche iche iji gosi oyiri na agba. Ụzọ kachasị mfe na ngwa ngwa bụ site na nhazi ọnọdụ. Iji mee nke a, dị nnọọ họrọ nso nke cell na họrọ na taabụ Ụlọ - Usoro nhazi - Usoro Nhọrọ Cell - Ụkpụrụ oyiri (Ụlọ - Nhazi ọnọdụ - Iwu mkpụrụ ndụ pụta ìhè - ụkpụrụ oyiri):
Otú ọ dị, na nke a, njupụta agba nke niile mkpụrụ ndụ ga-abụ otu, ya bụ nanị na-egosi na mmewere nwere oyiri ebe ọzọ na nso, ma ọ dịghị ihe ọ bụla na-enyere chọta ha. Ị nwere ike dozie ọnọdụ ahụ na obere nnukwu macro nke ga-ejupụta ụzọ abụọ (ma ọ bụ karịa) nke oyiri ugboro ugboro na agba nke ya:
N'ụzọ doro anya karị, nri? N'ezie, na ọnụ ọgụgụ dị ukwuu nke mkpụrụ ndụ ugboro ugboro, ọ ga-esi ike ịmata ọdịiche dị n'etiti ndò, ma na ọnụ ọgụgụ dị ntakịrị nke oyiri, usoro a ga-arụ ọrụ nke ọma.
Iji jiri nnukwu macro a, pịa ụzọ mkpirisi ahụigodo F11 dị elu ma ọ bụ bọtịnụ visual Basic tab Mmepụta, Fanye modul ọhụrụ efu site na menu Fanye – Modul ma detuo koodu macro a ebe ahụ:
Sub DuplicatesColoring() Dim Dupes()'Kwapụta otu n'usoro iji chekwaa duplicates ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Wepu njuputa ma ọ bụrụ na i = 3 Maka cell ọ bụla Na Nhọrọ Ọ bụrụ WorksheetFunction.CountIf(Nhọrọ, cell.Uru)> 1 Mgbe ahụ Maka k = LBound(Dupes) Iji UBound(Dupes) 'ọ bụrụ na cell adịlarị n'ụdị nke oyiri, dejupụta Ọ bụrụ Dupes(k, 1) = cell Mgbe ahụ cell.Interior. ColorIndex = Dupes(k, 2) Na-esote k 'ọ bụrụ na cell nwere ihe oyiri, ma ọ kabeghị n'usoro, tinye ya na nhazi ma jupụta Ọ bụrụ cell.Interior.ColorIndex = -4142 Mgbe ahụ cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Uru Dupes(i, 2) = ii = i + 1 Ọgwụgwụ ma ọ bụrụ na-esote cell End Sub
Ugbu a ị nwere ike họrọ oke ọ bụla nwere data dị na mpempe akwụkwọ wee jiri ụzọ mkpirisi keyboard mee nnukwu nnukwu anyị F8 dị elu ma ọ bụ site na bọtịnụ Macros (Macros) tab Mmepụta (Onye Mmepụta).
- Mee ka oyiri pụta ìhè na agba
- Kedu ihe bụ macros, ebe itinye koodu macro na Visual Basic, otu esi agba ọsọ ha
- Otu esi agụta ọnụọgụ nke ụkpụrụ pụrụ iche n'ụdị sel enyere