Microsoft Excel é um aplicativo de planilha . Uma característica deste programa é que você pode usar suas planilhas para armazenar dados de forma semelhante à maneira que você faria em um banco de dados e , em seguida, fazer referência a ela em displays gráficos dinâmicos. Existem dois tipos de monitores que você pode usar : Tabelas Dinâmicas e Gráficos Dinâmicos . Tabelas dinâmicas podem ser usados ​​para classificar, filtrar e resumir os dados. A única maneira de mudar a fonte de dados utilizada por uma tabela dinâmica , uma vez que foi criado através do assistente é para atualizá-lo a partir do código VBA em segundo plano. Instruções
1

Criar um objeto de tabela dinâmica em VBA para que você possa atualizar a fonte . Copie o código abaixo e coloque-o em sua macro ou função.

Dim ptMyPivotTable Conforme tabela dinâmica
2

Conecte seu objeto de tabela dinâmica com a sua tabela dinâmica real . Copie o código abaixo .

Set ptMyPivotTable = ActiveSheet.PivotTables (1)
3

Atualize a propriedade SourceData de seu objeto de tabela dinâmica para os novos valores. Você pode fazer isso basta copiar o código VBA fornecido. Substitua seu intervalo de dados desejado no lugar de " A1" no exemplo.

PtMyPivotTable.SourceData = Range ( "A1") . CurrentRegion.Address ( verdade, verdade, xlR1C1 , True)

para fazer referência a um intervalo em uma planilha diferente, você pode usar o seguinte código.

ptMyPivotTable.SourceData = Sheets ( " mySheetName " ). [A1 ]. CurrentRegion.Address ( verdade, verdade, xlR1C1 , true)

4

Atualizar os dados realmente exibidas em sua tabela dinâmica usando o comando VBA abaixo.

ptMyPivotTable.RefreshTable
5

Solte os recursos utilizados na seu objeto de tabela dinâmica , definindo -a igual a nada .

Set ptMyPivotTable = Nothing