Esta dica permite que os usuários do seu relatório escolham entre vários formatos de tabela dinâmica usando botões de opção e, em seguida, atualiza a tabela dinâmica automaticamente! (É útil quando os usuários têm preferências de formato de relatório sem ter que ir para a barra de ferramentas da tabela dinâmica e escolher uma sempre)
Passo um:
Coloque um botão de opção (ou vários) em qualquer lugar da planilha do relatório da tabela dinâmica e nomeie-os como "Formato do relatório 1", "Formato do relatório 2", etc …
Faça isso em "Exibir> Barras de ferramentas> Formulários", escolha o "botão Opção" na caixa de ferramentas e arraste-o para o seu relatório.
Passo dois:
Crie a macro em "Ferramentas> Macro> Macros", digite um nome como "Formato2" e depois em "Criar"
Digite ou recorte e cole o seguinte código VB. (Observação: certifique-se de que sua tabela dinâmica tenha o nome padrão de "Tabela Dinâmica1" clicando com o botão direito do mouse em qualquer lugar da tabela dinâmica, escolha 'Opções de Tabela' e observe o campo "Nome". Caso contrário, você terá que substituir o nome da tabela dinâmica no código abaixo com o nome da sua tabela dinâmica):
Sub Format2 ()
'Formato2 Macro
ActiveSheet.PivotTables ("PivotTable1"). PivotSelect "", xlDataAndLabel, True
ActiveSheet.PivotTables ("PivotTable1"). Formato xlReport6
Cells.Select
Com Seleção
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = False
.Orientação = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Terminar com
Com Seleção
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientação = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
Terminar com
Cells.Select
Selection.Columns.Autofit
Intervalo ("A1"). Selecione
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~
Você pode criar macros de formato diferente usando este mesmo código e a única linha que você tem que alterar é o "Formato xlReport6". Existem cerca de 15 formatos de relatório para escolher. Basta alterar o "xlReport (número)" de 1 para 15.
O código acima também ajusta automaticamente as colunas e centraliza o texto após a formatação do relatório.
Passo três:
Atribua a macro ao botão de opção clicando com o botão direito do mouse no botão de opção, escolha "Atribuir Macro" e simplesmente escolha a macro que acabou de criar. Faça isso para cada um de seus botões de opção
É isso! Agora, quando um usuário clica em um botão de opção, a tabela dinâmica será atualizada automaticamente para o formato com base na opção de formato usada na macro. Teste vários estilos de relatório para ver quais são adequados às suas necessidades e, em seguida, atribua-os às suas macros e botões de opção.
Seus usuários ficarão gratos e bastante impressionados!
Boa sorte!
~ CJ