Como exibir o nome da tabela ou tabela dinâmica em uma célula no Excel?

Este artigo explica como exibir o nome de uma tabela específica ou tabela dinâmica em uma célula no Excel.

Exibir o nome da tabela ou tabela dinâmica em uma célula com código VBA

Exibir o nome da tabela ou tabela dinâmica em uma célula com código VBA

O seguinte código VBA pode ajudá-lo a exibir o nome de uma tabela ou tabela dinâmica especificada em uma célula. Por favor, siga os passos abaixo.

1. Pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie o código VBA abaixo para a janela do Módulo.

Código VBA: Exibir o nome da tabela ou tabela dinâmica em uma célula

Function getObjName(rng As Range) As String
'Updated by Extendoffice 20180420
    Dim xTable As ListObject
    Dim xPivotTable As PivotTable
    Dim xTableName As String
    Dim xPtName As String
    On Error Resume Next
    xTableName = ""
    xPtName = ""
    Set xTable = rng.Cells(1).ListObject
    xTableName = "Table[" & xTable.Name & "]"
    If xTable Is Nothing Then
        Set xPivotTable = rng.Cells(1).PivotTable
        xPtName = "Pivot [" & xPivotTable.Name & "]"
    End If
    getObjName = xTableName & xPtName
End Function

3. Pressione as teclas Alt + Q para sair da janela do Microsoft Visual Basic for Applications.

4. Selecione uma célula em branco, insira a fórmula =getObjName(A2) na Barra de Fórmulas e pressione a tecla Enter. Veja a captura de tela:

Notas:

Artigos relacionados:

• Como listar todos os nomes de tabelas no Excel?
• Como manter a tabela expansível inserindo linha de tabela em uma planilha protegida no Excel?
• Como reordenar a posição das colunas em uma tabela no Excel?
• Como ocultar linhas com valores zero na tabela dinâmica?