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

Вход

Регистрация

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

 

= Мир MS Excel/Умный автопоиск в расширенном фильтре - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Готовые решения » Умный автопоиск в расширенном фильтре (Excel)
Умный автопоиск в расширенном фильтре
_Faust_ Дата: Среда, 23.01.2019, 14:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Приветствую всех обитателей форума, у меня тут возникли трудности в поиске информации по столбцам-
задача искать по начальным двум критериям, пример. вбиваю в поле "по" коэф.1.4- и мне нужно что бы выводило коэф. в диапазоне от 1.40-до 1.49, а я вшил макрос для фильтра вот этот
-
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:AF8")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("A10").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
End If
End Sub
[/vba]

я закину сюда файл (с макросом) и попытаюсь закинуть короткий видосик My WebPage
 
Ответить
СообщениеПриветствую всех обитателей форума, у меня тут возникли трудности в поиске информации по столбцам-
задача искать по начальным двум критериям, пример. вбиваю в поле "по" коэф.1.4- и мне нужно что бы выводило коэф. в диапазоне от 1.40-до 1.49, а я вшил макрос для фильтра вот этот
-
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A2:AF8")) Is Nothing Then
On Error Resume Next
ActiveSheet.ShowAllData
Range("A10").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A1").CurrentRegion
End If
End Sub
[/vba]

я закину сюда файл (с макросом) и попытаюсь закинуть короткий видосик My WebPage

Автор - _Faust_
Дата добавления - 23.01.2019 в 14:58
_Boroda_ Дата: Среда, 23.01.2019, 15:11 | Сообщение № 2
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15242
Репутация: 5987 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
1. Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
2. Это уже готовое решение (судя по выбранной Вами ветке форума), которым Вы делитесь? Или это вопрос?
Если вопрос, то
а) "видосик" убираите - это нарушение Правил форума - и пишите пояснения в теле поста
в) модератор перенесет тему в соответствующий раздел форума


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение1. Оформите код тегами (в режиме правки поста выделите код и нажмите кнопку #, пояснялка здесь)
2. Это уже готовое решение (судя по выбранной Вами ветке форума), которым Вы делитесь? Или это вопрос?
Если вопрос, то
а) "видосик" убираите - это нарушение Правил форума - и пишите пояснения в теле поста
в) модератор перенесет тему в соответствующий раздел форума

Автор - _Boroda_
Дата добавления - 23.01.2019 в 15:11
Мир MS Excel » Вопросы и решения » Готовые решения » Умный автопоиск в расширенном фильтре (Excel)
  • Страница 1 из 1
  • 1
Поиск:

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