Clase PivotFilter (Excel VBA)

Se aplica un PivotFilter a un objeto PivotField .

El principal procedimiento de la clase PivotFilter es Delete

Set

Para usar una variable de clase PivotFilter, primero debe ser instanciado, por ejemplo

Dim pvtfil as PivotFilter
Set pvtfil = ActiveCell.PivotTable.ActiveFilters(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase PivotFilter : PivotFilters.Item, PivotFilters.Add2, PivotField.PivotFilters y PivotTable.ActiveFilters

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos PivotFilter en una colección.

Dim pvtfil As PivotFilter
For Each pvtfil In ActiveCell.PivotTable.PivotFilters
	
Next pvtfil

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Value with its procedures Value1 y Value2

Métodos

Este es el método principal de la clase PivotFilter

Delete - Elimina el filtro y lo quita de las colecciones de filtros del campo dinámico y la tabla dinámica.

ActiveCell.PivotTable.ActiveFilters(1).Delete

Otros Métodos

PivotFilters.Add2 -

Propiedades

Active Indica si el filtro dinámico especificado está activo.

Dim booActive As Boolean
booActive = ActiveCell.PivotTable.ActiveFilters(1).Active

DataCubeField Esta propiedad sólo se aplica a las tablas dinámicas OLAP y proporciona el campo valor (PivotField en el área valores) que se va a filtrar por un filtro de valor.

Dim cbfDataCubeField As CubeField
Set cbfDataCubeField = ActiveCell.PivotTable.ActiveFilters(1).DataCubeField

DataField Esta propiedad sólo se aplica a las tablas dinámicas que no son OLAP y proporciona el campo Valor (campo dinámico del área Valores) que se va a filtrar mediante un filtro de valor.

Dim pvtfDataField As PivotField
Set pvtfDataField = ActiveCell.PivotTable.ActiveFilters(1).DataField

Description Proporciona una descripción opcional del objeto PivotFilter.

Dim strDescription As String
strDescription = ActiveCell.PivotTable.ActiveFilters(1).Description

FilterType Especifica el tipo de filtro que se va a aplicar.

Dim xpfFilterType As XlPivotFilterType
xpfFilterType = ActiveCell.PivotTable.ActiveFilters(1).FilterType

IsMemberPropertyFilter Especifica si el filtro de etiqueta se basa en los títulos PivotItem de una propiedad de miembro del campo o en los títulos PivotItem del propio campo dinámico.

Dim booIsMemberPropertyFilter As Boolean
booIsMemberPropertyFilter = ActiveCell.PivotTable.ActiveFilters(1).IsMemberPropertyFilter

MemberPropertyField Esta propiedad especifica la propiedad de miembro PivotField en la que se basa el filtro de etiqueta.

Dim pvtfMemberPropertyField As PivotField
Set pvtfMemberPropertyField = ActiveCell.PivotTable.ActiveFilters(1).MemberPropertyField

Name Esta propiedad proporciona la opción de asignar nombres a los filtros para referencia.

Dim strName As String
strName = ActiveCell.PivotTable.ActiveFilters(1).Name

Order Especifica el orden de evaluación del filtro entre todos los filtros de tipo Value aplicados a toda la tabla dinámica.

ActiveCell.PivotTable.ActiveFilters(1).Order =

Parent Devuelve el objeto primario del objeto PivotFilter especificado.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ActiveFilters(1).Parent

PivotField Especifica el campo dinámico al que se aplica el filtro.

Dim pvtfPivotField As PivotField
Set pvtfPivotField = ActiveCell.PivotTable.ActiveFilters(1).PivotField

WholeDayFilter Establece u obtiene la semántica de filtrado de los filtros de fecha.

ActiveCell.PivotTable.ActiveFilters(1).WholeDayFilter = True

PivotFilters.Count Devuelve la cantidad de elementos que se incluyen en la colección PivotFilters.

Dim lngCount As Long
lngCount = ActiveCell.PivotTable.ActiveFilters.Count

PivotFilters.Item Devuelve un elemento específico del objeto de colección PivotFilters por su posición en la colección.

Dim pvtfilItem As PivotFilter
Set pvtfilItem = ActiveCell.PivotTable.ActiveFilters(Index:=1)

PivotFilters.Parent Devuelve el objeto primario del objeto PivotFilters especificado.

Dim objParent As Object
Set objParent = ActiveCell.PivotTable.ActiveFilters.Parent