? Criando tabelas dinâmicas no Excel usando o Visual Basic for Applications (VBA ) você pode economizar tempo , devido à sua não ter que criar as tabelas manualmente. VBA é uma linguagem de programação de computadores usados ​​em aplicativos do Microsoft Office para automatizar tarefas de rotina, tais como a criação de uma tabela dinâmica . Não gaste seu tempo criando tabelas dinâmicas manualmente se você tiver muitas folhas em sua pasta de trabalho , em vez disso criar um procedimento sub para criá-los dinamicamente. Coisas que você precisa
Microsoft Office Excel
Show Mais instruções
1

Abra o Microsoft Office Excel e do tipo "Cliente" "A1 ", "Item " em " B1 , " e " Qt " em " C1 " . Tipo " Jon " em " A2 ", " Jon " em " A3 ", " Clara " em " A4 ", " Clara " em " A5 " e " Clara " em " A6 ". Digite "soda " em " B2 ", " cerveja " em " B3 ", "soda " em " B4 ", " água " em " B5 " e " cerveja " em " A6 ". Tipo " 2 " em " C2 ", " 5 " no " C3 ", " 10 " , em " C4 ", " 12 " , em " C5 ", e " 15 " , em " C6 ".
2

Clique na guia "Desenvolvedor" e clique em " Visual Basic " para iniciar o editor do VB . Digite o seguinte código para criar uma nova sub procedimento VBA:

Private Sub CreatePivotTable ()
3

Criar as variáveis ​​que você vai usar para criar a tabela dinâmica , adicionando o seguinte código: Dim

PT como tabela dinâmica

Dim wrkSht Como Planilha

Dim pvtSht Como Planilha

Dim PTCache Como PivotCache

Dim Prange Como Faixa

Dim FinalRow as Long Dim

finalCol as Long
4

Definir as planilhas que você vai usar :

Definir wrkSht = planilhas ( "Sheet1" )

Set pvtSht = Worksheets ( " Plan2 " )
5

Determinar a linha e coluna contar com dados :

FinalRow = wrkSht.Cells ( Application.Rows.Count , 1). End ( xlUp ) . Linha

finalCol = wrkSht.Cells (1, Application.Columns.Count ) . End ( xlToLeft ) . Coluna
6

Definir o intervalo para os dados:

Definir Prange = wrkSht.Cells (1, 1) Redimensionar ( FinalRow , finalCol )

Set PTCache = ActiveWorkbook.PivotCaches.Add ( SourceType . : = xlDatabase , SourceData : = Prange )
7

Criar a tabela dinâmica em " Plan2 : "

Set pt = PTCache.createPivotTable ( TableDestination : = pvtSht.Cells (1, 1) , _

TableName : = " SamplePivot " )

pt.ManualUpdate = true
8

Definir os dados de origem para a tabela dinâmica :

pt.AddFields RowFields : . . = array ( "Item " )

Com pt.PivotFields ( " Qtde " )

Orientação = xlDataField

Function = xlSum

. Position = 1

End With

pt.ManualUpdate = False
9

Termine o seu sub , digitando " End Sub " no final de seu procedimento. Pressione " F5" para executar o procedimento e criar a tabela dinâmica utilizando VBA.