Cómo utilizar Pivot Table Lógica

Saber utilizar la lógica en las tablas pivote se puede ahorrar tiempo si es necesario realizar cambios en muchas tablas dinámicas . Las tablas pivote se utilizan a menudo en aplicaciones de hojas de cálculo , como Microsoft Office Excel, para resumir los datos . Puede utilizar Visual Basic para Aplicaciones ( VBA ) para aplicar y ejecutar la lógica de programación fácilmente. VBA es un lenguaje de programación utilizado para automatizar tareas rutinarias en Excel y otras aplicaciones de Office. Cosas que necesitará
Microsoft Office Excel
Ver Más instrucciones
1

Inicie Microsoft Office Excel y escriba " FieldColumns " en "A1 ", "Información" en " B1 , " " Columna1 " en " A2 ", " 15 " en " B2 ", " Columna2 " en " A3 ", y " 25 " en " B3 . " Haga clic en " A1 ", presione la tecla "Ctrl " y " A ", haga clic en el menú " Insertar" y , a continuación, seleccione " tabla dinámica ". Pulse el botón " Aceptar".
2

Marque las casillas junto a " FieldColumns " e "Información ". Seleccione la pestaña " desarrolladores" y haga clic en "Visual Basic ". Haga clic en el menú "Insertar" y seleccione
3

Escriba lo siguiente para crear un nuevo procedimiento de " módulos". :

Private Sub executeTableLogic ()
< p> Presione " Enter".
4

Escriba lo siguiente para crear sus variables:

PTBL As tabla dinámica

wrkSheet Dim como hoja de trabajo

5

Escriba lo siguiente para recorrer todas las hojas de trabajo y la búsqueda de las tablas dinámicas en el libro :

For Each wrkSheet en ActiveWorkbook.Worksheets

For Each PTBL en wrkSheet.PivotTables

Range ( "A3 : B6 ") . Seleccione
6

Escriba lo siguiente para dar formato a la tabla dinámica :

Ptbl.TableRange1

. Font.Bold = False

. Interior.ColorIndex = 0

End con fotos de 7

Escriba el siguiente para agregar lógica y resaltar filas si los valores de la tabla dinámica son mayores del 10 :

For Each c En Ptbl.DataBodyRange.Cells

Si c.Value > = 10 Entonces

Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1) spanish

. Font.Bold = True

. Interior.ColorIndex = 6 personas

extremo con

End If

Exit Sub

Siguiente PTBL

Siguiente wrkSheet
8

Press "F5 " para ejecutar el procedimiento.