8.7.1. Использование автофильтра

Автофильтр – это наиболее простой способ отбора данных, размещенных в «базе данных». Для вызова автофильтра достаточно установить рамку выделения на ячейку в строке заголовков и выполнить команду ФильтрАвтофильтр… в меню Данные. Программным способом автофильтр можно активизировать командой

Selection.AutoFilter

После включения автофильтра пользователь может задать условия отбора информации для каждого столбца, щелкнув по кнопке раскрытия списка, расположенной рядом с назнанием столбца в строке заголовков таблицы (рис. 29).

Приведенный ниже фрагмент кода позволяет выбрать из всего списка информацию о сотрудниках-мужчинах:

Selection.AutoFilter Field:=2, Criteria1:="м"

(для второго поля, имеющего в таблице заголовок «Пол», устанавливается условие (критерий) отбора: выбираются записи, содержащие в этом поле значение "м").

Отбор данных можно осуществить сразу по нескольким полям. Например, чтобы получить информацию о мужчинах пенсионного возраста следует к сформированному ранее условию добавить еще одно (задать критерий для поля «Год рождения»):

Selection.AutoFilter Field:=2, Criteria1:="м"

Selection.AutoFilter Field:=3, Criteria1:="<=1941"

(В таблице после выполнения этого кода останутся всего две строки, содержащие информацию о сотрудниках Сидорове и Яковлеве.)

Отменить условие отбора данных по значению конкретного поля можно, выполнив код

Selection.AutoFilter Field:=2

(при «ручной» отмене в списке выбирается строка «Все»).

Пользователь может сформировать более сложное условие отбора, используя логические операции «И» и «ИЛИ». Например, вывести информацию о сотрудниках, чьи фамилии начинаются на буквы «И» или «Я», можно с помощью кода

Selection.AutoFilter Field:=1, Criteria1:="=И*", _

Operator:=xlOr, Criteria2:="=Я*"

Но возможности автофильтра ограничены. Рассмотрим, например, следующую задачу: нужно вывести информацию обо всех сотрудниках фирмы пенсионного возраста. Поблема в данном случае состоит в том, что у мужчин и женщин пенсионный возраст различен.

Такую задачу можно решить лишь с помощью расширенного фильтра.

8.7.2. Работа с расширенным фильтром

Для отбора данных с помощью расширенного фильтра необходимо кроме основной таблицы (исходного диапазона, содержащего данные для отбора) сформировать диапазон условий, который представляет собой таблицу, в которой строка заголовков содержит те же заголовки, что и исходный диапазон (некоторые заголовки могут быть пропущены, а другие могут повторяться), причем написание заголовков должно в точности совпадать в обеих таблицах, а вместо данных в ячейках этой таблицы должны содержаться условия отбора информации по соответствующим полям.

Условия, сформированные в ячейках одной строки диапазона условий, объединяются при выполнении команды расширенного фильтра логической операцией «И», а условия, размещенные в различных строках – операцией «ИЛИ».

Для поиска данных о сотрудниках пенсионного возраста необходимо сформировать следующие условия в диапазоне условий:

ФИО	Пол	Год рождения	Должность
	м	<=1941
	ж	<=1946

Причем столбик «ФИО» и «Должность» можно было бы и опустить, так как значения, находящиеся в этих столбиках в исходном диапазоне, не влияют на условия отбора.

Формировать диапазон условий лучше выше или ниже основной таблицы, но не рядом, так как при срабатывании фильтра строки таблицы, не удовлетворяющие критериям отбора скрываются, а значит, могут оказаться скрытыми и некоторые условия.

Сформировав диапазон условий и установив рамку выделения на ячейку в исходном диапазоне, можно выполнить команду ФильтрРасширенный фильтр… в меню данные. В диалоговом окне команды задаются ее параметры: исходный диапазон и диапазон условий, где должны размещаться результаты отбора (нужно ли их копировать в другое место и куда именно), отбирать ли только уникальные записи (строки) или допускается повторение.

Вызвать расширенный фильтр для приведенного примера можно с помощью команды

Range("A1:D6").AdvancedFilter _

Action:=xlFilterCopy, _

CriteriaRange:=Range("A10:D12"), _

CopyToRange:=Range("A15"), Unique:=False

(диапазон условий размещается ниже основной таблицы, начиная со строки с номером 10, а результаты копируются на тот же лист, располагаясь, начиная со строки с номером 15).

В результате выполнения команды в диапазоне A15:D18 автоматически формаруется таблица

ФИО	Пол	Год рождения	Должность
Сидоров	м	1940	Менеджер
Кукушкина	ж	1942	Референт
Яковлев	м	1939	Директор

содержащая записи, удовлетворяющие заданным критериям.

Если бы требовалось выбрать сотрудников, дата рождения которых попадает в заданный диапазон (например с 1940 по 1960 годы), то при формировании диапазона условий пришлось бы повторить столбец «Год рождения», так как два условия, налагаемых на значения поля должны соединяться логической операцией «И»:

Год рождения	Год рождения
>=1940	<=1960

Расширенный фильтр позволяет выполнить отбор информации по сколь угодно сложным критериям.