¿Cómo cambiar la configuración de varios campos en una tabla dinámica?

Cuando creas una tabla dinámica en una hoja de cálculo, después de arrastrar los campos a la lista Valores en la Lista de Campos de la Tabla Dinámica, podrías obtener todas las funciones Contar iguales como se muestra en la siguiente captura de pantalla. Pero ahora, quieres que la función Suma reemplace a la función Contar de inmediato, ¿cómo podrías cambiar el cálculo de varios campos de la tabla dinámica a la vez en Excel?

Cambiar la configuración de los campos en la tabla dinámica manualmente uno por uno

Cambiar la configuración de múltiples campos en la tabla dinámica con código VBA

Cambiar la configuración de los campos en la tabla dinámica manualmente uno por uno

En Excel, puedes cambiar el cálculo de la configuración de los campos cambiando la función una por una en el cuadro de diálogo Configuración del Campo de Valor, por favor hazlo así:

1. Selecciona un campo en el área de Valores para el cual deseas cambiar la función de resumen en la tabla dinámica, y haz clic derecho para elegir Configuración del Campo de Valor, ver captura de pantalla:

2. Luego, en el cuadro de diálogo Configuración del Campo de Valor, selecciona el tipo de cálculo que deseas usar bajo la pestaña Resumir Valor Por, ver captura de pantalla:

3. Y luego haz clic en Aceptar para cerrar este cuadro de diálogo, y puedes ver que tu función Contar ha sido cambiada a función Suma, ver captura de pantalla:

4. Repite los pasos anteriores para cambiar la configuración de cálculo de otros campos uno por uno.

Nota: También puedes cambiar la configuración del campo haciendo clic derecho en una celda de campo y eligiendo Resumir Valores por y seleccionando un cálculo que necesites desde los menús contextuales.

Cambiar la configuración de múltiples campos en la tabla dinámica con código VBA

El método anterior será muy lento y tedioso si hay muchos cálculos de campos que necesitan ser cambiados; aquí te puedo presentar un código para cambiar múltiples configuraciones de campos al mismo tiempo.

1. Haz clic en cualquier celda de tu tabla dinámica.

2. Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

3. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: Cambiar la configuración de múltiples campos en la tabla dinámica

Public Sub SetDataFieldsToSum()
'Update 20141127
Dim xPF As PivotField
Dim WorkRng As Range
Set WorkRng = Application.Selection
With WorkRng.PivotTable
   .ManualUpdate = True
   For Each xPF In .DataFields
      With xPF
         .Function = xlSum
         .NumberFormat = "#,##0"
      End With
   Next
   .ManualUpdate = False
End With
End Sub

4. Luego presiona la tecla F5 para ejecutar este código, y todos los ajustes de campo en tu tabla dinámica seleccionada se habrán convertido al cálculo que necesitas de inmediato, ver capturas de pantalla:

Nota: En el código anterior, puedes cambiar la función Suma a cualquier otro cálculo, como Promedio, Máximo, Mínimo según lo desees. Solo necesitas cambiar Suma en estos scripts: Public Sub SetDataFieldsToSum() y .Function = xlSum a otras funciones.