Come visualizzare il nome di una tabella o tabella pivot in una cella in Excel?

Questo articolo spiega come visualizzare il nome di una tabella specifica o di una tabella pivot in una cella in Excel.

Visualizza il nome della tabella o della tabella pivot in una cella con il codice VBA

Visualizza il nome della tabella o della tabella pivot in una cella con il codice VBA

Il seguente codice VBA può aiutarti a visualizzare il nome di una tabella specificata o di una tabella pivot in una cella. Procedi nel modo seguente.

1. Premi i tasti Alt + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Successivamente, copia il codice VBA sottostante nella finestra Modulo.

Codice VBA: Visualizza il nome della tabella o della tabella pivot in una cella

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. Premi i tasti Alt + Q per uscire dalla finestra Microsoft Visual Basic for Applications.

4. Seleziona una cella vuota, inserisci la formula =getObjName(A2) nella Barra delle formule e poi premi il tasto Invio. Vedi screenshot:

Note:

Articoli correlati:

• Come elencare tutti i nomi delle tabelle in Excel?
• Come mantenere la tabella espandibile inserendo una riga della tabella in un foglio di lavoro protetto in Excel?
• Come riordinare la posizione delle colonne in una tabella in Excel?
• Come nascondere le righe con valori zero in una tabella pivot?