Como fazer com que o segmentador de Tabela Dinâmica se desloque juntamente com a folha de cálculo no Excel?
Ao trabalhar com Tabela Dinâmica, poderá inserir segmentadores para filtrar visualmente os dados da tabela. Este artigo aborda como manter o segmentador de Tabela Dinâmica sempre visível durante a deslocação na folha de cálculo.
Manter o segmentador de Tabela Dinâmica a mover-se com a deslocação da folha de cálculo com código VBA
O seguinte script VBA ajuda-o a garantir que o segmentador da Tabela Dinâmica se mova juntamente com a folha de cálculo. Siga os passos abaixo.
1. Prima simultaneamente as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, faça duplo clique em EsteLivro no painel Projeto à esquerda e, em seguida, copie e cole o seguinte código VBA na janela EsteLivro (Código). Veja a imagem:
Código VBA: Manter o segmentador de Tabela Dinâmica a mover-se com a deslocação da folha de cálculo
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, Column1 e Column2 são os nomes dos segmentadores.
2). Pode especificar a posição dos segmentadores enquanto navega pela folha de cálculo no código.
3). Além disso, pode adicionar ou remover segmentadores do código conforme necessário.
3. Prima as teclas Alt+Q para fechar a caixa de diálogo da janela do Microsoft Visual Basic for Applications.
A partir de agora, os segmentadores especificados acompanharão automaticamente a célula ativa à medida que se desloca pela folha de cálculo. Veja a imagem:
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Artigos relacionados:
- Como manter uma tabela expansível ao inserir uma linha numa folha de cálculo protegida no Excel?
- Como combinar células no Excel e manter a formatação original?
- Como remover duplicatas, mantendo apenas a primeira ocorrência no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos