Taliwala sa standard nga mga galamiton sa Microsoft Excel, adunay daghang lain-laing mga paagi sa pag-highlight sa mga duplicate nga adunay kolor. Ang pinakasayon ug pinakapaspas nga paagi mao ang conditional formatting. Aron mahimo kini, pagpili lang sa usa ka hanay sa mga cell ug pagpili sa tab Panimalay — Conditional Formatting — Cell Selection Rules — Duplicate Values (Home — Conditional Formatting — Highlight Cells Rules — Duplicate Values):
Bisan pa, sa kini nga kaso, ang kolor sa pagpuno sa tanan nga mga selyula managsama, i.e. kini nagsinyas lamang nga ang elemento adunay mga duplicate sa ubang lugar sa range, apan wala’y gihimo aron makatabang sa pagpangita niini. Mahimo nimong ayohon ang sitwasyon gamit ang gamay nga macro nga mopuno sa matag pares (o daghan pa) sa gibalikbalik nga mga duplicate nga adunay kaugalingon nga kolor:
Mas klaro kaayo, di ba? Siyempre, sa daghang gidaghanon sa mga nagbalikbalik nga mga selyula, lisud ang pag-ila tali sa mga shade, apan sa medyo gamay nga gidaghanon sa mga duplicate, kini nga pamaagi molihok nga hingpit.
Aron magamit kini nga macro, pindota ang keyboard shortcut Alt + F11 o butones visual Basic tab developer, pagsal-ot og bag-ong walay sulod nga module pinaagi sa menu Isulod – Module ug kopyaha ang code niini nga macro didto:
Sub DuplicatesColoring() Dim Dupes() 'Ideklara ang usa ka array para tipigan ang mga duplicate ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'Kuhaa ang fill kung i = 3 Para sa Matag cell Sa Pagpili Kon WorksheetFunction.CountIf(Selection, cell.Value) > 1 Unya Para sa k = LBound(Dupes) Ngadto sa UBound(Dupes) 'kon ang cell anaa na sa array sa mga duplicate, sulati ang If Dupes(k, 1) = cell Unya cell.Interior. ColorIndex = Dupes(k, 2) Sunod k 'kon ang cell adunay duplicate, apan wala pa sa array, idugang kini sa array ug pun-a kung cell.Interior.ColorIndex = -4142 Unya cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 Katapusan Kon Katapusan Kon Sunod cell End Sub
Karon mahimo nimong pilion ang bisan unsang range nga adunay data sa sheet ug ipadagan ang among macro gamit ang keyboard shortcut Alt + F8 o pinaagi sa buton Macros (Macros) tab developer (Developer).
- I-highlight ang mga duplicate nga adunay kolor
- Unsa ang mga macros, kung asa ibutang ang macro code sa Visual Basic, kung giunsa kini pagpadagan
- Giunsa ang pag-ihap sa gidaghanon sa talagsaon nga mga kantidad sa usa ka gihatag nga sakup sa mga selula