ReSQL.ru
     
powered by simpleCommunicator - 2.0.39     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автофильтр: по не содержащимся значениям
9 сообщений из 9, страница 1 из 1
Автофильтр: по не содержащимся значениям
    #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, 19:00
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39550564
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Alexander-80578,
лучше Расширенным фильтром. Хорошая статья по работе с ним: http://www.planetaexcel.ru/techniques/2/197/
Для автофильтра придется создать столбец с формулой и фильтровать по нему.
...
Рейтинг: 0 / 0
09.11.2017, 21:15
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39550624
Alexander-80578
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander-80578
Гость
Казанский, спасибо за интересную статью, узнал кое что новое. Но мне это не подойдет, мне необходимо отфильтровать не нужные данные и удалить их, операция будет выполняться один раз (для одной таблицы), макросом.
...
Рейтинг: 0 / 0
10.11.2017, 00:40
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39550682
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
В дополнительный столбец вставить формулу
=ЕОШИБКА(НАЙТИ("Инсталляция";N15))+ЕОШИБКА(НАЙТИ("ОКС";N15))+ЕОШИБКА(НАЙТИ("Радиодоступ";N15))
Протянуть до конца и по этому столбцу фильтровать на <>3
...
Рейтинг: 0 / 0
10.11.2017, 09:28
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39550689
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sergeyvg
Гость
Казанский, извини, повторился, не заметил, что ты уже дал этот совет.
...
Рейтинг: 0 / 0
10.11.2017, 09:37
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #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
10.11.2017, 12:30
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39551991
Alexander-80578
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander-80578
Гость
Казанский, добрый день, после выполнения макроса ничего не меняется, вообще, я не настолько хорошо разбираюсь в программировании для екзеля, даже не знаю в чем может быть ошибка или что нужно поправить под свою ситуацию...
...
Рейтинг: 0 / 0
13.11.2017, 10:18
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39551997
Alexander-80578
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexander-80578
Гость
Казанский,
возможно я ошибаюсь, но как мне кажется данный код будет удалять все строки у которых в колонке 14 содержится слово Инсталляция, ОКС или Радиодоступ, а мне нужно наоборот удалить все строки которые не содержат этих слов в колонке 14.
Думаю, я изначально не корректно сформулировал для себя задачу, нужно не фильтровать, а удалить не нужные строки, просто, когда я делал это вручную я сначала конечно фильтровал, а если делать это на VBA, то думаю можно и перебором, так как строк не так уж и много порядка 1000.
...
Рейтинг: 0 / 0
13.11.2017, 10:22
| Ответить | Цитировать | Написать  
Автофильтр: по не содержащимся значениям
    #39552529
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Alexander-80578,
я ориентировался на Ваш код из первого поста. Из него следует, что в 12 строке содержатся заголовки таблицы, а фильтровать надо по 14 столбцу, т.е. N. Поэтому для формирования условия расширенного фильтра берется заголовок из N12.
Видимо, ваша таблица устроена по-другому. Приложите файл с укороченной таблицей - не надо 622 строки, достаточно десяток.
...
Рейтинг: 0 / 0
13.11.2017, 21:47
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Автофильтр: по не содержащимся значениям
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=39550624&tid=2172500]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 30ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 13ms
total:  129ms
созд. / загр.: 129ms
x
x
Закрыть


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