Como alterar as configurações de vários campos na tabela dinâmica?
Quando você cria uma tabela dinâmica em uma planilha, depois de arrastar os campos para o Valores lista no Lista de campos da tabela dinâmica, você pode obter todos iguais Contar funcionar como a seguinte captura de tela mostrada. Mas agora, você quer o Soma de função para substituir o Contar de função ao mesmo tempo, como você poderia alterar o cálculo de vários campos da tabela dinâmica de uma vez no Excel?
Altere as configurações de campo na tabela dinâmica manualmente, uma por uma
Alterar configurações de vários campos na tabela dinâmica com código VBA
Altere as configurações de campo na tabela dinâmica manualmente, uma por uma
No Excel, você pode alterar o cálculo das configurações de campo, alterando a função uma a uma no Configurações do campo de valor diálogo, faça o seguinte:
1. Selecione um campo na área Valores para o qual deseja alterar a função de resumo na tabela dinâmica e clique com o botão direito para escolher Configurações do campo de valor, veja a captura de tela:
2. Então no Configurações do campo de valor caixa de diálogo, selecione um tipo de cálculo que deseja usar na Resumir valor por guia, veja a captura de tela:
3. E, em seguida, clique em OK para fechar esta caixa de diálogo, e você pode ver que sua função Contagem foi alterada para a função Soma, consulte a captura de tela:
4. Repita as etapas acima para alterar as configurações de cálculo de outros campos, uma por uma.
Observação: Você também pode alterar as configurações do campo clicando com o botão direito em uma célula do campo e escolher Resumir valores por e selecione um cálculo necessário nos menus de contexto.
Alterar configurações de vários campos na tabela dinâmica com código VBA
O método acima será demorado e tedioso se houver muitos cálculos de campo que precisem ser alterados. Aqui, posso apresentar a você um código para alterar várias configurações de campo ao mesmo tempo.
1. Clique em qualquer célula da sua tabela dinâmica.
2. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
3. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: altere as configurações de vários campos 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. Então aperte F5 para executar este código, e todas as configurações de campo em sua tabela dinâmica selecionada foram convertidas para o cálculo de sua necessidade de uma vez, consulte as capturas de tela:
|
 |
 |
Note: No código acima, você pode alterar a função Soma para quaisquer outros cálculos, como Média, Máx, Mín, conforme desejar. Você só precisa alterar a Soma nestes scripts: Public Sub SetDataFieldsToSum () e .Função = xlSoma para outras funções.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
