do Microsoft Visual Basic (VBA ) é um bare- ossos e programação antecipada linguagem desenvolvida para ajudar a criar aplicativos de desktop , para facilitar a ordenação de dados e permitir a geração de relatórios com base em dados. Você pode usar isso também usar o VBA para criar uma tabela dinâmica para resumir dados em conjunto com um programa de planilha , como o Microsoft Excel. Usando um pequeno trecho de código VBA , você pode criar um pivô de uma tabela de dados existente com relativa facilidade. Instruções
1

Inicie o script VBA , digitando o seguinte :

Create_Pivot_Table_From_Cache ()
2

Especificar os métodos do pivô , seguindo com o followinf três linhas de código VBA :

Dim OPC Como PivotCache

Dim opt como tabela dinâmica

Dim OWS Como Planilha
3

Especifique as funções de OPC , optar , e OWS , adicionando as seguintes linhas de código :

OWS = ActiveSheet

OPC = ActiveWorkbook.PivotCaches.Create ( xlDatabase , oWS.UsedRange )

opt = oPC.CreatvePivotTable ( oWS. [ D20 ] ", Pivot de cache" , True)
4

Especifique como os campos devem girar , ou calcular os dados , utilizando-se as seguintes linhas de código . Note que, neste exemplo, os nomes dos campos de coluna de dados pode ser diferente do seu.

OPT.AddFields ( oPT.PivotFields ( "Preço") . Nome,

oPT.PivotFields ("Produto" ) . Name)

oPT.AddDataField ( oPT.PivotFields ( "tipo") , "Tipo de Produto" , xlSum )
5

Execute o script VBA dentro de um programa compatível, como Excel, e visualizar a tabela pivô gerado.