So wählen Sie das neueste Datum aus der Pivot-Tabelle mit VBA in Microsoft Excel

Anonim

Wenn Sie an Verkaufsdaten arbeiten, die täglich aktualisiert werden. Um den vollständigen Verkauf zum letzten in die Daten eingegebenen Datum mithilfe der Pivot-Tabelle zu verfolgen. In diesem Artikel erfahren Sie, wie Sie mithilfe der Pivot-Tabelle das neueste Datum in der Datenbank mithilfe von Makros auswählen.

Im Folgenden ist die Momentaufnahme der Daten, die wir haben:

  • Um das neue Datum und die neuen Verkäufe automatisch zu finden, müssen wir Pivot erstellen
  • 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 ein


Sub LatestDatePivot()

 Dim pfiPivFldItem als PivotItem


 dtmDate als Datum dimmen


 Mit Worksheets("Sheet1").PivotTables(1)


 .PivotCache.Refresh


 .Alle Filter löschen


 Mit .RowRange


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





 Ende mit


 Für jedes pfiPivFldItem in .PivotFields("Dates").PivotItems


 Wenn pfiPivFldItem.Value = „(leer)“ Then


 pfiPivFldItem.Visible = False


 Anders


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


 Ende Wenn


 Nächstes pfiPivFldItem


 Ende mit


End Sub

  • Nachdem Sie den Code kopiert haben, müssen Sie das Makro ausführen, indem Sie verwenden ALT + F8 & wählen Sie das Makro aus.
  • Oder Sie können eine Form einfügen und das Makro zuweisen; wir bekommen das späteste datum

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

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

  • Drücken Sie STRG + F3, um den Namensmanager zu öffnen
  • Geben Sie im Feld Bezieht sich auf die Formel ein als
  • =OFFSET(Blatt1!$A$1,,,ANZAHLA(Blatt1!$A:$A),2)

  • Klicken Sie auf den OK-Button
  • Jetzt können wir diesen benannten Bereich in der Pivot-Tabelle verwenden
  • Klicken Sie auf die Pivot-Tabelle
  • In der Multifunktionsleiste Analysieren > Klicken Sie auf Datenquelle ändern

  • Drücken Sie die Tastenkombination F3, um den vorhandenen Namen einfügen zu starten; Wählen Sie LatestDate
  • Klicken Sie zweimal auf die Schaltfläche OK

  • Zum Testen können wir das neue Datum eintragen
  • Alles, was wir tun müssen, ist auf die rechteckige Form zu klicken, um das Makro auszuführen.

Auf diese Weise können wir mit VBA das späteste Datum aus der Pivot-Tabelle auswählen.

Download-So wählen Sie das neueste Datum aus der Pivot-Tabelle mit VBA