Спасибо!
Неверная работа Условного форматирования
Неверная работа Условного форматирования
21.01.2025 11:19:41
Добрый день, Sanja!
Тогда, прошу подсказать, возможно ли, оставив в ячейках единицы измерения (закупаю продукцию и в шт. и в комплектах и др.), обеспечить правильную работу Условного форматирования? |
|
|
Неверная работа Условного форматирования
Макрос для выделения дубликатов разными цветами, Помощь в корректировке макроса
Макрос для выделения дубликатов разными цветами, Помощь в корректировке макроса
Макрос для выделения дубликатов разными цветами, Помощь в корректировке макроса
Макрос для выделения дубликатов разными цветами, Помощь в корректировке макроса
27.10.2023 10:38:15
Добрый день,
Спасибо за обратную связь! Рассмотрю Ваш вариант решения задачи с выделением дубликатов значений ячеек разными цветами. |
|
|
Макрос для выделения дубликатов разными цветами, Помощь в корректировке макроса
27.10.2023 10:04:06
Добрый день, Игорь!
Спасибо за внимание к просьбе. Макрос: Sub ВыделитьДубликатыРазнымиЦветами() On Error Resume Next ' массив цветов, используемых для заливки ячеек-дубликатов Colors = Array(12900829, 15849925, 14408946, 14610923, 15986394, 14281213, 14277081, _ 9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213) Dim coll As New Collection, dupes As New Collection, _ cols As New Collection, ra As Range, cell As Range, n& Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange) If Err Then Exit Sub ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False For Each cell In ra.Cells ' запонимаем значение дубликатов в коллекции dupes Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value) If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value) Next cell For i& = 1 To dupes.Count ' заполняем коллекцию cols цветами для разных дубликатов n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1 Next For Each cell In ra.Cells ' окрашиваем ячейки, если для её значения назначен цвет cell.Interior.color = cols(CStr(cell.Value)) Next cell Application.ScreenUpdating = True End Sub Задача: корректное выделение дубликатов значений в ячейках разными цветами)))) Проблема: одним цветом выделяются ячейки с разными значениями дублей. Видно при сортировке значений ячеек по цвету 5-му сверху (розовый), выделены одним цветом ячейки с повторяющимися значениями - буквы "е" и "м".
Изменено: |
|
|
Макрос для выделения дубликатов разными цветами, Помощь в корректировке макроса