Savoir comment utiliser la logique dans les tableaux pivotants peuvent vous faire gagner du temps si vous devez apporter des modifications à de nombreux tableaux croisés dynamiques . Les tableaux croisés dynamiques sont souvent utilisés dans des applications de tableur , comme Microsoft Office Excel, pour synthétiser les données . Vous pouvez utiliser Visual Basic pour Applications ( VBA ) pour appliquer et exécuter la logique de programmation facilement . VBA est un langage de programmation informatique utilisé pour automatiser des tâches de routine dans les autres applications Office Excel et . Choses que vous devez
Microsoft Office Excel
Voir Plus Instructions
1
Démarrer Microsoft Office Excel , et tapez " FieldColumns " à " A1 ", "Informations" dans " B1 ", " Column1 "à " A2 ", " 15 " à " B2 ", " Colonne2 "à " A3 ", et " 25 " à " B3 ". Cliquez sur " A1 ", appuyez sur "Ctrl" et "A", cliquez sur le menu " Insertion", puis sélectionnez " tableau croisé dynamique. " Appuyez sur "OK".
2
Cochez les cases à côté de " FieldColumns " et " information". Sélectionnez l'onglet " Developer" , puis cliquez sur " Visual Basic ". Cliquez sur le menu "Insertion" et sélectionnez
3
Tapez la suivante pour créer une nouvelle procédure "Module ". :
Private Sub executeTableLogic ()
< p> Appuyez sur " Entrée".
4
Tapez la commande suivante pour créer vos variables :
PTBL As tableau croisé dynamique
wrkSheet As Feuille
< br > 5
Tapez la commande suivante pour parcourir toutes les feuilles et recherche de tableaux croisés dynamiques dans votre classeur :
Chaque wrkSheet En ActiveWorkbook.Worksheets
Chaque PTBL En wrkSheet.PivotTables
Range (" A3 : B6 " ) . Sélectionnez
6
Tapez la commande suivante pour formater tableau croisé dynamique :
Ptbl.TableRange1
. Font.Bold = False
. Interior.ColorIndex de
= 0
End With
7
Tapez la commande suivante pour ajouter une logique et mettre en évidence les lignes si les valeurs de tableau croisé dynamique sont plus à 10:
For Each c Dans Ptbl.DataBodyRange.Cells
Si c.Value > = 10 Alors
Ptbl.TableRange1.Rows ( c.Row - Ptbl.TableRange1.Row + 1)
. Font.Bold = True
. Interior.ColorIndex = 6
End With
End If < br >
Suivant
Exit Sub
Suivant PTBL
Suivant wrkSheet
8
Appuyez sur " F5 " pour exécuter votre procédure. < br >
