Como vincular o filtro Pivot Table a uma determinada célula no Excel?
Se você deseja vincular um filtro de Tabela Dinâmica a uma determinada célula e filtrar a Tabela Dinâmica com base no valor da célula, o método neste artigo pode ajudá-lo.
Vincular o filtro da tabela dinâmica a uma determinada célula com o código VBA
Vincular o filtro da tabela dinâmica a uma determinada célula com o código VBA
A Tabela Dinâmica que você vinculará sua função de filtro a um valor de célula deve incluir um campo de filtro (o nome do campo de filtro tem uma função importante no código VBA a seguir).
Veja a Tabela Dinâmica abaixo como exemplo. O campo de filtro na Tabela Dinâmica é chamado Categoria, e inclui dois valores “Despesas"E"Vendas”. Depois de vincular o filtro Tabela Dinâmica a uma célula, os valores da célula que você aplicará ao filtro Tabela Dinâmica devem ser “Despesas” e “Vendas”.
1. Selecione a célula (aqui eu seleciono a célula H6) que você vinculará à função de filtro da Tabela Dinâmica e insira um dos valores do filtro na célula com antecedência.
2. Abra a planilha que contém a Tabela Dinâmica que você vinculará à célula. Clique com o botão direito na guia da planilha e selecione Ver código no menu de contexto. Veja a imagem:
3. No Microsoft Visual Basic para Aplicações janela, copie o código do VBA abaixo para a janela de código.
Código VBA: vincular o filtro da tabela dinâmica a uma determinada célula
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("H6")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub
Notas:
4. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações janela.
Agora, a função de filtro da Tabela Dinâmica está vinculada à célula H6.
Atualize a célula H6 e os dados correspondentes na Tabela Dinâmica serão filtrados com base no valor existente. Veja a imagem:
Ao alterar o valor da célula, os dados filtrados na Tabela Dinâmica serão alterados automaticamente. Veja a imagem:
Selecione facilmente linhas inteiras com base no valor da célula em uma coluna certian:
A Selecione células específicas utilidade de Kutools for Excel pode ajudá-lo a selecionar rapidamente linhas inteiras com base no valor da célula em uma coluna certian no Excel, conforme a imagem mostrada abaixo. Depois de selecionar todas as linhas com base no valor da célula, você pode movê-las manualmente ou copiá-las para um novo local conforme necessário no Excel.
Baixe e experimente agora! (trilha gratuita de 30 dias)
Artigos relacionados:
- Como combinar várias planilhas em uma tabela dinâmica no Excel?
- Como criar uma tabela dinâmica a partir de um arquivo de texto no Excel?
- Como filtrar a tabela dinâmica com base em um valor de célula específico no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!