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
< br > 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 < br >
Siguiente
Exit Sub
Siguiente PTBL
Siguiente wrkSheet
8
Press "F5 " para ejecutar el procedimiento. < br >
