I totonu o meafaigaluega masani a Microsoft Excel, e tele auala eseese e faʻamaonia ai kopi ma lanu. O le auala pito sili ona faigofie ma sili ona vave o le faʻatulagaina o tuutuuga. Ina ia faia lenei mea, naʻo le filifilia o le tele o sela ma filifili i luga o le tab Fale — Fa'atonu Fa'atonu — Tulafono Filifilia Cell — Tulaga Fa'alua (Aiga — Fa'atonu Fa'atonu - Fa'ailoa Tulafono o Selula — Fa'alua Fa'atatau):
Peitai, i lenei tulaga, o le lanu faatumu o sela uma o le a tutusa, o lona uiga e na o le faʻaalia o le elemene o loʻo faʻaluaina i se isi mea i totonu o le laina, ae leai se mea e fesoasoani e suʻe ai. E mafai ona e faʻaleleia le tulaga i se tamai macro e faʻatumu ai paga taʻitasi (pe sili atu) o faʻalua faʻalua ma lona lava lanu:
E sili atu le manino, sa'o? O le mea moni, faatasi ai ma se numera tele o sela faifai pea, o le a faigata ona iloa le va o lanu, ae faʻatasi ai ma se numera laʻititi o kopi, o lenei metotia o le a aoga atoatoa.
Mo le fa'aogaina o le macro lea, oomi le ala 'upu keyboard Alt + F11 po o le faamau Autu vaaia tab atinae, fa'aofi se module avanoa fou e ala i le lisi Fa'aofi - Module ma kopi le code o lenei macro iina:
Sub DuplicatesColoring() Dim Dupes() 'Ta'utino atu se laina e teu ai kopi ReDim Dupes(1 To Selection.Cells.Count, 1 i le 2) Selection.Interior.ColorIndex = -4142 'Ave'ese le faatumu pe afai i = 3 Mo sela ta'itasi I totonu Filifiliga Afai Pepa GaluegaFunction.CountIf(Filifiliga, cell.Value) > 1 Ona Mo k = LBound(Dupes) To UBound(Dupes) 'afai ua uma ona i ai le sela i le faasologa o kopi, faatumu i le Afai Dupes(k, 1) = cell Ona sela.I totonu. ColorIndex = Dupes(k, 2) Soso'o k 'afai o lo'o i ai i le sela se kopi, ae le'i i ai i le fa'asologa, fa'aopoopo i le array ma fa'atumu Afai cell.Interior.ColorIndex = -4142 Ona cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Fa'ai'u Afai Fa'ai'u Pe a soso'o sela Fa'ai'u lalo
Ole taimi nei e mafai ona e filifilia soʻo se laina faʻatasi ma faʻamatalaga i luga o le laupepa ma faʻatautaia la matou macro e faʻaaoga ai le ala pupuu Alt + F8 pe ala i le faamau macros (Macros) tab atinae (Atiae).
- Fa'ailoga fa'alua i lanu
- O a macros, o fea e faʻapipiʻi ai le macro code i le Visual Basic, faʻafefea ona faʻatautaia
- E faʻafefea ona faitau le numera o tulaga faʻapitoa i se vaega o sela