Метод PivotFilters.Add (Excel)

Добавляет новые фильтры в коллекцию PivotFilters .

Синтаксис

expression. Add (Type, DataField, Value1, Value2, Order, Name, Description, MemberPropertyField, WholeDayFilter)

Выражение Переменная, представляющая объект PivotFilters .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Тип	Обязательный	XlPivotFilterType	Требуется тип фильтра XlPivotFilterType .
DataField	Необязательный	Variant	Поле, к которому присоединен фильтр.
Value1	Необязательный	Variant	Значение фильтра 1.
Value2	Необязательный	Variant	Значение фильтра 2.
Order	Необязательный	Variant	Порядок фильтрации данных.
Name	Необязательно заполнять.	Variant	Имя фильтра.
Description	Необязательный	Variant	Краткое описание фильтра.
MemberPropertyField	Необязательный	Variant	Указывает поле свойства элемента, на котором основан фильтр меток.
WholeDayFilter	Необязательный	Variant	Задает фильтр, основанный на днях.

Возвращаемое значение

PivotFilter

Пример

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

ActiveCell.PivotField.PivotFilters.Add FilterType := xlThisWeek 
 
ActiveCell.PivotField.PivotFilters.Add FilterType := xlTopCount DataField := MyPivotField2 Value1 := 10 
 
ActiveCell.PivotField.PivotFilters.Add FilterType := xlCaptionIsNotBetween Value1 := "A" Value2 := "G" 
 
ActiveCell.PivotField.PivotFilters.Add FilterType := xlValueIsGreaterThanOrEqualTo DataField := MyPivotField2 Value1 := 10000  

В следующем примере возвращается ошибка во время выполнения, так как тип данных Value1 недопустим.

ActiveCell.PivotField.PivotFilters.Add FilterType := xlValueIsGreaterThanOrEqualTo DataField := MyPivotField2 Value1 := Allan  

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.