Как отобразить имя таблицы или сводной таблицы в ячейке в 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 Function3. Нажмите клавиши Alt + Q, чтобы выйти из окна Microsoft Visual Basic for Applications.
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-дневная полнофункциональная пробная версия — без регистрации и кредитной карты
- Лучшее соотношение цены и качества — экономия по сравнению с покупкой отдельных надстроек