Como adicionar vários campos a uma Tabela Dinâmica?
Ao criar uma Tabela Dinâmica, normalmente arrastamos os campos um a um para a área de Rótulos de Linha ou Valores. Se tivermos uma longa lista de campos, é fácil adicionar alguns como rótulos de linha, mas incluir os restantes na área de Valores pode tornar-se demorado. Existe uma forma rápida de adicionar todos os campos restantes à área de Valores com apenas um clique?
Adicionar vários campos à área de Valores do Tabela Dinâmica com código VBA
Adicionar vários campos à área de Valores do Tabela Dinâmica com código VBA
Atualmente, o Excel não oferece uma funcionalidade nativa — como uma caixa de seleção “Selecionar tudo” — no painel Lista de Campos que permita adicionar todos os campos restantes diretamente à área de Valores com um único clique. No entanto, é possível alcançar esse objetivo de forma eficiente com uma macro VBA simples. Esta abordagem revela-se especialmente útil se precisar de repetir frequentemente este processo ou estiver a trabalhar com um elevado número de campos de dados. Abaixo encontram-se os passos detalhados e as precauções essenciais para aplicar este método:
1. Depois de criar a sua Tabela Dinâmica, adicione os campos que pretende utilizar como Rótulos de Linha utilizando o habitual método de arrastar e largar. Deixe desmarcados, na secção Escolher campos para adicionar ao relatório, os restantes campos — aqueles que pretende resumir como valores. Para referência, consulte a seguinte imagem:
3. Na janela do VBA, aceda a Inserir > Módulo para criar um novo módulo. Em seguida, copie e cole o seguinte código VBA na janela do módulo. Aceda a Programador > Visual Basic a partir do Friso do Excel. Certifique-se de que está a trabalhar no livro correto.
2. Prima ALT + F11 para abrir a janela do editor Microsoft Visual Basic for Applications. Alternativamente, pode aceder a ela clicando em
Código VBA: Adicionar vários campos à área de Valores do Tabela Dinâmica na folha ativa
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Em seguida, prima F5 para executar a macro ou clique no botão Executar na barra de ferramentas do editor VBA. A macro processará todas as Tabelas Dinâmicas na folha ativa: para cada tabela, adicionará quaisquer campos que ainda não tenham sido incluídos como Rótulos de Linha ou Coluna diretamente à área de Valores. Assim, todos os campos de dados disponíveis aparecerão como valores resumidos na sua Tabela Dinâmica, facilitando análises abrangentes. Consulte a seguinte imagem como referência:
Nota: Esta macro aplica alterações a todas as Tabelas Dinâmicas presentes na folha ativa no momento da execução. Se tiver várias Tabelas Dinâmicas e pretender atualizar apenas uma, considere movê-la temporariamente para uma folha separada. Antes de executar qualquer código VBA, lembre-se sempre de guardar o seu trabalho, pois as macros podem efetuar alterações irreversíveis. Além disso, esta macro tentará adicionar todos os campos restantes — incluindo aqueles que podem não ser adequados para sumarização numérica — o que poderá originar erros de resumo ou resultados sem significado em campos com dados não numéricos.
Artigos relacionados:
Como listar todas as Tabelas Dinâmicas de um livro?
Como verificar se uma Tabela Dinâmica existe num livro?
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