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

Вход

Регистрация

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

 

= Мир MS Excel/Упрощенный поиск. - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Упрощенный поиск. (Макросы/Sub)
Упрощенный поиск.
enchanter54 Дата: Вторник, 15.03.2016, 00:07 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
Привет всем! Столкнулся с такой задачей, есть таблица с именами и кодами, часто включаем фильтр - поиск и выбираем нужные коды, а не нужные отключаем снятием флажков, но когда кодов стало 2000 штук и выше, это долго и не удобно. Если бы кто-нибудь смог помочь в этом деле, был бы очень благодарен.
Прикрепляю файл, там подробно всё описано, таблица не сложная - упрощенная.
К сообщению приложен файл: 2323.xlsx(11Kb)
 
Ответить
СообщениеПривет всем! Столкнулся с такой задачей, есть таблица с именами и кодами, часто включаем фильтр - поиск и выбираем нужные коды, а не нужные отключаем снятием флажков, но когда кодов стало 2000 штук и выше, это долго и не удобно. Если бы кто-нибудь смог помочь в этом деле, был бы очень благодарен.
Прикрепляю файл, там подробно всё описано, таблица не сложная - упрощенная.

Автор - enchanter54
Дата добавления - 15.03.2016 в 00:07
_Boroda_ Дата: Вторник, 15.03.2016, 00:14 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 9374
Репутация: 3947 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Так нужно?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    If Target = "" Then
        ActiveSheet.ShowAllData
    Else
        ActiveSheet.Range("$A$2").AutoFilter Field:=1, Criteria1:=Target
    End If
End Sub
[/vba]
К сообщению приложен файл: 2323_1.xlsm(19Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеТак нужно?
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    If Target = "" Then
        ActiveSheet.ShowAllData
    Else
        ActiveSheet.Range("$A$2").AutoFilter Field:=1, Criteria1:=Target
    End If
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 15.03.2016 в 00:14
enchanter54 Дата: Вторник, 15.03.2016, 00:20 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 21
Репутация: 0 ±
Замечаний: 40% ±

Excel 2007
_Boroda_, Супер просто! Вы помогли и благодарю за помощь!
 
Ответить
Сообщение_Boroda_, Супер просто! Вы помогли и благодарю за помощь!

Автор - enchanter54
Дата добавления - 15.03.2016 в 00:20
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Упрощенный поиск. (Макросы/Sub)
Страница 1 из 11
Поиск:

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