Cum se afișează numele tabelului sau tabelului pivot într-o celulă din Excel?

Acest articol explică cum să afișați numele unui anumit tabel sau tabel pivot într-o celulă în Excel.

Afișați numele tabelului sau al tabelului pivot într-o celulă cu cod VBA

Afișați numele tabelului sau al tabelului pivot într-o celulă cu cod VBA

Următorul cod VBA vă poate ajuta să afișați un tabel specificat sau numele tabelului pivot într-o celulă. Vă rugăm să faceți următoarele.

1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi, copiați codul VBA de mai jos în fereastra Modulului.

Cod VBA: Afișați numele tabelului sau tabelului pivot într-o celulă

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. apasă pe Alt + Q tastele pentru a ieși din Microsoft Visual Basic pentru aplicații fereastră.

4. Selectați o celulă goală, introduceți formula =getObjName(A2) în bara de formule și apoi apăsați tasta Enter. Vedeți captura de ecran:

notițe:

Legate de articole:

• Cum se listează toate numele tabelelor în Excel?
• Cum să păstrați tabelul extensibil inserând rândul tabelului într-o foaie de lucru protejată în Excel?
• Cum să reordonați poziția coloanelor din tabel în Excel?
• Cum se ascunde rândurile cu valoare zero în tabelul pivot?