Como verificar se uma tabela dinâmica existe em uma pasta de trabalho?
Se houver várias tabelas dinâmicas na sua pasta de trabalho e você quiser rapidamente saber se uma tabela dinâmica específica existe nessa pasta, normalmente pode ir até a caixa de diálogo Opções da Tabela Dinâmica para verificar o nome das tabelas dinâmicas uma por uma. No entanto, isso é muito demorado e tedioso quando existem dezenas ou centenas de tabelas dinâmicas. Aqui, posso compartilhar um truque com você para resolver essa tarefa.
Verifique se uma tabela dinâmica existe em uma pasta de trabalho com uma função definida pelo usuário
Para saber rapidamente se uma tabela dinâmica existe na pasta de trabalho atual, você pode criar uma Função Definida pelo Usuário para resolver isso.
1. Abra a pasta de trabalho na qual deseja verificar se a tabela dinâmica existe.
2. Pressione e segure as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.
3. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Verifique se uma tabela dinâmica existe em uma pasta de trabalho
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Em seguida, salve e feche este código, volte para sua planilha, insira esta fórmula =pivotexist("salereport") em uma célula em branco, veja a captura de tela:
Notas: (1.) Na fórmula acima, “salereport” é o nome da tabela dinâmica que você deseja verificar.
(2.) Você deve inserir o nome da tabela dinâmica entre aspas duplas, e o nome precisa diferenciar maiúsculas de minúsculas.
5. Após inserir a fórmula, pressione a tecla Enter; se você obtiver VERDADEIRO na sua célula, a tabela dinâmica existe; se você obtiver FALSO, a tabela dinâmica não existe.
Artigos relacionados:
Como listar todas as tabelas dinâmicas de uma pasta de trabalho?
Como adicionar vários campos em uma tabela dinâmica?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins