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.