Привет всем! Столкнулся с такой задачей, есть таблица с именами и кодами, часто включаем фильтр - поиск и выбираем нужные коды, а не нужные отключаем снятием флажков, но когда кодов стало 2000 штук и выше, это долго и не удобно. Если бы кто-нибудь смог помочь в этом деле, был бы очень благодарен. Прикрепляю файл, там подробно всё описано, таблица не сложная - упрощенная.
Привет всем! Столкнулся с такой задачей, есть таблица с именами и кодами, часто включаем фильтр - поиск и выбираем нужные коды, а не нужные отключаем снятием флажков, но когда кодов стало 2000 штук и выше, это долго и не удобно. Если бы кто-нибудь смог помочь в этом деле, был бы очень благодарен. Прикрепляю файл, там подробно всё описано, таблица не сложная - упрощенная.enchanter54
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]
Так нужно? [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
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
