Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Умный фильтр (Макросы/Sub)
Умный фильтр
Oh_Nick Дата: Воскресенье, 01.10.2023, 18:09 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

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

На просторах интернета наткнулся на такой Умный фильтр и если возможно можно ли код скорректировать чтобы он отображал найденные слова отдельно по каждой колонке?
Например если мы в Наименование запишем ст20 в D2 то он отфильтрует только эту колонку,а все остальные оставит на месте. МБ можно как то просто сделать шрифт прозрачным или что то типо того для неподходящих значений?
К сообщению приложен файл: kniga1.xlsm (60.6 Kb)
 
Ответить
СообщениеВсем доброго времени суток!

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

Автор - Oh_Nick
Дата добавления - 01.10.2023 в 18:09
cmivadwot Дата: Воскресенье, 01.10.2023, 23:38 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 86 ±
Замечаний: 0% ±

365
Oh_Nick,доброго. по описанию.. может просто условное форматирование? или как должно фильтроваться? вверх подняться (отсортироваться) все значения с выбранным наименованием? чтоб подбирать неполные совпадения или фильтровать? пара вариантов...
К сообщению приложен файл: kniga144.xlsx (117.7 Kb)


Сообщение отредактировал cmivadwot - Воскресенье, 01.10.2023, 23:38
 
Ответить
СообщениеOh_Nick,доброго. по описанию.. может просто условное форматирование? или как должно фильтроваться? вверх подняться (отсортироваться) все значения с выбранным наименованием? чтоб подбирать неполные совпадения или фильтровать? пара вариантов...

Автор - 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)
 
Ответить
Сообщениеcmivadwot, вариант на первом листе неплохой, я бы даже сказал очень рабочий hands , если не получится прям убирать неподходящие значения, а не белить их( или получится?)

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

Автор - Oh_Nick
Дата добавления - 02.10.2023 в 08:38
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,

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

[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: Должно получаться примерно так (скрин приложил).

Автор - Oh_Nick
Дата добавления - 02.10.2023 в 10:28
cmivadwot Дата: Понедельник, 02.10.2023, 13:37 | Сообщение № 5
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 86 ±
Замечаний: 0% ±

365
Oh_Nick, для чего это? для фильтрации по 3 строкам? в чем смысл? Что должно быт на выходе? Если 1 вариант подходит.. подпиливайте УФ по аналогии и на остальные строчки..
а второй вариант не лучше? отфильтровать по всем совпадениям?
К сообщению приложен файл: 7556566.xlsx (141.7 Kb) · 1760081.xlsx (113.3 Kb)


Сообщение отредактировал cmivadwot - Понедельник, 02.10.2023, 13:51
 
Ответить
СообщениеOh_Nick, для чего это? для фильтрации по 3 строкам? в чем смысл? Что должно быт на выходе? Если 1 вариант подходит.. подпиливайте УФ по аналогии и на остальные строчки..
а второй вариант не лучше? отфильтровать по всем совпадениям?

Автор - cmivadwot
Дата добавления - 02.10.2023 в 13:37
cmivadwot Дата: Понедельник, 02.10.2023, 14:00 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 86 ±
Замечаний: 0% ±

365
Oh_Nick, или.. по типа точным сочетаниям...
К сообщению приложен файл: keeeeeeennn.xlsx (114.0 Kb)


Сообщение отредактировал cmivadwot - Понедельник, 02.10.2023, 18:57
 
Ответить
СообщениеOh_Nick, или.. по типа точным сочетаниям...

Автор - cmivadwot
Дата добавления - 02.10.2023 в 14:00
Oh_Nick Дата: Вторник, 03.10.2023, 13:23 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
cmivadwot,

спасибо большое, буду тестить
 
Ответить
Сообщениеcmivadwot,

спасибо большое, буду тестить

Автор - Oh_Nick
Дата добавления - 03.10.2023 в 13:23
cmivadwot Дата: Среда, 04.10.2023, 00:07 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 457
Репутация: 86 ±
Замечаний: 0% ±

365
Oh_Nick, вариант через ж...и работает так же))), все равно не понятно, как должно работать))))
К сообщению приложен файл: kniga1_2.xlsm (67.5 Kb)
 
Ответить
СообщениеOh_Nick, вариант через ж...и работает так же))), все равно не понятно, как должно работать))))

Автор - cmivadwot
Дата добавления - 04.10.2023 в 00:07
Oh_Nick Дата: Среда, 04.10.2023, 10:00 | Сообщение № 9
Группа: Проверенные
Ранг: Обитатель
Сообщений: 445
Репутация: 8 ±
Замечаний: 20% ±

Excel 2019
cmivadwot, сам пока не понял , что хочу, но вариант с выделением в черный - хороший)
 
Ответить
Сообщениеcmivadwot, сам пока не понял , что хочу, но вариант с выделением в черный - хороший)

Автор - Oh_Nick
Дата добавления - 04.10.2023 в 10:00
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Умный фильтр (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!