David se pregunta si hay alguna forma de mostrar el nombre de una tabla dinámica dentro de la propia tabla dinámica.

La respuesta corta es que no hay forma de hacer esto automáticamente. La respuesta más larga es que puede «hacer trampa» y forzar un nombre en la tabla dinámica. Por ejemplo, puede seleccionar la celda de la etiqueta de fila en la tabla dinámica y editarla (F2), reemplazando lo que esté allí con el nombre que desee escribir. Esto está lejos de ser automático, y cuando actualice la tabla dinámica, deberá recordar editar la celda nuevamente.

Otra forma de forzar un nombre en la tabla dinámica es usar una macro. Probablemente hay algunos enfoques que podría adoptar en su macro. Un enfoque consiste en crear una tabla de datos en la que se basará su tabla dinámica. Asigne un encabezado a la tabla de datos, en la primera columna. (Cualquier texto antiguo para el encabezado servirá, ya que la macro lo sobrescribirá).

Después de crear su tabla dinámica, ejecute la siguiente macro. Determina el nombre de la tabla dinámica, lo coloca en el encabezado de la tabla de datos, actualiza la tabla dinámica (para que el nombre aparezca allí) y luego actualiza el nombre del filtro de informe de la tabla dinámica para que sea el mismo que el nombre de la tabla dinámica.

Sub GetPVName()

Dim pvt As PivotTable     Dim PVName As String

' Get the PivotTable name from the ActiveSheet     ' If there are multiple PivotTables, this approach     ' ensures the macro will work with the last PivotTable     ' in the PivotTables collection     For Each pvt In ActiveSheet.PivotTables         PVName = pvt.Name     Next pvt

' Put PivotTable name as a heading for the first     ' column of the data table     Range("Table1").Cells(0, 1) = PVName

' Refresh the PivotTable     ActiveSheet.PivotTables(PVName).PivotCache.Refresh

' Set the PivotTable name in the report filter     With ActiveSheet.PivotTables(PVName).PivotFields(PVName)

.Orientation = xlPageField         .Position = 1     End With End Sub

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (3233) se aplica a Microsoft Excel 2007, 2010, 2013 y 2016.