Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo cambiar la configuración de múltiples campos en la tabla dinámica?

Cuando crea una tabla dinámica en una hoja de trabajo, después de arrastrar los campos al Valores lista en el Lista de campos de tabla dinámica, puede obtener todo lo mismo Contar funcionan como se muestra la siguiente captura de pantalla. Pero ahora, quieres el Suma de función para reemplazar el Contar de la función a la vez, ¿cómo podría cambiar el cálculo de múltiples campos de tabla dinámica a la vez en Excel?

doc-change-field-setting-1

Cambie los ajustes de campo 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

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Cambie los ajustes de campo en la tabla dinámica manualmente uno por uno


En Excel, puede cambiar el cálculo de la configuración de campo al cambiar la función uno por uno en el Configuración de campo de valor diálogo, haz lo siguiente:

1. Seleccione un campo en el área Valores para el que desea cambiar la función de resumen en la tabla dinámica, y haga clic con el botón derecho para elegir Configuración de campo de valor, mira la captura de pantalla:

doc-change-field-setting-1

2. Entonces en el Configuración de campo de valor cuadro de diálogo, seleccione un tipo de cálculo que desee usar debajo del Resumir el valor por pestaña, ver captura de pantalla:

doc-change-field-setting-1

3. Y luego haz clic OK para cerrar este cuadro de diálogo, y puede ver que su función de recuento se ha cambiado a la función suma, vea la captura de pantalla:

doc-change-field-setting-1

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

Nota: También puede cambiar la configuración del campo haciendo clic con el botón derecho en una celda de campo y seleccionando Resumir valores por y seleccione un cálculo que necesita de los menús contextuales.

doc-change-field-setting-1


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

El método anterior requerirá mucho tiempo y será tedioso si es necesario cambiar muchos cálculos de campo; aquí, puedo presentarle un código para cambiar varias configuraciones archivadas al mismo tiempo.

1. Haga clic en cualquier celda de su tabla dinámica.

2. Mantenga presionado el ALT + F11 llaves, y abre la Ventana de Microsoft Visual Basic para Aplicaciones.

3. Hacer clic recuadro > Móduloy pegue el siguiente código en Ventana de módulo.

Código de VBA: cambie 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. Entonces presione F5 para ejecutar este código, y todas las configuraciones de campo en su tabla dinámica se han convertido al cálculo de su necesidad de una vez, vea capturas de pantalla:

doc-change-field-setting-1
-1
doc-change-field-setting-6

Nota: En el código anterior, puede cambiar la función Suma a cualquier otro cálculo, como Promedio, Máx., Mínimo como desee. Solo necesita cambiar la suma en estos scripts: Public Sub SetDataFieldsToSum () y .Function = xlSum a otras funciones.


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brian · 3 months ago
    Thank you. The code worked beautifully and saved me a lot of wasted time and energy!
  • To post as a guest, your comment is unpublished.
    Rich · 9 months ago
    I've used the VBA solution with great success in the past, but it doesn't work with the data model. Do you know if there is a solution for that?
  • To post as a guest, your comment is unpublished.
    pierrr · 10 months ago
    How about Average, Stddev, Max and Min for each field successively?
  • To post as a guest, your comment is unpublished.
    Tarryn · 1 years ago
    Brilliant!!!! Thank you so much this was amazing!!!
  • To post as a guest, your comment is unpublished.
    Harendra Singh Kuntal · 1 years ago
    SuperB... I've been frustrated with this problem
  • To post as a guest, your comment is unpublished.
    Sonia · 1 years ago
    Amazing - I am no hot shot with VBA and feel like a champion - this has been driving me crazy for a long time! Thank you
  • To post as a guest, your comment is unpublished.
    Danny · 1 years ago
    This is incredible. I've been frustrated with this problem for years, with some docs with 50+ fields. This is such a time saver!
  • To post as a guest, your comment is unpublished.
    Karishma · 2 years ago
    Change Multiple Field Settings In Pivot Table With VBA Code


    Amazing! Thank you so much. So helpful with my work.
  • To post as a guest, your comment is unpublished.
    John · 2 years ago
    Just what I was looking for !!

    Right after the .NumberFormat line, I added a rename for the column heading in the pivot, so I did not have "Sum of" in all of them.


    .Caption = " " & xPF.SourceName


    Thanks again !!
  • To post as a guest, your comment is unpublished.
    Zoltan · 2 years ago
    hi
    this is very useful thanks for that.
    im just wondering is it possible to set just a few or specific columns's value field settings?
    i mean for example i have values in the first 20 columns and i want to see the data in SUM but from 21th columns comes another type of data (for example distribution) and from that column I would like to see the data in MAX value.
    so is it possible somehow find for example the name of the header and if "distribution" is there change every "distribution" columns into MAX value.
    does it make sense?
    cheers
    Zoltan
    • To post as a guest, your comment is unpublished.
      lorbas · 1 years ago
      did you ever get a reply to this? I have the same question
  • To post as a guest, your comment is unpublished.
    Kelsey · 2 years ago
    Thanks for this! Is there any way to use StdDev instead of Sum? I was able to change your code for Average & Count, but I can't get StdDev to work. Thanks!
    • To post as a guest, your comment is unpublished.
      Gary ODriscoll · 17 days ago
      Kelsey, I just created a macro and changed one manually and then checked the macro code in VBA. To get StdDev to Work use StDev. Code becomes the following:


      Public Sub SetDataFieldsToStDev()
      '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 = xlStDev
      .NumberFormat = "#,##0"
      End With
      Next
      .ManualUpdate = False
      End With
      End Sub
    • To post as a guest, your comment is unpublished.
      Matt · 1 years ago
      Kelsey- did you get an answer for this or figure this out? I tried to edit the code but have not been able to figure it out yet. I was not sure if there was a way to quickly change it for the different summation options. Thanks!
    • To post as a guest, your comment is unpublished.
      Michelle · 2 years ago
      Hi Kelsey - I'm wondering if you ever received an answer to this? I am trying to do the same thing. Thanks!
  • To post as a guest, your comment is unpublished.
    daniel read · 2 years ago
    This is so useful. This problem has bothered me for years and now its solved.
  • To post as a guest, your comment is unpublished.
    Jani · 2 years ago
    Hi,
    Thank you for the very good solution! Is it possible to make it automatic? So whenever I add a new Field to the values this macro should run.
    thank you in advance,
    Jani
  • To post as a guest, your comment is unpublished.
    Zwakele · 3 years ago
    Thank you for the solution.
    For reason I get an error on the .NumberFormat = "#,##0". I am changing from Sum to Average which works fine but I also want to change the NumberFormat to Number with 1 decimal.

    Thanks
  • To post as a guest, your comment is unpublished.
    Prasenjit · 4 years ago
    Hi,

    The tips and VB macros is really helpful.
    Thanks
    • To post as a guest, your comment is unpublished.
      Suhail Aboobacker · 2 years ago
      Good Day,

      Wonderful. It really helps a lot.
      Your Pivot tips are so wonderful
      I am looking for years and i got real help
      How can we add function for decimals also.
      Thanks a lot