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

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

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

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

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

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

@Vlad999 · 05.10.2015, 15:08

Сообщение от bellfegora

не позволяет больше ни одной строчки вставить...

какие строчки куда?

@bellfegora · 05.10.2015, 15:12

ну это у меня не конечная таблица, она будет ежедневно расти и обновляться, список кодов будет увеличиваться..
а программа не позволяет мне добавлять строчки в эту таблицу...

Можно еще вопрос-чайника?

Пытаюсь защитить этот лист с этой табличкой от изменений так, чтобы для всех была доступна только ячейка куда код нужно вводить - это возможно? пишет, что типа либо макрос либо защита листа - одновременно нельзя((

@Vlad999 · 05.10.2015, 15:14

добавьте строчку после строки R=......

Visual Basic
1
If Target.Count > 1 Then Exit Sub

@bellfegora · 05.10.2015, 15:23

все равно сразу после добавления любой информации на листе - сразу предлагает end или debug макрос и зависает...
Может дело в том, что у меня табличка не от А до Д, а от А до О и я изменила диапазон в коде?..
Вот так у меня теперь выглядит это все:

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

@Vlad999 · 05.10.2015, 15:27

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim R#
R = Cells(Rows.Count, 1).End(xlUp).Row
If Target.Count > 1 Then Exit Sub
Worksheets("основная информация").Unprotect "1111" 'снимаем пароль
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
Worksheets("основная информация").Protect "1111" 'ставим пароль
End Sub

читаем для общего развития Как защитить лист от пользователя, но не от макроса?
в дальнейшем оформляйте код тегами (кнопка VB или # над окном сообщения).

@bellfegora · 05.10.2015, 15:31

спасибо большое)
Просто как обычно и делается - начальство дает задание простому логисту - сделай никому не ведомую штуку и чтобы прям бабах и работало!
Вы меня спасаете, экселевский волшебник!!!!
Спасибо)

Новые блоги и статьи Все статьи Все блоги /
Когда логика программы не спасает от человеческих ошибок Maks 18.08.2026 В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .	Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .	Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия

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

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

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	05.10.2015, 15:12
	ну это у меня не конечная таблица, она будет ежедневно расти и обновляться, список кодов будет увеличиваться.. а программа не позволяет мне добавлять строчки в эту таблицу... Можно еще вопрос-чайника? Пытаюсь защитить этот лист с этой табличкой от изменений так, чтобы для всех была доступна только ячейка куда код нужно вводить - это возможно? пишет, что типа либо макрос либо защита листа - одновременно нельзя(( 0

@bellfegora 0 / 0 / 0 Регистрация: 01.10.2015 Сообщений: 10
	05.10.2015, 15:31
	спасибо большое) Просто как обычно и делается - начальство дает задание простому логисту - сделай никому не ведомую штуку и чтобы прям бабах и работало! Вы меня спасаете, экселевский волшебник!!!! Спасибо) 0

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

Решение