Wenn Sie an Verkaufsdaten arbeiten, die täglich aktualisiert werden. Verfolgung des gesamten Umsatzes am letzten in den Daten eingegebenen Datum mithilfe der Pivot-Tabelle. In diesem Artikel erfahren Sie, wie Sie mithilfe der Pivot-Tabelle mithilfe von Makros das neueste Datum in der Datenbank auswählen.

Es folgt die Momentaufnahme der Daten, die wir haben:

image 1

Um das neue Datum und die neuen Verkäufe automatisch zu finden, müssen wir den Drehpunkt verwenden. Verwenden Sie die Tastenkombination ALT + N + V

image 2

Wir müssen die folgenden Schritte ausführen:

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

image 3

aus * Geben Sie den folgenden Code in das Arbeitsblattmodul

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

ein Nach dem Kopieren des Codes müssen Sie das Makro mit ALT + F8 * ausführen und das Makro auswählen.

  • Oder Sie können eine Form einfügen und das Makro zuweisen. Wir werden das späteste Datum bekommen

image 5

  • Um den Code zu testen; wenn wir das bestehende Datum ändern; wir werden entsprechend ausgegeben

image 6

Um diesen Code dynamisch zu bearbeiten, müssen Sie lediglich die folgenden Schritte ausführen:

Drücken Sie STRG + F3, um den Namen Manager im Feld Verweise auf zu öffnen. Geben Sie die Formel als

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

image 7

Klicken Sie auf die Schaltfläche OK. Jetzt können Sie diesen benannten Bereich in der Pivot-Tabelle verwenden. Klicken Sie auf die Pivot-Tabelle Drücken Sie die Tastenkombination F3, um den vorhandenen Einfügenamen zu starten. LatestDate auswählen Klicken Sie zweimal auf die Schaltfläche OK

image 8