Classe PivotFilter (Excel VBA)

Um PivotFilter é aplicado a um objeto PivotField.

O procedimento principal da classe PivotFilter é Delete

Set

Para usar uma variável de classe PivotFilter, ela primeiro precisa ser instanciada por exemplo

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PivotFilter: PivotFilters.Item, PivotFilters.Add2, PivotField.PivotFilters e PivotTable.ActiveFilters

For Each

Aqui está um exemplo de processamento dos itens PivotFilter em uma coleção.

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

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Value with its procedures Value1 e Value2

Métodos

Este é o método principal da classe PivotFilter

Delete - Exclui o filtro e remove-o das coleções de filtros do campo dinâmico e da tabela dinâmica.

ActiveCell.PivotTable.ActiveFilters(1).Delete

Propriedades

Active Retorna se o PivotFilter especificado está ativo. Boolean somente leitura.

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

DataCubeField Essa propriedade é aplicável somente a tabelas dinâmicas OLAP e fornece o campo valor PivotField na área valores sendo filtrado por um filtro de valor. Cubefield de leitura/gravação.

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

DataField Esta propriedade é aplicável apenas a tabelas dinâmicas não OLAP e fornece o campo Valor PivotField na área Valores filtrado por um filtro de valor. Leitura/gravação PivotField.

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

Description Fornece uma descrição opcional para o objeto PivotFilter. String somente leitura.

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

FilterType Especifica o tipo de filtro a ser aplicado. Somente leitura XlPivotFilterType.

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

IsMemberPropertyFilter Especifica se o filtro de rótulo é baseado nas legendas de PivotItem de uma propriedade membro do campo ou nas legendas de PivotItem do próprio PivotField. Boolean somente leitura.

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

MemberPropertyField Esta propriedade especifica a propriedade membro PivotField na qual se baseia o filtro de rótulo. Leitura/gravação PivotField.

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

Name Esta propriedade fornece a opção de nomear filtros para referência. Você não pode confiar no valor do índice para referência precisa porque esse valor pode ser alterado.

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

Order Especifica a ordem de avaliação da filtragem entre todos os filtros de valor aplicados à tabela dinâmica inteira. número inteiro de leitura/gravação.

ActiveCell.PivotTable.ActiveFilters(1).Order =

Parent Retorna o objeto pai do objeto PivotFilter especificado. Somente leitura.

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

PivotField Especifica a PivotField na qual o filtro é aplicado. Somente leitura.

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

WholeDayFilter Define ou obtém a semântica de filtragem para filtros de data. Boolean de leitura/gravação.

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

PivotFilters.Count Retorna o número de itens na coleção PivotFilters. Somente leitura.

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

PivotFilters.Item Retorna um elemento específico do objeto da coleção PivotFilters pela respectiva posição na coleção. Somente leitura.

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

PivotFilters.Parent Retorna o objeto pai do objeto PivotFilters especificado. Somente leitura.

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