Фильтрация "не равно" по трём входным условиям

@Mighty · Регистрация: 30.06.2015

Студворк — интернет-сервис помощи студентам

Есть 4 столбца, в одном из них указываются много разных параметров.
Кто подскажет как через VBA сделать фильтр на три условия, чтобы в 4 столбце не отображались параметры "температура", "солёность", "плотность", а чтобы все остальные 20-30 параметров показывались.

@Апострофф · 25.11.2015, 07:19

Без файла-примера трудно что-нить сказать (или ждите экстрасенсов)

@Mighty · 25.11.2015, 07:41 **[ТС]**

дата	место	кем	параметр чего-то
17.07.2015			солёность
12.01.2015			плотность
08.09.2015			температура
24.02.2015			параметр1
20.08.2015			параметр2
28.01.2015			параметр3
22.07.2015			солёность
17.04.2015			плотность
17.04.2015			температура
28.05.2015			параметр4
23.01.2015			параметр5
03.04.2015			параметр6
03.04.2015			солёность
23.01.2015			плотность
17.06.2015			температура
24.04.2015			параметр7
08.05.2015			параметр8
29.04.2015			параметр9
06.04.2015			солёность
31.03.2015			плотность
12.01.2015			температура
06.04.2015			параметр10
04.03.2015			параметр11
13.03.2015			параметр12
19.03.2015			солёность
03.03.2015			плотность

@Vlad999 · 25.11.2015, 09:10

вот не лень было таблицу набирать на форуме в место того чтобы приложить файл.
а вообще фильтр обязательно?

@Апострофф · 25.11.2015, 09:46

Visual Basic
1
Selection.AutoFilter Field:=4, Criteria1:="<>*о*ность", Operator:=xlAnd, Criteria2:="<>температура"

Не панацея, т.к. под маску "<>*о*ность" могут попасть левые параметры?

@Mighty · 25.11.2015, 11:57 **[ТС]**

В том то и дело, что ексель не может работать с таким количеством условий. Даже расширенный фильтр наотрез отказывается понимать фильтрацию сразу по трём параметрам "не равно" - <>температура, <>солёность, <>плотность

@Казанский · 25.11.2015, 12:22

Сообщение от Mighty

Даже расширенный фильтр наотрез отказывается понимать фильтрацию сразу по трём параметрам

Очень даже понимает

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Макрос1()
Dim c As Range
  Set c = Cells(1, ActiveSheet.UsedRange.Columns.Count + 2).Resize(, 3)
  Range("D1").Copy c
  c.Offset(1).Value = Split("<>солёность <>плотность <>температура")
  Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterInPlace, _
    CriteriaRange:=c.Resize(2), Unique:=False
  c.EntireColumn.Delete
End Sub

@Mighty · 25.11.2015, 13:21 **[ТС]**

Спасибо, не знал, что можно так использовать фильтр из трёх полей. Я уже сделал по другому))

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Mighty 0 / 0 / 0 Регистрация: 30.06.2015 Сообщений: 13

	Фильтрация "не равно" по трём входным условиям 25.11.2015, 07:12. Показов 8080. Ответов 7 Метки нет (Все метки) Есть 4 столбца, в одном из них указываются много разных параметров. Кто подскажет как через VBA сделать фильтр на три условия, чтобы в 4 столбце не отображались параметры "температура", "солёность", "плотность", а чтобы все остальные 20-30 параметров показывались. 0

@Апострофф 9908 / 3928 / 742 Регистрация: 11.10.2011 Сообщений: 5,908
	25.11.2015, 07:19
	Без файла-примера трудно что-нить сказать (или ждите экстрасенсов) 0

@Vlad999 3947 / 2340 / 790 Регистрация: 02.11.2012 Сообщений: 6,220
	25.11.2015, 09:10
	вот не лень было таблицу набирать на форуме в место того чтобы приложить файл. а вообще фильтр обязательно? 0

@Mighty 0 / 0 / 0 Регистрация: 30.06.2015 Сообщений: 13
	25.11.2015, 11:57 [ТС]
	В том то и дело, что ексель не может работать с таким количеством условий. Даже расширенный фильтр наотрез отказывается понимать фильтрацию сразу по трём параметрам "не равно" - <>температура, <>солёность, <>плотность 0

@Mighty 0 / 0 / 0 Регистрация: 30.06.2015 Сообщений: 13
	25.11.2015, 13:21 [ТС]
	Спасибо, не знал, что можно так использовать фильтр из трёх полей. Я уже сделал по другому)) 0

Фильтрация "не равно" по трём входным условиям

Решение