Como atualizar uma Tabela Dinâmica quando os dados forem alterados no Excel?
Como sabe, se alterar os dados na tabela original, a Tabela Dinâmica correspondente não atualiza automaticamente os dados nesse momento. Caso precise de que a Tabela Dinâmica seja atualizada sempre que os dados forem modificados na tabela no Excel, posso indicar-lhe algumas formas rápidas de o fazer.
Atualizar Tabela Dinâmica numa folha de cálculo premindo Atualizar
Atualizar Tabela Dinâmica numa folha de cálculo ou livro com VBA
Atualizar Tabela Dinâmica numa folha de cálculo premindo Atualizar
No Excel, existem as funções **Atualizar** e **Atualizar Tudo** para atualizar uma Tabela Dinâmica numa única folha de cálculo.
Clique numa Tabela Dinâmica cujos dados pretende atualizar e, em seguida, clique em Opção(no Excel 2013, clique em)ANALISAR) > Atualizar > Atualizar. Veja a captura de ecrã:
Se quiser atualizar todas as Tabelas Dinâmicas numa única folha de cálculo, pode selecionar Atualizar Tudo.
Atualizar Tabela Dinâmica numa folha de cálculo ou livro com VBA
Com VBA, pode atualizar não só todas as Tabelas Dinâmicas numa única folha de cálculo, mas também todas as Tabelas Dinâmicas em todo o livro.
1. Prima em simultâneo as teclas Alt + F11 no teclado para abrir a janela do Microsoft Visual Basic for Applications.
2. Em seguida, clique em Inserir > Módulo para inserir uma nova janela de módulo. Depois, copie o seguinte código VBA para essa janela.
VBA: Atualize a Tabela Dinâmica numa folha de cálculo.
Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
xTable.RefreshTable
Next
End Sub
3. Clique no botão Executar na janela ou prima a tecla F5 para executar o VBA; assim, as Tabelas Dinâmicas numa folha de cálculo são atualizadas.
Dica: Para atualizar todas as Tabelas Dinâmicas em todo o livro, pode utilizar o seguinte código VBA.
VBA: Atualize todas as Tabelas Dinâmicas num livro.
Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xTable In xWs.PivotTables
xTable.RefreshTable
Next
Next
End Sub
Artigos Relacionados:
- Atualizar Tabela Dinâmica ao abrir ficheiro no Excel
- Atualizar Tabela Dinâmica Intervalo de Dados 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