Как отобразить имя таблицы или сводной таблицы в ячейке в Excel?

В этой статье объясняется, как отобразить имя определенной таблицы или сводной таблицы в ячейке Excel.

Отображение имени таблицы или сводной таблицы в ячейке с кодом VBA

Отображение имени таблицы или сводной таблицы в ячейке с кодом VBA

Следующий код VBA может помочь вам отобразить указанную таблицу или имя сводной таблицы в ячейке. Пожалуйста, сделайте следующее.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте код VBA ниже в окно модуля.

Код VBA: отображение имени таблицы или сводной таблицы в ячейке

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. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

4. Выберите пустую ячейку, введите формулу. =getObjName(A2) в панель формул и нажмите клавишу Enter. Смотрите скриншот:

Заметки:

Статьи по теме:

• Как перечислить все имена таблиц в Excel?
• Как сохранить расширяемость таблицы, вставив строку таблицы в защищенный лист в Excel?
• Как изменить порядок столбцов в таблице в Excel?
• Как скрыть строки с нулевым значением в сводной таблице?