Дар байни асбобҳои стандартии Microsoft Excel, роҳҳои гуногун барои таъкид кардани такрорӣ бо ранг мавҷуданд. Роҳи осонтарин ва зудтарин ин форматкунии шартӣ мебошад. Барои ин, танҳо як қатор чашмакҳоро интихоб кунед ва дар ҷадвал интихоб кунед Хона — Форматкунии шартӣ — Қоидаҳои интихоби ячейка — Қиматҳои такрорӣ (Хона - Форматкунии шартӣ - Қоидаҳои ҷудокунии ячейкаҳо - арзишҳои такрорӣ):
Аммо, дар ин ҳолат, ранги пуркунии ҳама ячейкаҳо якхела хоҳад буд, яъне он танҳо нишон медиҳад, ки элемент дар ҷои дигаре дар диапазон такрорӣ дорад, аммо барои ёфтани онҳо ҳеҷ кор намекунад. Шумо метавонед вазъиятро бо макроси хурде ислоҳ кунед, ки ҳар як ҷуфт (ё бештар) такрори такрориро бо ранги худ пур мекунад:
Ин қадар равшантар, дуруст? Албатта, бо шумораи зиёди ҳуҷайраҳои такроршаванда, фарқ кардани сояҳо душвор хоҳад буд, аммо бо шумораи нисбатан ками такрорӣ, ин усул комилан кор мекунад.
Барои истифодаи ин макрос, миёнабури клавиатураро пахш кунед Alt + F11 ё тугмача Visual Basic ҷадвали ташкилкунанда, модули нави холӣ тавассути меню ворид кунед Ворид - Модул ва рамзи ин макросро дар он ҷо нусхабардорӣ кунед:
Sub DuplicatesColoring() Dim Dupes() 'Массивро барои нигоҳ доштани нусхаҳои такрорӣ эълон кунед ReDim Dupes(1 Ба Selection.Cells.Count, 1 Ба 2) Selection.Interior.ColorIndex = -4142 'Пурро хориҷ кунед, агар i = 3 Барои Ҳар як ячейка дар Интихоб Агар WorksheetFunction.CountIf(Selection, cell.Value) > 1 Пас Барои k = LBound(Dupes) To UBound(Dupes) 'агар ячейка аллакай дар массиви такрорӣ бошад, агар Dupes(k, 1) = ячейкаро пур кунед Сипас ҳуҷайра. Интерьер. ColorIndex = Dupes(k, 2) Next k 'агар чашмак нусхаи такрорӣ дошта бошад, аммо ҳанӯз дар массив нест, онро ба массив илова кунед ва онро пур кунед Агар cell.Interior.ColorIndex = -4142 Пас cell.Interior.ColorIndex = i Дупҳо(i, 1 ) = ячейкаҳо.Арзиш Дупҳо(i, 2) = ii = i + 1 Анҷоми агар ба охир расад Агар ячейкаи навбатӣ End Зер
Акнун шумо метавонед ягон диапазонро бо маълумот дар варақ интихоб кунед ва бо истифода аз миёнабури клавиатура макроси моро иҷро кунед Alt + F8 ё ба воситаи тугма Макрос (Макросҳо) ҷадвали таҳиякунанда (Таҳиягар).
- Дубликатҳоро бо ранг таъкид кунед
- Макросҳо чист, дар Visual Basic дар куҷо коди макросро ворид кардан лозим аст, чӣ тавр онҳоро иҷро кардан лозим аст
- Чӣ тавр шумори арзишҳои беназирро дар доираи додаи чашмакҳо ҳисоб кардан мумкин аст