Как да покажа име на таблица или обобщена таблица в клетка в 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 Function3. Натисни Друг + Q клавиши за излизане от Microsoft Visual Basic за приложения прозорец.
4. Изберете празна клетка, въведете формула =getObjName(A2) в лентата с формули и след това натиснете клавиша Enter. Вижте екранна снимка:
бележки:
Още по темата:
- Как да изброя всички имена на таблици в Excel?
- Как да поддържате таблицата разширяема чрез вмъкване на ред от таблица в защитен работен лист в Excel?
- Как да пренаредите позицията на колоните в таблицата в Excel?
- Как да скрия редове с нулева стойност в осевата таблица?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
