Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.08.2010, 13:57   #1
SAIIIA.P
Новичок
Джуниор
 
Регистрация: 25.08.2010
Сообщений: 3
Сообщение Автофильтр (AutoFilter), как отфильтровать данные все кроме.?

Всем Здравствуйте.! Прошу помочь в решении следующей задачи.
Имеется таблица, необходимо с помощью автофильтра (AutoFilter) необходимо отфильтровать данные все кроме нескольких значений.
Как пример:
Код:
ActiveSheet.Range("$A$1:$R$167612").AutoFilter Field:=6, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>7"
В моём случае таких условий более 2-х, около 30.
SAIIIA.P вне форума Ответить с цитированием
Старый 25.08.2010, 14:04   #2
alexvav
Форумчанин
 
Регистрация: 23.11.2006
Сообщений: 152
По умолчанию

http://www.programmersforum.ru/announcement.php?f=20
alexvav вне форума Ответить с цитированием
Старый 25.08.2010, 14:06   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Такую задачу автофильтр не решит. Нужен макрос, который в цикле скрывает требуемые строки. В таком случае критериев может быть сколько угодно.
Будет пример файла с исходными данными и заданием - будет и конкретный товет.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Старый 25.08.2010, 14:13   #4
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Такую задачу автофильтр не решит. Нужен макрос...
Или сводная
Будет пример файла с исходными данными и заданием - будет и конкретный ответ.
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 25.08.2010, 14:39   #5
SAIIIA.P
Новичок
Джуниор
 
Регистрация: 25.08.2010
Сообщений: 3
По умолчанию

Фильтрация всей таблицы по столбцу 6 (WO): отфильтровать значения все значения кроме 1, 2, 15. т.е должны остаться
WO
36
35
36
35
38
36
35
3


есть такая вещь как
Код:
ActiveSheet.Range("$A$1:$R$167612").AutoFilter Field:=6, Criteria1:=Array("3", "35", "36", "38"), Operator:=xlFilterValues
нужно также только наоборот, что-то вроде:
Код:
ActiveSheet.Range("$A$1:$R$167612").AutoFilter Field:=6, Criteria1:=Array("<>1", "<>2", "<>15"), Operator:=xlFilterValues
Вложения
Тип файла: zip Книга1.zip (4.3 Кб, 15 просмотров)
SAIIIA.P вне форума Ответить с цитированием
Старый 25.08.2010, 15:33   #6
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от SAIIIA.P Посмотреть сообщение
Фильтрация всей таблицы по столбцу 6 (WO): отфильтровать значения все значения кроме 1, 2, 15. т.е должны остаться
WO
36
35
36
35
38
36
35
3
Чёт я не понял, а чем автофильтр не подходит? Или в 2003 такого нет?
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 25.08.2010, 15:45   #7
SAIIIA.P
Новичок
Джуниор
 
Регистрация: 25.08.2010
Сообщений: 3
По умолчанию

Цитата:
Сообщение от Serge 007 Посмотреть сообщение
Чёт я не понял, а чем автофильтр не подходит? Или в 2003 такого нет?
там только два параметра, а нужно больше намного больше.
SAIIIA.P вне форума Ответить с цитированием
Старый 25.08.2010, 17:02   #8
Serge 007
Участник клуба
 
Аватар для Serge 007
 
Регистрация: 15.12.2009
Сообщений: 1,448
По умолчанию

Цитата:
Сообщение от SAIIIA.P Посмотреть сообщение
там только два параметра, а нужно больше намного больше.
Там это где? В условиях? В 2003 Excel?
Вложения
Тип файла: rar SAIIIA.P .rar (7.2 Кб, 29 просмотров)
Бесплатная помощь: www.excelworld.ru
Платная помощь: serge_007.planetaexcel@mail.ru
https://yoomoney.ru: 41001419691823
Serge 007 вне форума Ответить с цитированием
Старый 30.06.2022, 19:33   #9
Brattello
Новичок
Джуниор
 
Регистрация: 30.06.2022
Сообщений: 1
По умолчанию

Аналогичный вопрос

"<>" есть ли такой параметр для Criteria1?

то есть мне надо выбрать в фильтре все , кроме двух ,
например , цифры 0 и 7


Как пример:
Код:
ActiveSheet.Range("$A$1:$R$167612").AutoFilter Field:=6, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>7"
Brattello вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как скопировать все данные с листа без формул? PashaNastya Microsoft Office Excel 4 21.08.2010 14:00
Помогите создать макрос, который бы удалил все ячейки, кроме каждой 8-ой Рамирас Microsoft Office Excel 7 24.07.2010 19:37
Закрыть все файлы Excel,кроме текущего BesTiYa Microsoft Office Excel 5 10.12.2009 12:53
Как сделать все данные на одном языке? Python Microsoft Office Excel 2 29.01.2007 12:37
Поскажите как отфильтровать данные в выбраном диаппазоне DateTimePicker-ами: Denzel БД в Delphi 1 26.01.2007 16:31