Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автофильтр: по не содержащимся значениям / 9 сообщений из 9, страница 1 из 1
09.11.2017, 19:00
    #39550500
Alexander-80578
Alexander-80578
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Добрый день,
скажите пожалуйста, возможно ли реализовать работу ниже указанного кода, в смысле не самого этого кода, он не работает, а как сделать что бы код выполнил ту логику которую отображает этот код:
Код: vbnet
1.
2.
    ActiveSheet.Range("$A$12:$O$622").AutoFilter Field:=14, Criteria1:=Array( _
        "<>*Инсталляция*", "<>*ОКС*", "<>*Радиодоступ*"), Operator:=xlFilterValues



смутно написал) в общем нужно сделать автофильтр, который уберет/отфильтрует строки, содержащие три определенных значения.
екзель 2007. это вообще возможно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.11.2017, 21:15
    #39550564
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Alexander-80578,
лучше Расширенным фильтром. Хорошая статья по работе с ним: http://www.planetaexcel.ru/techniques/2/197/
Для автофильтра придется создать столбец с формулой и фильтровать по нему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2017, 00:40
    #39550624
Alexander-80578
Alexander-80578
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Казанский, спасибо за интересную статью, узнал кое что новое. Но мне это не подойдет, мне необходимо отфильтровать не нужные данные и удалить их, операция будет выполняться один раз (для одной таблицы), макросом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2017, 09:28
    #39550682
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
В дополнительный столбец вставить формулу
=ЕОШИБКА(НАЙТИ("Инсталляция";N15))+ЕОШИБКА(НАЙТИ("ОКС";N15))+ЕОШИБКА(НАЙТИ("Радиодоступ";N15))
Протянуть до конца и по этому столбцу фильтровать на <>3
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2017, 09:37
    #39550689
sergeyvg
sergeyvg
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Казанский, извини, повторился, не заметил, что ты уже дал этот совет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.11.2017, 12:30
    #39550898
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Alexander-80578Но мне это не подойдет, мне необходимо отфильтровать не нужные данные и удалить их, операция будет выполняться один раз (для одной таблицы), макросомПробуйте
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Макрос3()
Dim rCrit As Range 'диапазон критериев расш. фильтра
  Set rCrit = Cells(1, ActiveSheet.UsedRange.Columns.Count + 2).Resize(2, 3)
  Cells(12, 14).Copy rCrit.Rows(1) 'заголовок 14 столбца
  rCrit.Rows(2).Value = ["<>*"&{"Инсталляция","ОКС","Радиодоступ"}&"*"]
'  rCrit.Rows(2).Value = [{"<>*Инсталляция*","<>*ОКС*","<>*Радиодоступ*"}] 'или так
  With Range("N12").CurrentRegion
    .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rCrit, Unique:=False
    .Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  End With
  ActiveSheet.ShowAllData
  rCrit.Clear
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2017, 10:18
    #39551991
Alexander-80578
Alexander-80578
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Казанский, добрый день, после выполнения макроса ничего не меняется, вообще, я не настолько хорошо разбираюсь в программировании для екзеля, даже не знаю в чем может быть ошибка или что нужно поправить под свою ситуацию...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2017, 10:22
    #39551997
Alexander-80578
Alexander-80578
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Казанский,
возможно я ошибаюсь, но как мне кажется данный код будет удалять все строки у которых в колонке 14 содержится слово Инсталляция, ОКС или Радиодоступ, а мне нужно наоборот удалить все строки которые не содержат этих слов в колонке 14.
Думаю, я изначально не корректно сформулировал для себя задачу, нужно не фильтровать, а удалить не нужные строки, просто, когда я делал это вручную я сначала конечно фильтровал, а если делать это на VBA, то думаю можно и перебором, так как строк не так уж и много порядка 1000.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.11.2017, 21:47
    #39552529
Казанский
Казанский
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Автофильтр: по не содержащимся значениям
Alexander-80578,
я ориентировался на Ваш код из первого поста. Из него следует, что в 12 строке содержатся заголовки таблицы, а фильтровать надо по 14 столбцу, т.е. N. Поэтому для формирования условия расширенного фильтра берется заголовок из N12.
Видимо, ваша таблица устроена по-другому. Приложите файл с укороченной таблицей - не надо 622 строки, достаточно десяток.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автофильтр: по не содержащимся значениям / 9 сообщений из 9, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 129ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2172500]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 31ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 2ms
others: 13ms
total:  129ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]