Como alterar várias configurações de campo em uma tabela dinâmica?
Quando você cria uma tabela dinâmica em uma planilha, após arrastar os campos para a lista Valores na Lista de Campos da Tabela Dinâmica, pode obter todas as funções Contagem iguais, conforme mostrado na captura de tela a seguir. Mas agora, você deseja que a função Soma substitua a função Contagem imediatamente. Como você pode alterar o cálculo de vários campos da tabela dinâmica de uma só vez no Excel?
Alterar as configurações de campo na tabela dinâmica manualmente um por um
Alterar várias configurações de campo na tabela dinâmica com código VBA
Alterar as configurações de campo na tabela dinâmica manualmente um por um
No Excel, você pode alterar o cálculo das configurações de campo alterando a função uma por uma na caixa de diálogo Configurações de Campo de Valor, faça o seguinte:
1. Selecione um campo na área de Valores para o qual você deseja alterar a função de resumo na tabela dinâmica e clique com o botão direito do mouse para escolher Configurações de Campo de Valor, veja a captura de tela:
2. Em seguida, na caixa de diálogo Configurações de Campo de Valor, selecione um tipo de cálculo que você deseja usar na guia Resumir Valor Por, veja a captura de tela:
3. E depois clique em OK para fechar esta caixa de diálogo, e você pode ver que sua função Contagem foi alterada para função Soma, veja a captura de tela:
4. Repita as etapas acima para alterar as configurações de cálculo de outros campos um por um.
Observação: Você também pode alterar as configurações de campo clicando com o botão direito do mouse em uma célula de campo e escolher Resumir Valores por e selecionar um cálculo necessário nos menus de contexto.
Alterar várias configurações de campo na tabela dinâmica com código VBA
O método acima será demorado e tedioso se houver muitos cálculos de campo que precisam ser alterados; aqui, posso apresentar um código para alterar várias configurações de campo ao mesmo tempo.
1. Clique em qualquer célula na sua tabela dinâmica.
2. Mantenha pressionadas as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Alterar várias configurações de campo na 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, pressione a tecla F5 para executar este código, e todas as configurações de campo na sua tabela dinâmica selecionada terão sido convertidas para o cálculo desejado de uma só vez, veja as capturas de tela:
|
 |
 |
Observação: No código acima, você pode alterar a função Soma para qualquer outro cálculo, como Média, Máximo, Mínimo, conforme desejar. Basta alterar a Soma nesses scripts: Public Sub SetDataFieldsToSum() e .Function = xlSum para outras funções.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins