Di nav amûrên standard ên Microsoft Excel de, gelek awayên cihêreng hene ku dubareyên bi reng ronî bikin. Rêya herî hêsan û bilez bi formatkirina şertî ye. Ji bo vê yekê, tenê rêzek hucreyan hilbijêrin û li ser tabê hilbijêrin Mal - Formakirina şertî - Rêgezên Hilbijartina Hucreyê - Nirxên Ducarî (Mal - Formatkirina şertî - Rêgezên şaneyan ronî bikin - Nirxên dubare):
Lêbelê, di vê rewşê de, rengê dagirtina hemî hucreyan dê yek be, ango ew bi tenê nîşan dide ku hêman li cîhek din di rêzê de dubare ye, lê ji bo dîtina wan tiştek nake. Hûn dikarin rewşê bi makroyek piçûk rast bikin ku dê her cotek (an jî bêtir) dubareyên dubare bi rengê xwe tije bike:
Ew qas zelaltir, rast? Bê guman, digel hejmareke mezin a hucreyên dubare, dê dijwar be ku meriv di navbera rengan de cûdahiyek çêbike, lê digel hejmareke piçûk a dubare, ev rêbaz dê bêkêmasî bixebite.
Ji bo ku hûn vê makro bikar bînin, kurteya klavyeyê bikirtînin Alt + F11 an bişkojka Visual Basic tab Developer, modulek nû ya vala bi navgîniyê têxin Têxe - Modul û koda vê makroyê li wir kopî bikin:
Sub DuplicatesColoring() Dim Dupes() 'Rêzikek ji bo tomarkirina dubareyên ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Ger i = 3 Ji bo Her şaneyek Index dagirtî rakin Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Dûv re Ji bo k = LBound(Dupes) To UBound(Dupes) 'eger şaneyek jixwe di nav rêza dubareyan de be, Heke Dupes(k, 1) = şaneyê dagire Paşê hucre.Hindir. ColorIndex = Dupes(k, 2) K 'Piştre k 'eger di şaneyê de dubareyek hebe, lê hêj ne di rêzê de ye, wê li rêzê zêde bike û tijî bike Heke cell.Interior.ColorIndex = -4142 Dûv re şan.Interior.ColorIndex = i Dupes(i, 1) = şaneya.Nirx Dupes(i, 2) = ii = i + 1 Dawî Ger Biqede Ger şaneya Piştre Dawiya Bin
Naha hûn dikarin her rêzek bi daneya li ser pelê hilbijêrin û makroya me bi karanîna kurteya klavyeyê bimeşînin Alt + F8 an bi rêya bişkojka Macros (Makro) tab pêşvebirinê (pêşdebir).
- Duberan bi rengan ronî bikin
- Makro çi ne, koda makro li ku derê têxe Visual Basic, meriv wan çawa dimeşîne
- Meriv çawa di nav rêzek diyarkirî ya hucreyan de hejmara nirxên bêhempa bijmêre