Como manter a segmentação da Tabela Dinâmica em movimento com a rolagem da planilha no Excel?
Ao trabalhar com a Tabela Dinâmica, você pode inserir segmentações de dados para filtrar os dados visualmente da tabela. Este artigo fala sobre como manter a segmentação da Tabela Dinâmica sempre visível ao rolar a planilha.
Mantenha a segmentação da Tabela Dinâmica em movimento com a rolagem da planilha com o código VBA
Mantenha a segmentação da Tabela Dinâmica em movimento com a rolagem da planilha com o código VBA
O seguinte script VBA pode ajudá-lo a manter a segmentação da Tabela Dinâmica se movendo com a planilha. Faça o seguinte.
1. aperte o outro + F11 simultaneamente para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique duplo Esta pasta de trabalho no painel esquerdo do Projeto e, em seguida, copie e cole o código VBA abaixo no Esta Pasta de Trabalho (Código) janela. Veja a imagem:
Código VBA: mantenha a segmentação 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 Sub
Notas:
1). No código, Coluna1 e Coluna2 são nomes das segmentações de dados.
2). Você pode especificar a posição das segmentações de dados enquanto rola a planilha no código.
3). E você pode adicionar mais segmentações ao código ou removê-las conforme necessário.
3. aperte o outro + Q chaves para fechar o Microsoft Visual Basic para Aplicações caixa de diálogo da janela.
A partir de agora, as segmentações especificadas serão movidas com a célula ativa enquanto rola a planilha. Veja a imagem:
Artigos relacionados:
- Como manter a tabela expansível inserindo a linha da tabela em uma planilha protegida no Excel?
- Como combinar células e manter a formatação das células no Excel?
- Como remover duplicatas, mas manter a primeira instância 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!