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

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

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

Всем привет!
Как в 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

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

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
и зависает...
Хм... ручки у меня - крЮчки...

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

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

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

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

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

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

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

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

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

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

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

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

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

	07.02.2014, 05:54

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

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

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

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

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

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

Решение