Como manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha no Excel?
Ao trabalhar com uma Tabela Dinâmica, você pode inserir filtros para filtrar visualmente os dados da tabela. Este artigo aborda como manter o filtro da Tabela Dinâmica sempre visível enquanto rola a planilha.
Manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha usando código VBA
Manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha usando código VBA
O seguinte script VBA pode ajudá-lo a manter o filtro da Tabela Dinâmica se movendo com a planilha. Por favor, siga os passos abaixo.
1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisWorkbook no painel Projeto à esquerda e, em seguida, copie e cole o código VBA abaixo na janela ThisWorkbook (Code). Veja a captura de tela:
Código VBA: Manter o filtro da Tabela Dinâmica se movendo com a rolagem da planilha
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ShF As Shape
Dim ShM As Shape
'specify a slicer
Application.ScreenUpdating = False
Set ShF = ActiveSheet.Shapes("Column1")
Set ShM = ActiveSheet.Shapes("Column2")
'change position of the slicer
With Windows(1).VisibleRange.Cells(1, 1)
ShF.Top = .Top
ShF.Left = .Left + 300
ShM.Top = .Top
ShM.Left = .Left + 100
End With
Application.ScreenUpdating = True
End SubNotas:
1). No código, Coluna1 e Coluna2 são os nomes dos filtros.
2). Você pode especificar a posição dos filtros enquanto rola a planilha no código.
3). E você pode adicionar mais filtros ao código ou remover filtros dele conforme necessário.
3. Pressione as teclas Alt + Q para fechar a caixa de diálogo da janela do Microsoft Visual Basic for Applications.
A partir de agora, os filtros especificados serão movidos com a célula ativa enquanto você rola a planilha. Veja a captura de tela:
Desbloqueie a Magia do Excel com o Kutools AI
- Execução Inteligente: Realize operações de células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- Fórmulas Personalizadas: Gere fórmulas sob medida para otimizar seus fluxos de trabalho.
- Codificação VBA: Escreva e implemente código VBA sem esforço.
- Interpretação de Fórmulas: Compreenda fórmulas complexas com facilidade.
- Tradução de Texto: Supere barreiras linguísticas dentro de suas planilhas.
Artigos relacionados:
- Como manter a tabela expansível inserindo linha de tabela em uma planilha protegida no Excel?
- Como combinar células e manter a formatação da célula no Excel?
- Como remover duplicatas, mas manter a primeira instância no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins