¿Cómo mostrar el nombre de una tabla o tabla dinámica en una celda en Excel?
Este artículo explica cómo mostrar el nombre de una tabla o tabla dinámica específica en una celda en Excel.
Mostrar el nombre de una tabla o tabla dinámica en una celda con código VBA
Mostrar el nombre de una tabla o tabla dinámica en una celda con código VBA
El siguiente código VBA puede ayudarte a mostrar el nombre de una tabla o tabla dinámica específica en una celda. Por favor, sigue los siguientes pasos.
1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego, copia el siguiente código VBA en la ventana del Módulo.
Código VBA: Mostrar el nombre de una 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 Function3. Presiona las teclas Alt + Q para salir de la ventana de Microsoft Visual Basic para Aplicaciones.
4. Selecciona una celda en blanco, introduce la fórmula =getObjName(A2) en la Barra de fórmulas y luego presiona la tecla Enter. Ver captura de pantalla:
Notas:
Artículos relacionados:
- ¿Cómo enumerar todos los nombres de tablas en Excel?
- ¿Cómo mantener una tabla ampliable insertando filas en una hoja de cálculo protegida en Excel?
- ¿Cómo reordenar la posición de las columnas en una tabla en Excel?
- ¿Cómo ocultar filas con valor cero en una tabla dinámica?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos