Ir para o conteúdo principal

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?

doc-change-field-setting-1

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


seta azul bolha direita 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:

doc-change-field-setting-1

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:

doc-change-field-setting-1

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:

doc-change-field-setting-1

4. Repita as etapas acima para alterar as configurações de cálculo de outros campos, uma por uma.

Nota: 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.

doc-change-field-setting-1


seta azul bolha direita 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:

doc-change-field-setting-1
-1
doc-change-field-setting-6

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

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!
Comments (29)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Brilliant, thanks, this worked perfectly and save much time
This comment was minimized by the moderator on the site
Muchas gracias por el aporte
This comment was minimized by the moderator on the site
Hi!

I'm wondering how to use the code for Count Numbers instead of count, I've tried changing the code to Count Numbers and CountNumbers but netiher works..

Help is appreciated :)
This comment was minimized by the moderator on the site
Hello, Sara,
Sorry for that your Count Numbers field can't be changed in the code, so, you need to change the field one by one with the first method in this article.
Thank you!
This comment was minimized by the moderator on the site
Thank you so much, this VBA code works amazing. 
This comment was minimized by the moderator on the site
I got the error" Unable to get the PivotTable property of the range class". Do you know hoe can I fix this?
This comment was minimized by the moderator on the site
I got this error, "Unable to get the Pivot Table property of the Range class". Do you know how I can fix this?
This comment was minimized by the moderator on the site
Thank you so much!!! That is sooo helpful and brilliant! Saved me soooo much time
This comment was minimized by the moderator on the site
Thank you so much for the VBA code, I LOVE it!
This comment was minimized by the moderator on the site
Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
This comment was minimized by the moderator on the site
I've used the VBA solution with great success in the past, but it doesn't work with the data model. Do you know if there is a solution for that?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations