¿Cómo agregar varios campos a la tabla dinámica?
Cuando creamos una tabla dinámica, necesitamos arrastrar los campos a las etiquetas de fila o valores manualmente uno por uno. Si tenemos una lista larga de campos, podemos agregar algunas etiquetas de fila rápidamente, pero los campos restantes deben agregarse al área Valor. ¿Existe algún método rápido para que agreguemos todos los demás campos en el área Valor con un clic en la tabla dinámica?
Agregue varios campos en el área de valor de la tabla dinámica con código VBA
Agregue varios campos en el área de valor de la tabla dinámica con código VBA
Desafortunadamente, no hay una casilla de verificación para que podamos verificar rápidamente todos los campos en la Lista de campos de la tabla dinámica con un solo clic, pero con el siguiente código VBA puede ayudarlo a agregar los campos restantes al área de Valores a la vez. Haz lo siguiente:
1. Después de crear la tabla dinámica, en primer lugar, debe agregar los campos de etiqueta de fila según sus necesidades y dejar los campos de valor en el Elija campos para agregar al informe lista, vea la captura de pantalla: </ p>
2. Mantenga pulsado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para aplicaciones.
3. Hacer clic recuadro > Móduloy pegue el siguiente código en el Ventana de módulo.
Código de VBA: agregue varios campos en el área de valor de las tablas dinámicas en la hoja de trabajo activa
Sub AddAllFieldsValues()
'Update 20141112
Dim pt As PivotTable
Dim I As Long
For Each pt In ActiveSheet.PivotTables
For I = 1 To pt.PivotFields.Count
With pt.PivotFields(I)
If .Orientation = 0 Then .Orientation = xlDataField
End With
Next
Next
End Sub
4. Entonces presione F5 para ejecutar este código, todos los campos restantes se han agregado al área de Valores al mismo tiempo, vea la captura de pantalla:
Note: Este código VBA se aplica a todas las tablas dinámicas de la hoja de trabajo activa.
Artículos relacionados:
¿Cómo enumerar todas las tablas dinámicas de un libro de trabajo?
¿Cómo comprobar si existe una tabla dinámica en un libro de trabajo?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!