Фильтрация для всех колонок

@vlanatvaszla · Регистрация: 10.09.2016

Студворк — интернет-сервис помощи студентам

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
    With ActiveSheet
        .AutoFilterMode = False
        .UsedRange.AutoFilter
            
        .UsedRange.AutoFilter field:=1, Criteria1:="*" & Me.TextBox1.Value & "*" ', Operator:=xlOr
        .UsedRange.AutoFilter field:=2, Criteria1:="*" & Me.TextBox1.Value & "*" ', Operator:=xlOr
        .UsedRange.AutoFilter field:=3, Criteria1:="*" & Me.TextBox1.Value & "*" ', Operator:=xlOr
        .UsedRange.AutoFilter field:=4, Criteria1:="*" & Me.TextBox1.Value & "*" ', Operator:=xlOr
        .UsedRange.AutoFilter field:=5, Criteria1:="*" & Me.TextBox1.Value & "*" ', Operator:=xlOr
        .UsedRange.AutoFilter field:=6, Criteria1:="*" & Me.TextBox1.Value & "*" ', Operator:=xlOr
    End With

Помогите исправить.

@pashulka · 01.06.2017, 22:56

Если нужна именно фильтрация, то можете использовать расширенный фильтр. Правда, при этом способе потребуется несколько дополнительных ячеек листа (2ячейки, если использовать формулу, или 6x2ячеек, если критерий отбора будет константа)

Если же подойдёт простое скрытие строк, то можете попробовать что-то типо :

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Test()
    Application.ScreenUpdating = False
    
    Dim iText$, iRow As Range
    iText = "*" & TextBox1.Value & "*"
    For Each iRow In ActiveSheet.UsedRange.Rows
        iRow.Hidden = Application.CountIf(iRow, iText) = 0
    Next
 
    Application.ScreenUpdating = True
End Sub

@vlanatvaszla · 01.06.2017, 23:40 **[ТС]**

Я тут подумал, может быть сделать "суммирование" всех ячеек в строке в новой колонке, далее сделать эту новую колонку невидимой. И фильтровать по ячейкам из этой колонки. Такое возможно? Или плохой вариант?

@pashulka · 02.06.2017, 07:54

vlanatvaszla, Можете об'яснить, чем целый столбец дополнительных ячеек лучше двух ячеек, которые использует расширенный фильтр ...

Или Вам просто не хочется

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

@vlanatvaszla · 02.06.2017, 14:23 **[ТС]**

pashulka, просто я в Excel не очень то разбираюсь. vba для меня роднее. Файл я конечно же выкладываю. Если кто-то захочет помочь, буду только рад.

@vlanatvaszla · 02.06.2017, 15:52 **[ТС]**

Visual Basic
1
2
    Range("A10:F13").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
        Range("A1:F6"), Unique:=False

Не работает, в общем...

@pashulka · 02.06.2017, 16:14

Для чисел не работает критерий - содержит, т.е. если в столбце наличествует 888, то критерий *8* не позволит отобразить строки с этим числом (причём это актуально не только для расширенного фильтра, но и для автофильтра тоже)

@vlanatvaszla · 02.06.2017, 16:25 **[ТС]**

Спасибо за пояснение. Я изменил значение для поиска на *toks*. Фильтрация скрывает все записи, хотя в последней ячейки первой записи и предпоследней ячейке второй записи есть слово stock.

@vlanatvaszla · 02.06.2017, 16:30 **[ТС]**

Результат фильтрации по первой ячейке. Выводятся все записи.

@pashulka · 02.06.2017, 16:39

За отсутствием данных (две-три строки в исходном файле - не считаются) такой пример :

@vlanatvaszla · 02.06.2017, 18:42 **[ТС]**

pashulka, большое спасибо.

Если всё же, кто-нибудь укажет правильный способ расширенной фильтрации в vba и/или найдёт в моём примере ошибку, буду благодарен.

@pashulka · 02.06.2017, 21:03

В примере - в качестве реального диапазона условий, была указана одна единственная (что уже неправильно) и пустая ячейка. Дальше пошли скриншоты, а это уже ниочём, ибо ни данных, ни кода фильтрации, только картинки.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .

@vlanatvaszla 0 / 4 / 0 Регистрация: 10.09.2016 Сообщений: 392
	01.06.2017, 23:40 [ТС]
	Я тут подумал, может быть сделать "суммирование" всех ячеек в строке в новой колонке, далее сделать эту новую колонку невидимой. И фильтровать по ячейкам из этой колонки. Такое возможно? Или плохой вариант? 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	02.06.2017, 07:54
	vlanatvaszla, Можете об'яснить, чем целый столбец дополнительных ячеек лучше двух ячеек, которые использует расширенный фильтр ... Или Вам просто не хочется читать справку, касаемо р.ф., где говорится о возможности использования формулы, в качестве критерия отбора, тогда киньте на форум небольшой фрагмент таблицы (без конфиденциальных данных) и кто-нибудь из читателей топика, выложит готовый пример с расширенным фильтром. 1

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	02.06.2017, 16:14
	Для чисел не работает критерий - содержит, т.е. если в столбце наличествует 888, то критерий 8 не позволит отобразить строки с этим числом (причём это актуально не только для расширенного фильтра, но и для автофильтра тоже) 0

@vlanatvaszla 0 / 4 / 0 Регистрация: 10.09.2016 Сообщений: 392
	02.06.2017, 16:25 [ТС]
	Спасибо за пояснение. Я изменил значение для поиска на toks. Фильтрация скрывает все записи, хотя в последней ячейки первой записи и предпоследней ячейке второй записи есть слово stock. Миниатюры 0

@vlanatvaszla 0 / 4 / 0 Регистрация: 10.09.2016 Сообщений: 392
	02.06.2017, 16:30 [ТС]
	Результат фильтрации по первой ячейке. Выводятся все записи. Миниатюры 0

@vlanatvaszla 0 / 4 / 0 Регистрация: 10.09.2016 Сообщений: 392
	02.06.2017, 18:42 [ТС]
	pashulka, большое спасибо. Если всё же, кто-нибудь укажет правильный способ расширенной фильтрации в vba и/или найдёт в моём примере ошибку, буду благодарен. 0

@pashulka 4139 / 2243 / 940 Регистрация: 01.12.2010 Сообщений: 4,624
	02.06.2017, 21:03
	В примере - в качестве реального диапазона условий, была указана одна единственная (что уже неправильно) и пустая ячейка. Дальше пошли скриншоты, а это уже ниочём, ибо ни данных, ни кода фильтрации, только картинки. 0