Fost l-għodod standard tal-Microsoft Excel, hemm ħafna modi differenti biex tenfasizza d-duplikati bil-kulur. L-eħfef u l-iktar mod mgħaġġel huwa bil-formattjar kondizzjonali. Biex tagħmel dan, agħżel biss firxa ta 'ċelloli u agħżel fuq it-tab Home — Formatting Kundizzjonali — Regoli tal-Għażla taċ-Ċelloli — Valuri Duplikati (Id-Dar — Formatting Kundizzjonali — It-Tenfasizza Regoli taċ-Ċelloli — Valuri Duplikati):
Madankollu, f'dan il-każ, il-kulur tal-mili taċ-ċelluli kollha se jkun l-istess, jiġifieri sempliċement jindika li l-element għandu duplikati x'imkien ieħor fil-firxa, iżda ma jagħmel xejn biex jgħin biex issibhom. Tista' tirranġa s-sitwazzjoni b'makro żgħir li jimla kull par (jew aktar) ta' duplikati ripetuti bil-kulur tiegħu stess:
Daqshekk aktar ċar, hux? Naturalment, b'numru kbir ta 'ċelloli ripetuti, se jkun diffiċli li ssir distinzjoni bejn sfumaturi, iżda b'numru relattivament żgħir ta' duplikati, dan il-metodu se jaħdem perfettament.
Biex tuża din il-makro, agħfas is-shortcut tat-tastiera Alt + F11 jew buttuna Visual Basic tab Developer, daħħal modulu vojt ġdid permezz tal-menu Daħħal – Modulu u kkopja l-kodiċi ta 'din il-makro hemmhekk:
Sub DuplicatesColoring() Dim Dupes() 'Iddikjara firxa biex taħżen duplikati ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Neħħi l-mili jekk i = 3 Għal Kull ċellula In Għażla Jekk WorksheetFunction.CountIf(Selection, cell.Value) > 1 Imbagħad Għal k = LBound(Dupes) To UBound(Dupes) 'jekk iċ-ċellula diġà tinsab fil-firxa ta' duplikati, imla If Dupes (k, 1) = cell Imbagħad ċellola.Intern. ColorIndex = Dupes(k, 2) Sussegwentement k 'jekk iċ-ċellula fiha duplikat, iżda għadha mhux fl-array, żidha mal-array u imla Jekk cell.Interior.ColorIndex = -4142 Imbagħad cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Tmiem Jekk Tmiem Jekk Ċellula li jmiss Tmiem Sub
Issa tista 'tagħżel kwalunkwe firxa bid-dejta fuq il-folja u tħaddem il-makro tagħna billi tuża s-shortcut tat-tastiera Alt + F8 jew permezz tal-buttuna Macros (Makros) tab iżviluppatur (Żviluppatur).
- Enfasizza duplikati bil-kulur
- X'inhuma macros, fejn daħħal il-kodiċi makro fil-Visual Basic, kif tmexxihom
- Kif tgħodd in-numru ta 'valuri uniċi f'firxa partikolari ta' ċelloli