Shairal desarrolla tablas dinámicas a diario, utilizando varias fuentes de datos, como listas de Excel, tablas de Access y datos OLAP. Una de las cosas más irritantes con las que se enfrenta es la supresión de la función subtotal automática en cada campo, uno a la vez. Esto puede llevar mucho tiempo dependiendo de la cantidad de campos que haya utilizado. Shairal se preguntó si sería más fácil utilizar una macro para suprimir los subtotales de todos los campos a la vez.

La respuesta es que sería más fácil utilizar una macro. (Para eso son las macros, para ocuparse de las cosas tediosas de las que se cansa). Sin embargo, en lugar de reinventar la rueda, una buena solución es considerar el siguiente código, adaptado del sitio de Microsoft MVP Debra Daglisesh:

Sub NoSubtotals()

'turns off subtotals in pivot table     '.PivotFields could be changed to     '.RowFields or .ColumnFields

Dim pt As PivotTable     Dim pf As PivotField

On Error Resume Next     For Each pt In ActiveSheet.PivotTables         For Each pf In pt.PivotFields             'First, set index 1 (Automatic) to True,             'so all other values are set to False             pf.Subtotals(1) = True             pf.Subtotals(1) = False         Next pf     Next pt End Sub

Simplemente muestre la tabla dinámica que desea afectar y luego ejecute la macro.

Los subtotales de todos los campos de la tabla dinámica se suprimen a la vez. El original de este código está disponible aquí, en el sitio de Debra:

http://www.contextures.com/xlPivot03.html#Subtotals

El sitio también contiene otra buena información para trabajar con tablas dinámicas.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

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

Este consejo (3103) se aplica a Microsoft Excel 97, 2000, 2002 y 2003.