Saber como usar a lógica em tabelas dinâmicas você pode economizar tempo se você precisar fazer alterações para muitas tabelas dinâmicas. Tabelas dinâmicas são freqüentemente usados em aplicativos de planilha , como o Microsoft Office Excel , para resumir dados . Você pode usar o Visual Basic for Applications (VBA) para aplicar e executar a lógica de programação facilmente. VBA é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em Excel e outros aplicativos do Office. Coisas que você precisa
Microsoft Office Excel
Show Mais instruções
1
Inicie o Microsoft Office Excel, e digite " FieldColumns " em " A1 ", " Informação" in " B1 ", " Column1 " em " A2 ", " 15 " , em " B2 ", " Column2 " em " A3 "e " 25 " , em " B3 ". Clique em " A1 ", pressione "Ctrl " e "A ", clique no menu "Inserir" e selecione " Tabela Dinâmica ". Pressione " OK".
2
Marque as caixas ao lado de " FieldColumns " e "Informações ". Selecione a guia "Desenvolvedor" e clique em "Visual Basic". . " Módulo ", clique no menu "Inserir" e selecione
3
Digite o seguinte para criar um novo procedimento :
Private Sub executeTableLogic ()
Pressione " Enter".
4
Digite o seguinte para criar as suas variáveis :
Dim PTBL Conforme tabela dinâmica
Dim wrkSheet Como Planilha
< br > 5
Digite o seguinte para percorrer todas as planilhas e busca de tabelas dinâmicas em sua pasta de trabalho :
para Cada wrkSheet em ActiveWorkbook.Worksheets
Para Cada PTBL em wrkSheet.PivotTables
Range (" A3: B6 " ) . Selecione
6
Digite o seguinte para a tabela formato pivô :
com Ptbl.TableRange1
. Font.Bold = False
. Interior.ColorIndex = 0
End With
7
Digite o seguinte para adicionar lógica e destacar linhas, se os valores da tabela do pivô são maiores de 10 :
Para cada c em Ptbl.DataBodyRange.Cells
Se c.Value > = 10 Então
Com Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1)
. Font.Bold = True
. Interior.ColorIndex = 6
End With
End If < br >
Próxima
Exit Sub
Próxima PTBL
Próxima wrkSheet
8
Pressione " F5" para executar o procedimento . < br >
