0276 – Trabalhando com Tabelas Dinâmicas – Parte 9

Bem vindos ao 9º artigo da série sobre TDs.

Hoje o nosso objetivo é utilizar itens calculados para determinar a média de valores do último semestre de uma série de dados

Nosso ponto de partida é esse aqui.

0276_01

Esta é uma série de dados representado a quantidade e o valor vendido ao longo de 12 meses.

Vamos inserir uma TD para observarmos os valores vendidos:

0276_02

Comentário: para aqueles que estiverem com as versões mais recentes do Excel, será necessário desagrupar o campo para evitar uma mensagem de erro, conforme destacado acima.

0276_03

Vamos inserir agora o nosso item calculado:

0276_04

O item calculado foi denominado Media_Ult_Trim e a fórmula associada é =MÉDIA(Mês[-1];Mês[-2];Mês[-3])

Confuso?

Vamos explicar.

Podemos referenciar itens pela sua posição relativa a outros itens.

Como um item calculado será inserido ao final dos demais itens, queremos referenciar os três itens que o antecedem, ou seja, [-1], [-2] e [-3] posições em relação ao campo calculado. Os três últimos meses, representam o último semestre.

E como fica a TD?

0276_05

Obviamente, o Total Geral não faz sentido neste contexto. Por isso iremos eliminá-lo da TD.

O que acontece quando forem inseridos novos dados?

Vejamos, introduzindo mais uma linha de dados, representado Jan/17

0276_07

Temos que atualizar a TD para que os novos dados sejam carregados:

0276_08

E olhem o que acontece:

0276_09

O item calculado, foi empurrado para cima…

É simples retorná-lo à última posição, clicando sobre ele com o botão direito:

0276_10

E após esse ajuste:

0276_12

Para aqueles que ficaram incomodados com o fato de ter que fazer esse ajuste manual e entendem de VBA, basta inserir o código a seguir como um evento de planilha

0276_11

 

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
'Declarar variável
Dim intCountItens

'Desabilitar eventos
Application.EnableEvents = False

With ActiveSheet.PivotTables("ResumoTrim").PivotFields("Mês")
    'Contar número de itens do campo mês
    intCountItens = .PivotItems.Count
    'Mover o campo calculado para a última posição
    .PivotItems("Media_Ult_Trim").Position = intCountItens
End With

'Reabilitar eventos
Application.EnableEvents = True

End Sub

Espero que tenham gostado de mais essa dica.

Se quiser, baixe o arquivo neste link.

In Excel We Trust

Publicado em Excel

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Visitas dos usuários
  • 2.994.925
Drive Virtual

Acesse o link para ter acesso aos arquivos para download.

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.710 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: