Pami zouti estanda Microsoft Excel yo, gen plizyè fason diferan pou mete aksan sou kopi ak koulè. Fason ki pi fasil ak pi rapid se ak fòma kondisyonèl. Pou fè sa, jis chwazi yon seri selil epi chwazi sou tab la Kay — Fòma kondisyonèl — Règ pou seleksyon selil — Valè kopi (Kay — Fòma kondisyonèl — Mete aksan sou règ selil yo — Valè kopi):
Sepandan, nan ka sa a, koulè ranpli tout selil yo pral menm bagay la, sa vle di li tou senpleman siyal ke eleman nan gen kopi yon lòt kote nan seri a, men pa fè anyen pou ede jwenn yo. Ou ka ranje sitiyasyon an ak yon ti makro ki pral ranpli chak pè (oswa plis) kopi repete ak koulè pwòp li yo:
Se konsa, pi klè, dwa? Natirèlman, ak yon gwo kantite selil repete, li pral difisil yo fè distenksyon ant tout koulè, men ak yon kantite relativman ti kopi, metòd sa a ap travay parfe.
Pou itilize makro sa a, peze rakoursi klavye a Alt + F11 oswa bouton Vizyèl Debaz tab Developer, mete yon nouvo modil vid atravè meni an Mete – Modil epi kopye kòd makro sa a la:
Sub DuplicatesColoring() Dim Dupes() 'Deklare yon etalaj pou estoke kopi ReDim Dupes(1 Pou Selection.Cells.Count, 1 Pou 2) Selection.Interior.ColorIndex = -4142 'Retire ranpli a si mwen = 3 Pou chak selil nan Seleksyon Si WorksheetFunction.CountIf(Selection, cell.Value) > 1 Lè sa a, Pou k = LBound(Dupes) Pou UBound(Dupes) 'si selil la deja nan etalaj la nan kopi, ranpli If Dupes (k, 1) = selil Lè sa a, selil.Enteryè. ColorIndex = Dupes(k, 2) Next k 'si selil la gen yon kopi, men li poko nan etalaj la, ajoute li nan etalaj la epi ranpli li Si cell.Interior.ColorIndex = -4142 Lè sa a, cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Next cell End Sub
Koulye a, ou ka chwazi nenpòt seri ak done sou fèy la epi kouri makro nou an lè l sèvi avèk chemen kout klavye a Alt + F8 oswa atravè bouton an Makro (Makro) tab pwomotè (Devlopè).
- Mete aksan sou kopi ak koulè
- Ki sa ki makro, ki kote yo mete kòd macro nan Visual Basic, ki jan yo kouri yo
- Ki jan yo konte kantite valè inik nan yon seri selil bay yo