Zamkatimu

Pakati pa zida zokhazikika za Microsoft Excel, pali njira zambiri zowunikira zobwereza ndi utoto. Njira yosavuta komanso yachangu kwambiri ndi masanjidwe okhazikika. Kuti muchite izi, ingosankhani ma cell angapo ndikusankha pa tabu Kunyumba - Mapangidwe Okhazikika - Malamulo Osankhira Ma cell - Makhalidwe Obwereza (Kunyumba - Mapangidwe Okhazikika - Onetsani Malamulo a Maselo - Makhalidwe Obwereza):

Kuwunikira kawiri kobwerezabwereza

Komabe, pamenepa, mtundu wodzaza wa maselo onse udzakhala wofanana, mwachitsanzo, zimangosonyeza kuti chinthucho chili ndi zofanana kwinakwake, koma sichithandiza kuti awapeze. Mutha kukonza vutoli ndi macro ang'onoang'ono omwe angadzaze gulu lililonse (kapena kupitilira apo) lazobwereza mobwerezabwereza ndi mtundu wake:

Kuwunikira kawiri kobwerezabwereza

Momveka bwino, sichoncho? Zoonadi, ndi maselo ambiri obwerezabwereza, zidzakhala zovuta kusiyanitsa pakati pa mithunzi, koma ndi chiwerengero chochepa chobwerezabwereza, njirayi idzagwira ntchito mwangwiro.

Kuti mugwiritse ntchito macro iyi, dinani njira yachidule ya kiyibodi Alt + F11 kapena batani Zooneka Basic tsamba mapulogalamu, ikani gawo latsopano lopanda kanthu kudzera pa menyu Ikani - Module ndikukopera kachidindo ka macro apa:

Sub DuplicatesColoring() Dim Dupes() 'Lengezani mndandanda kuti musunge zobwereza za ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Chotsani kudzaza ngati i = 3 Pa selo Lililonse Mu Kusankha Ngati WorksheetFunction.CountIf(Kusankha, cell.Value) > 1 Ndiye Kwa k = LBound(Dupes) Ku UBound(Dupes) 'ngati selo ili kale muzobwerezabwereza, lembani Ngati Dupes(k, 1) = cell Ndiye cell.Mkati. ColorIndex = Dupes(k, 2) Chotsatira k 'ngati seloyo ili ndi chobwereza, koma sichinakhalepo pamndandanda, yikani pamndandanda ndikudzaza Ngati cell.Interior.ColorIndex = -4142 Kenako cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub  

Tsopano mutha kusankha mtundu uliwonse wokhala ndi data patsamba ndikuyendetsa macro athu pogwiritsa ntchito njira yachidule ya kiyibodi Alt + F8 kapena kudzera pa batani Macros (Makiro) tsamba Woyambitsa (Wolemba Mapulogalamu).

  • Onetsani zobwerezedwa ndi mtundu
  • Kodi macros ndi chiyani, momwe mungayikitsire macro code mu Visual Basic, momwe mungayendetsere
  • Momwe mungawerengere kuchuluka kwazinthu zapadera pamaselo osiyanasiyana

Siyani Mumakonda