Bom dia, pessoal!
Segue uma macro bastante simples, para padronizar o modo de exibição de uma tabela dinâmica em uma planilha. Criei esta macro para poder voltar ao formato padrão que prefiro depois de criar ou modificar uma tabela. O texto está comentado, e alguns parâmetros podem ser alterados (exibir ou não o total por colunas e formatar o relatório no estilo de tabela):
Sub Formata_Dinamicas()
'
' Personaliza formatação das tabelas dinâmicas
'
Dim N_Pivot As Integer
Dim N_Pivot_Fields As Integer
N_Pivot = 1
ActiveSheet.PivotTables(N_Pivot).RowGrand = False 'Elimina totais por linha
ActiveSheet.PivotTables(N_Pivot).ColumnGrand = True 'Mantém totais por coluna
If ActiveSheet.PivotTables(N_Pivot).PivotFields(N_Pivot_Fields).Orientation = xlRowField Then
On Error Resume Next 'Ignora erro ao passar pelo campo de somatória
On Error Resume Next 'Ignora erro ao passar pelo campo de somatória
ActiveSheet.PivotTables(N_Pivot).PivotFields(N_Pivot_Fields).Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
End If
Next
Next
N_Pivot = N_Pivot + 1
Wend
End Sub
Até a próxima!
Nenhum comentário:
Postar um comentário