Wie Endtermin von Pivot-Tabellen mit VBA in Microsoft Excel wählen
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:
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
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
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
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
-
Um den Code zu testen; wenn wir das bestehende Datum ändern; wir werden entsprechend ausgegeben
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)
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