¿Cómo mostrar en una celda el nombre de una tabla o de una Tabla Dinámica en Excel?
Este artículo explica cómo mostrar en una celda de Excel el nombre de una tabla específica o de una Tabla Dinámica.
Mostrar el nombre de una tabla o de Tabla Dinámica en una celda con código VBA
Mostrar el nombre de una tabla o de Tabla Dinámica en una celda con código VBA
El siguiente código VBA le permite mostrar en una celda el nombre de una tabla o una Tabla Dinámica específica. Siga estos pasos:
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. A continuación, copie el código VBA que aparece a continuación en la ventana del módulo.
Código VBA: Mostrar el nombre de una tabla o de 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 Function3. Pulse las teclas Alt + Q para cerrar la ventana de Microsoft Visual Basic para Aplicaciones.
4. Seleccione una celda vacía, introduzca la fórmula =getObjName(A2) en la Barra de fórmulas y pulse la tecla Entrar. Vea la captura de pantalla:
Notas:
Artículos relacionados:
- ¿Cómo listar todos los nombres de las tablas en Excel?
- ¿Cómo mantener una tabla ampliable al insertar filas en una hoja protegida de Excel?
- ¿Cómo reordenar la posición de las columnas en una tabla de Excel?
- ¿Cómo ocultar las filas con valor cero en una tabla dinámica?
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos