Como adicionar vários campos na tabela dinâmica?
Quando criamos uma tabela dinâmica, precisamos arrastar os campos para os rótulos de linha ou valores manualmente, um por um. Se tivermos uma longa lista de campos, podemos adicionar alguns rótulos de linha rapidamente, mas os campos restantes devem ser adicionados à área Valor. Existe algum método rápido para adicionarmos todos os outros campos à área Valor com um clique na tabela dinâmica?
Adicione vários campos na área de valor da tabela dinâmica com código VBA
Adicione vários campos na área de valor da tabela dinâmica com código VBA
Infelizmente, não há nenhuma caixa de seleção para verificarmos rapidamente todos os campos na Lista de campos da tabela dinâmica com um clique, mas, com o seguinte código VBA, pode ajudá-lo a adicionar os campos restantes à área Valores de uma vez. Faça o seguinte:
1. Depois de criar a tabela dinâmica, em primeiro lugar, você deve adicionar os campos de rótulo de linha conforme sua necessidade, e deixar os campos de valor no Escolha os campos para adicionar ao relatório lista, veja a captura de tela: </ p>
2. Segure o ALT + F11 chaves para abrir 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: adicionar vários campos na área de valor das tabelas dinâmicas na planilha ativa
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Então aperte F5 chave para executar este código, todos os campos restantes foram adicionados à área Valores ao mesmo tempo, veja a captura de tela:
Anote os: Este código VBA é aplicado a todas as tabelas dinâmicas da planilha ativa.
Artigos relacionados:
Como listar todas as tabelas dinâmicas de uma pasta de trabalho?
Como verificar se existe uma tabela dinâmica em uma pasta de trabalho?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com Kutools for Excele experimente eficiência como nunca antes. Kutools for 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 a 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!
