Приветствую, коллеги!
Прикрутили к форуму подсветку кода макросов (под тегом КОД) с помощью java-script.
Выглядит это примерно так:
Надеюсь, вам понравится
О всех замеченных глюках и багах просьба отписываться в этой теме.
Прикрутили к форуму подсветку кода макросов (под тегом КОД) с помощью java-script.
Выглядит это примерно так:
Код |
---|
Sub DuplicatesColoring() Dim Dupes() 'объявляем массив для хранения дубликатов ReDim Dupes(1 To Selection.Cells.Count, 1 To 2) Selection.Interior.ColorIndex = -4142 'убираем заливку если была i = 3 For Each cell In Selection If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'если ячейка уже есть в массиве дубликатов - заливаем If Dupes(k, 1) = cell Then cell.Interior.ColorIndex = Dupes(k, 2) Next k 'если ячейка содержит дубликат, но еще не в массиве - добавляем ее в массив и заливаем If cell.Interior.ColorIndex = -4142 Then cell.Interior.ColorIndex = i Dupes(i, 1) = cell.Value Dupes(i, 2) = i i = i + 1 End If End If Next cell End Sub |
Надеюсь, вам понравится
О всех замеченных глюках и багах просьба отписываться в этой теме.