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

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

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

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

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

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте приведенный ниже код 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. Нажмите клавиши Alt + Q, чтобы выйти из окна Microsoft Visual Basic for Applications.

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

Примечания:

Связанные статьи:

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