Умный фильтр - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Умный фильтр (Макросы/Sub)

Умный фильтр

Oh_Nick

Дата: Воскресенье, 01.10.2023, 18:09 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

Всем доброго времени суток!

На просторах интернета наткнулся на такой Умный фильтр и если возможно можно ли код скорректировать чтобы он отображал найденные слова отдельно по каждой колонке?
Например если мы в Наименование запишем ст20 в D2 то он отфильтрует только эту колонку,а все остальные оставит на месте. МБ можно как то просто сделать шрифт прозрачным или что то типо того для неподходящих значений?

К сообщению приложен файл: kniga1.xlsm (60.6 Kb)

Ответить

cmivadwot

Дата: Воскресенье, 01.10.2023, 23:38 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 497

Репутация: 93 ±

Замечаний: 0% ±

365

Oh_Nick,доброго. по описанию.. может просто условное форматирование? или как должно фильтроваться? вверх подняться (отсортироваться) все значения с выбранным наименованием? чтоб подбирать неполные совпадения или фильтровать? пара вариантов...

К сообщению приложен файл: kniga144.xlsx (117.7 Kb)

Сообщение отредактировал cmivadwot - Воскресенье, 01.10.2023, 23:38

Ответить

Oh_Nick

Дата: Понедельник, 02.10.2023, 08:38 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

cmivadwot, вариант на первом листе неплохой, я бы даже сказал очень рабочий hands

, если не получится прям убирать неподходящие значения, а не белить их( или получится?)

А не могли бы вы сделать ,пожалуйста, так же для остальных строчек в верхнем диапазоне, а то сейчас только для колонки D белятся , пример прикрепил. И если это возможно искать по неполному значению, т.е если в размерах введем 3000х1500 то он найдет все размеры которые начинаются на 3000х1500, а вот если введем 3000х1500х16 , то уже только их. и так по всем колонкам..

К сообщению приложен файл: 3380375.xlsx (117.9 Kb)

Ответить

Oh_Nick

Дата: Понедельник, 02.10.2023, 10:28 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 445

Репутация: 8 ±

Замечаний: 20% ±

Excel 2019

cmivadwot,

Может быть что такого сюда допилить, типо если в строчке весь текст белый, то она хайдится. если хотя бы присутствует одна ячейка где текст черного цвета, то строчка остается? Начал писать, но что то не особо работает..

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rng As Range
    Dim cell As Range
    Dim hideRow As Boolean

    If Not Intersect(Target, Me.Range("A2:F6")) Is Nothing Then
        For Each rng In Me.Range("A6:F1500").Rows
            hideRow = True
            For Each cell In rng.Cells
                If cell.Font.Color <> RGB(255, 255, 255) Then
                    hideRow = False
                    Exit For
                End If
            Next cell
            rng.EntireRow.Hidden = hideRow
        Next rng
    End If
End Sub

[/vba]

UPDATE: Должно получаться примерно так (скрин приложил).

К сообщению приложен файл: 6933884.jpg (59.1 Kb)

Сообщение отредактировал Oh_Nick - Понедельник, 02.10.2023, 13:29

Ответить

cmivadwot

Дата: Понедельник, 02.10.2023, 13:37 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 497

Репутация: 93 ±

Замечаний: 0% ±

365

Oh_Nick, для чего это? для фильтрации по 3 строкам? в чем смысл? Что должно быт на выходе? Если 1 вариант подходит.. подпиливайте УФ по аналогии и на остальные строчки..
а второй вариант не лучше? отфильтровать по всем совпадениям?