Como alterar várias definições de campo numa Tabela Dinâmica?
Quando cria uma Tabela Dinâmica numa folha de cálculo, após arrastar os campos para a lista Valores na Lista de Campos da Tabela Dinâmica, poderá ver que todos utilizam a mesma função Contar, conforme ilustrado na imagem seguinte. No entanto, pretende agora substituir essa função pela função Soma em todos os campos de uma só vez. Como alterar o cálculo de múltiplos campos da Tabela Dinâmica simultaneamente no Excel?Contar
Alterar os Configurações de Campo no Tabela Dinâmica manualmente, um a um
Alterar múltiplos Configurações de Campo no Tabela Dinâmica com código VBA
Alterar os Configurações de Campo no Tabela Dinâmica manualmente, um a um
No Excel, pode alterar o cálculo dos Configurações de Campo alterando a função um a um na caixa de diálogo Valor Configurações de Campo, proceda da seguinte forma:
1. Selecione um campo na área Valores cuja função de resumo pretende alterar na Tabela Dinâmica, clique com o botão direito do rato e escolha Valor Configurações de Campo. Veja a imagem:
2. Em seguida, na caixa de diálogo Valor Configurações de Campo, selecione o tipo de cálculo que pretende utilizar no separador Resumir Valor Por. Veja a imagem:
3. Depois, clique em OK para fechar esta caixa de diálogo e verá que a sua função Contar foi alterada para Soma. Veja a imagem:
4. Repita os passos anteriores para ajustar, um a um, as definições de cálculo dos restantes campos.
Nota: Também pode alterar as Configurações de Campo clicando com o botão direito do rato numa célula do campo e escolhendo Resumir Valores por e, em seguida, selecionando o cálculo pretendido nos menus de contexto.
Alterar múltiplos Configurações de Campo no Tabela Dinâmica com código VBA
O método anterior torna-se demorado e tedioso caso sejam necessárias muitas alterações às funções dos campos. Por isso, apresento-lhe um código VBA que permite ajustar as definições de múltiplos campos em simultâneo.
1. Clique em qualquer célula da sua Tabela Dinâmica.
2. Mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
3. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: Alterar múltiplos Configurações de Campo no Tabela Dinâmica
Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
.ManualUpdate = True
For Each xPF In .DataFields
With xPF
.Function = xlSum
.NumberFormat = "#,##0"
End With
Next
.ManualUpdate = False
End With
End Sub
4. Em seguida, prima a tecla F5 para executar este código e todas as Configurações de Campo na sua Tabela Dinâmica selecionada serão convertidas imediatamente para o cálculo pretendido. Veja as imagens:
|
 |
 |
Nota: No código acima, pode substituir a função Soma por outros cálculos, como Média, Máx ou Mín, conforme desejar. Basta alterar «Soma» nestas linhas:Public Sub SetDataFieldsToSum()e .Function = xlSumpara as funções pretendidas.
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