Создать фильтр по значению ячейки

@Zet_iKs · Регистрация: 22.04.2013

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

Всем привет!
Как в MS Office Excel реализовать фильтр по значению ячейки.
покажу на картинках что я имею ввиду. Имеется программа со списком различных форм отчетности.

для удобного поиска форм тут реализован фильтр по ячейкам. Например в столбце "Код" набираем часть кода формы и нам выдаются все формы содержащие этот фрагмент кода.

Имеется такой же список форм в файле Excel. Подскажите пожалуйста, как в нем сделать такой же фильтр?
пробовал функцию =ВПР(), но она ищет только полное соответствие.
Буду признателен за любую помощь!!!

Fairuza · 07.02.2014, 09:31

Фильтр "Содержит" или "начинается с"

@Zet_iKs · 07.02.2014, 09:48 **[ТС]**

Fairuza, спасибо за отклик, но так не пойдет. с этим файлом будет работать очень вредная женщина, которая мышки боится. она не будет нажимать 10 кнопок чтобы найти то что ей нужно

Fairuza · 07.02.2014, 10:11

"вредная" и "боится мышки" - это разные вещи))))

Как нужно реализовать поиск? Я увидела только "фильтр" в Вашем сообщении.

@Zet_iKs · 07.02.2014, 10:37 **[ТС]**

В принципе это и есть своего рода фильтр.
работает по аналогии с фильтром "содержит". только без манипуляций с настройкой фильтра, а то что ищем мы забиваем в ячейку.
Смотрите, есть файл excel
формы.xls
В столбце А у нас отображаются коды каждой формы отчетности. В ячейку А3 мы забиваем, например, 3317. В таблице у нас должны остаться только те строки, в коде формы которых встречается 3317.
как это работает в программе сдачи отчетности на картинках:
изначально отображаются все формы:

в колонке "код" забиваем часть кода формы 3317 и в таблице остаются только значения содержащие "3317"

Fairuza · 07.02.2014, 11:34

Я думаю, что здесь нужен макрос, потому как нельзя делать лишних телодвижений))))

@Vlad999 · 07.02.2014, 13:24

пробуйте. в модуль листа.

Visual Basic
1
2
3
4
5
6
7
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
 If Intersect(Range("A3:D3"), Target) Is Nothing Then Exit Sub
   If Target = "" Then ActiveSheet.Range("$A$3:$D$293").AutoFilter Field:=Target.Column: Exit Sub
   ActiveSheet.Range("$A$3:$D$293").AutoFilter Field:=Target.Column, _
   Criteria1:="=*" & Target.Value & "*", Operator:=xlAnd
 End Sub

@Zet_iKs · 10.02.2014, 07:08 **[ТС]**

Vlad999, спасибо большое! все идеально работает!!!

16.09.2014, 21:33

Vlad999, огромное спасибо за код! Искал в точности именно это, потому и нашел.

Но насчет идеальной работы.. А даты тоже фильтруются? У меня почему-то нет. Более того, вообще цифры не работают. Даже если поменять стиль ячеек на текстовый!

Зарегистрировался чтобы спросить об этом

Можете помочь, пожалуйста?

Добавлено через 9 минут
UPDATED - все-таки в текстовом режиме работает. Не обновил значения после смены формата. Но даты никак не получается задействовать... Можно их тоже в виде текста набирать, конечно - но это, согласитесь, немного не то.

P.s. Еще раз благодарю за то, что уже работает. Они еще и по нескольким колонкам, и с пустыми ячейками... Это прекрасно

@bellfegora · 02.10.2015, 14:57

Подскажите, пожалуйста!
Для этой функции нужен какой-то особый формат ячеек? вот в файле, который я скачала тут - фильтр работает.
В моем - нет.
Если в файл с форума вставить пару строк из моего файла - то фильтр будет работать со строками форумского файла, но не будет фильтровать мои строки..
Почему так?
Помогите!

@Vlad999 · 02.10.2015, 15:22

bellfegora, покажите ваш файл.

@bellfegora · 02.10.2015, 15:31

Не вижу, как прикрепить файл... Могу на почту бросить..

@chumich · 02.10.2015, 15:43

bellfegora, https://www.cyberforum.ru/abou... post594251

@bellfegora · 02.10.2015, 15:54

Вот, вроде вышло!

@bellfegora · 02.10.2015, 15:55

теперь точно да)

@Vlad999 · 02.10.2015, 15:59

а теперь описание, что нужно то? согласно файла.

@bellfegora · 02.10.2015, 16:04

Тот, кто работает в системе вставляет в ячейку А5 код из списка ниже (впоследствии строчки с кодами будут многократно повторяться, поэтому нужно выбрать все коды с критерием в ячейке А5), этих строчек в таблице будет больше 10000 и таблица большая до колонки О (А5:О10000).
Так вот я забиваю инфу в ячейку А5 и никакого эффекта(((

@bellfegora · 05.10.2015, 14:26

не получится с моими данными, да?

@Vlad999 · 05.10.2015, 14:43

проверяется код целиком или как?
если целиком то вариант

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R#
Application.ScreenUpdating = False
R = Cells(Rows.Count, 1).End(xlUp).Row
If Target = "" Then
ActiveSheet.Range("$A$5:$D$" & R).AutoFilter Field:=1
ElseIf Target.Address(0, 0) = "A5" Then
ActiveSheet.Range("$A$5:$D$" & R).AutoFilter Field:=1, Criteria1:=Target.Value, Operator:=xlAnd
End If
Application.ScreenUpdating = True
End Sub

@bellfegora · 05.10.2015, 14:59

да, нужно целиком! сейчас попробую!

Добавлено через 7 минут
он мне почему-то не позволяет больше ни одной строчки вставить... сразу выдает ошибку, ругается на строчку
If Target = "" Then
и зависает...
Хм... ручки у меня - крЮчки...

Новые блоги и статьи Все статьи Все блоги /
Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Рецензия / Мнение Это мой обзор планшета X220 с точки зрения школьника. Недавно я решила попытаться уменьшить свой. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .
От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .

@Zet_iKs 12 / 12 / 2 Регистрация: 22.04.2013 Сообщений: 97

	Создать фильтр по значению ячейки 07.02.2014, 05:54. Показов 31164. Ответов 25 Метки нет (Все метки) Всем привет! Как в MS Office Excel реализовать фильтр по значению ячейки. покажу на картинках что я имею ввиду. Имеется программа со списком различных форм отчетности. для удобного поиска форм тут реализован фильтр по ячейкам. Например в столбце "Код" набираем часть кода формы и нам выдаются все формы содержащие этот фрагмент кода. Имеется такой же список форм в файле Excel. Подскажите пожалуйста, как в нем сделать такой же фильтр? пробовал функцию =ВПР(), но она ищет только полное соответствие. Буду признателен за любую помощь!!! 0

Fairuza 6024 / 3218 / 719 Регистрация: 23.11.2010 Сообщений: 10,758
	07.02.2014, 09:31
	Фильтр "Содержит" или "начинается с" 0

@Zet_iKs 12 / 12 / 2 Регистрация: 22.04.2013 Сообщений: 97
	07.02.2014, 09:48 [ТС]
	Fairuza, спасибо за отклик, но так не пойдет. с этим файлом будет работать очень вредная женщина, которая мышки боится. она не будет нажимать 10 кнопок чтобы найти то что ей нужно 0

Fairuza 6024 / 3218 / 719 Регистрация: 23.11.2010 Сообщений: 10,758
	07.02.2014, 10:11
	"вредная" и "боится мышки" - это разные вещи)))) Как нужно реализовать поиск? Я увидела только "фильтр" в Вашем сообщении. 0

@Zet_iKs 12 / 12 / 2 Регистрация: 22.04.2013 Сообщений: 97
	07.02.2014, 10:37 [ТС]
	В принципе это и есть своего рода фильтр. работает по аналогии с фильтром "содержит". только без манипуляций с настройкой фильтра, а то что ищем мы забиваем в ячейку. Смотрите, есть файл excel формы.xls В столбце А у нас отображаются коды каждой формы отчетности. В ячейку А3 мы забиваем, например, 3317. В таблице у нас должны остаться только те строки, в коде формы которых встречается 3317. как это работает в программе сдачи отчетности на картинках: изначально отображаются все формы: в колонке "код" забиваем часть кода формы 3317 и в таблице остаются только значения содержащие "3317" 0

Fairuza 6024 / 3218 / 719 Регистрация: 23.11.2010 Сообщений: 10,758
	07.02.2014, 11:34
	Я думаю, что здесь нужен макрос, потому как нельзя делать лишних телодвижений)))) 0

@Zet_iKs 12 / 12 / 2 Регистрация: 22.04.2013 Сообщений: 97
	10.02.2014, 07:08 [ТС]
	Vlad999, спасибо большое! все идеально работает!!! 0

soloview
	16.09.2014, 21:33
	Vlad999, огромное спасибо за код! Искал в точности именно это, потому и нашел. Но насчет идеальной работы.. А даты тоже фильтруются? У меня почему-то нет. Более того, вообще цифры не работают. Даже если поменять стиль ячеек на текстовый! Зарегистрировался чтобы спросить об этом Можете помочь, пожалуйста? Добавлено через 9 минут UPDATED - все-таки в текстовом режиме работает. Не обновил значения после смены формата. Но даты никак не получается задействовать... Можно их тоже в виде текста набирать, конечно - но это, согласитесь, немного не то. P.s. Еще раз благодарю за то, что уже работает. Они еще и по нескольким колонкам, и с пустыми ячейками... Это прекрасно

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	02.10.2015, 14:57
	Подскажите, пожалуйста! Для этой функции нужен какой-то особый формат ячеек? вот в файле, который я скачала тут - фильтр работает. В моем - нет. Если в файл с форума вставить пару строк из моего файла - то фильтр будет работать со строками форумского файла, но не будет фильтровать мои строки.. Почему так? Помогите! 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	02.10.2015, 15:22
	bellfegora, покажите ваш файл. 0

@chumich 2081 / 1239 / 464 Регистрация: 20.12.2014 Сообщений: 3,234
	02.10.2015, 15:43
	bellfegora, https://www.cyberforum.ru/abou... post594251 0

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	02.10.2015, 15:31
	Не вижу, как прикрепить файл... Могу на почту бросить.. 0

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	02.10.2015, 15:54
	Вот, вроде вышло! 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	02.10.2015, 15:59
	а теперь описание, что нужно то? согласно файла. 0

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	02.10.2015, 16:04
	Тот, кто работает в системе вставляет в ячейку А5 код из списка ниже (впоследствии строчки с кодами будут многократно повторяться, поэтому нужно выбрать все коды с критерием в ячейке А5), этих строчек в таблице будет больше 10000 и таблица большая до колонки О (А5:О10000). Так вот я забиваю инфу в ячейку А5 и никакого эффекта((( 0

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	05.10.2015, 14:26
	не получится с моими данными, да? 0

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	05.10.2015, 14:59
	да, нужно целиком! сейчас попробую! Добавлено через 7 минут он мне почему-то не позволяет больше ни одной строчки вставить... сразу выдает ошибку, ругается на строчку If Target = "" Then и зависает... Хм... ручки у меня - крЮчки... 0

Создать фильтр по значению ячейки

Решение