¿Cómo mostrar el nombre de la tabla o tabla dinámica en una celda en Excel?
Este artículo habla de mostrar una tabla específica o el nombre de una tabla dinámica en una celda en Excel.
Mostrar el nombre de la tabla o tabla dinámica en una celda con código VBA
Mostrar el nombre de la tabla o tabla dinámica en una celda con código VBA
El siguiente código de VBA puede ayudarlo a mostrar una tabla específica o el nombre de una tabla dinámica en una celda. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana del Módulo.
Código de VBA: muestra el nombre de la tabla o tabla dinámica en una celda
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. presione el otro + Q llaves para salir del Microsoft Visual Basic para aplicaciones ventana.
4. Seleccione una celda en blanco, ingrese la fórmula =getObjName(A2) en la barra de fórmulas y luego presione la tecla Enter. Ver captura de pantalla:
Notas:
Artículos relacionados:
- ¿Cómo enumerar todos los nombres de las tablas en Excel?
- ¿Cómo mantener la tabla expandible insertando la fila de la tabla en una hoja de trabajo protegida en Excel?
- ¿Cómo reordenar la posición de las columnas en la tabla en Excel?
- ¿Cómo ocultar filas de valor cero en la tabla dinámica?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!