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

Вход

Регистрация

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

 

= Мир MS Excel/Поиск в таблице эксель через введение данных в ячейку. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Поиск в таблице эксель через введение данных в ячейку.
kangovince Дата: Четверг, 24.11.2022, 08:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Добрый день. Вопрос такой:

Возможно ли в значение, которое вносит пользователь в определённую ячейку, передавать в "Текстовый фильтр" - "Содержит"?
Иными словами, чтобы пользователь таблицы (в банном случае это прайс) мог ввести имя желаемой техники (например на скрине - техника CASE), и ему через фильтр выдавался подбор только по этой техничке?

Скрин прикрепляю.

Если есть какой-то (хоть какой) способ это реализовать, я буду бесконечно Вам благодарен!
Заранее благодарю всех, кто откликнется!
К сообщению приложен файл: 9650596.jpg (69.2 Kb)
 
Ответить
СообщениеДобрый день. Вопрос такой:

Возможно ли в значение, которое вносит пользователь в определённую ячейку, передавать в "Текстовый фильтр" - "Содержит"?
Иными словами, чтобы пользователь таблицы (в банном случае это прайс) мог ввести имя желаемой техники (например на скрине - техника CASE), и ему через фильтр выдавался подбор только по этой техничке?

Скрин прикрепляю.

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

Автор - kangovince
Дата добавления - 24.11.2022 в 08:34
китин Дата: Четверг, 24.11.2022, 08:36 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7029
Репутация: 1078 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Картинка красивая. но нужен файл, согласно Правил форума


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
СообщениеКартинка красивая. но нужен файл, согласно Правил форума

Автор - китин
Дата добавления - 24.11.2022 в 08:36
kangovince Дата: Четверг, 24.11.2022, 08:48 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

китин, добрый день. Извините, исправился. Файл во вложении.
А вообще, как думаете, возможно ли такое реализовать, или проще искать обходные пути?
К сообщению приложен файл: __.xls (37.5 Kb)


Сообщение отредактировал kangovince - Четверг, 24.11.2022, 08:49
 
Ответить
Сообщениекитин, добрый день. Извините, исправился. Файл во вложении.
А вообще, как думаете, возможно ли такое реализовать, или проще искать обходные пути?

Автор - kangovince
Дата добавления - 24.11.2022 в 08:48
Nic70y Дата: Четверг, 24.11.2022, 08:58 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9006
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b2")) Is Nothing Then
        u = Cells(Rows.Count, "a").End(xlUp).Row
        Range("a10:f" & u).AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
    End If
End Sub
[/vba]
К сообщению приложен файл: 14.xls (44.0 Kb)


ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("b2")) Is Nothing Then
        u = Cells(Rows.Count, "a").End(xlUp).Row
        Range("a10:f" & u).AutoFilter Field:=2, Criteria1:="=*" & Target.Value & "*"
    End If
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 24.11.2022 в 08:58
  • Страница 1 из 1
  • 1
Поиск:

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