Si vous travaillez sur des données de vente qui se mettent à jour quotidiennement. Pour suivre les ventes complètes à la dernière date saisie dans les données à l’aide du tableau croisé dynamique. Dans cet article, nous allons apprendre à utiliser le tableau croisé dynamique pour sélectionner la date la plus récente dans la base de données à l’aide de macros.

Voici un aperçu des données dont nous disposons:

image 1

Pour trouver automatiquement la nouvelle date et les ventes, nous devons faire pivot Utiliser la touche de raccourci ALT + N + V

image 2

Nous devons suivre les étapes ci-dessous:

Cliquez sur l’onglet Développeur Dans le groupe Code, sélectionnez Visual Basic

image 3

  • Entrez le code suivant dans le module de feuille de calcul

Sub LatestDatePivot()

Dim pfiPivFldItem As PivotItem

Dim dtmDate As Date

With Worksheets(“Sheet1”).PivotTables(1)

.PivotCache.Refresh

.ClearAllFilters

With .RowRange

dtmDate = Evaluate(“Max(IF(ISNUMBER(“ & .Address(0, 0) & “),” & .Address(0, 0) & “,))”)

End With

For Each pfiPivFldItem In .PivotFields(“Dates”).PivotItems

If pfiPivFldItem.Value = “(blank)” Then

pfiPivFldItem.Visible = False

Else

pfiPivFldItem.Visible = (Cdate(pfiPivFldItem.Value) = CLng(dtmDate))

End If

Next pfiPivFldItem

End With

End Sub

image 4

Après avoir copié le code, vous devez exécuter la macro en utilisant ALT + F8 * et sélectionnez la macro.

  • Ou vous pouvez insérer une forme et attribuer la macro; nous aurons la dernière date

image 5

  • Pour tester le code; si nous changeons la date existante; nous obtiendrons la sortie en conséquence

image 6

Pour travailler dynamiquement ce code, tout ce que vous avez à faire est de suivre les étapes ci-dessous:

Appuyez sur CTRL + F3 pour ouvrir le Gestionnaire de noms dans la zone Se réfère à entrer la formule comme

* = OFFSET (Feuille1! $ A $ 1 ,,, COUNTA (Feuille1! $ A: $ A), 2)

image 7

Cliquez sur le bouton OK Maintenant, nous sommes prêts à utiliser cette plage nommée dans le tableau croisé dynamique Cliquez sur le tableau croisé dynamique À partir du ruban Analyser> Cliquez sur Modifier la source de données

image 8

Appuyez sur le raccourci F3 pour lancer le nom de collage existant; sélectionnez LatestDate Cliquez deux fois sur le bouton ok