Как отобразить имя таблицы или сводной таблицы в ячейке Excel?
В этой статье рассказывается, как отобразить в ячейке Excel имя конкретной таблицы или сводной таблицы.
Отображение имени таблицы или Сводная таблица в ячейке с помощью кода VBA
Отображение имени таблицы или Сводная таблица в ячейке с помощью кода VBA
Приведенный ниже код VBA поможет отобразить в ячейке имя указанной таблицы или сводной таблицы. Выполните следующие действия.
1. Нажмите клавиши Alt+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 Function3. Нажмите клавиши Alt+Q, чтобы закрыть окно Microsoft Visual Basic для приложений.
4. Выделите пустую ячейку, введите формулу =getObjName(A2) в строку формул и нажмите клавишу Enter. См. снимок экрана:
Примечания:
См. также:
- Как вывести список всех имен таблиц в Excel?
- Как сохранить возможность расширения таблицы за счёт вставки строк на защищённом листе в Excel?
- Как изменить порядок столбцов в таблице Excel?
- Как скрыть в сводной таблице строки со значением ноль?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек