Hvordan velge siste dato fra pivottabell ved hjelp av VBA i Microsoft Excel

Anonim

Hvis du jobber med salgsdata som oppdateres daglig. For å spore hele salget på den siste datoen som er angitt i dataene ved hjelp av pivottabell. I denne artikkelen lærer vi hvordan du bruker pivottabell for å velge den nyeste datoen i databasen ved hjelp av makroer.

Følgende er øyeblikksbildet av dataene vi har:

  • For å automatisk finne den nye datoen og salget, må vi gjøre en pivot
  • Bruk hurtigtasten ALT + N + V

Vi må følge trinnene nedenfor:

  • Klikk på kategorien Utvikler
  • Velg Visual Basic fra kodegruppen

  • Skriv inn følgende kode i regnearkmodulen


Sub LatestDatePivot ()

 Dim pfiPivFldItem som PivotItem


 Dim dtmDate As Date


 Med regneark ("Sheet1"). Pivottabeller (1)


 .PivotCache.Refresh


 .ClearAllFilters


 Med .RowRange


 dtmDate = Evaluer ("Maks (IF (ISNUMBER (" & .Adresse (0, 0) & ")," & .Adresse (0, 0) & ",))")





 Slutt med


 For hvert pfiPivFldItem I .PivotFields (“Datoer”). PivotItems


 Hvis pfiPivFldItem.Value = “(blank)” Så


 pfiPivFldItem.Visible = Falsk


 Ellers


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


 Slutt om


 Neste pfiPivFldItem


 Slutt med


Slutt Sub

  • Etter å ha kopiert koden må du kjøre makroen ved å bruke ALT + F8 og velg makroen.
  • Eller du kan sette inn en figur og tildele makroen; vi får den siste datoen

  • For å teste koden; hvis vi endrer den eksisterende datoen; vi vil få output tilsvarende

Alt du trenger å gjøre er å følge denne koden dynamisk:

  • Trykk CTRL + F3 for å åpne Name Manager
  • Skriv inn formelen som i Refererer til -boksen
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Klikk på ok -knappen
  • Nå er vi klare til å bruke dette navngitte området i pivottabellen
  • Klikk på pivottabellen
  • Fra Analyser bånd> Klikk på Endre datakilde

  • Trykk på F3 -snarveien for å starte det eksisterende Limnavn; velg LatestDate
  • Klikk på ok -knappen to ganger

  • For å teste kan vi skrive inn den nye datoen
  • Alt vi trenger å gjøre er å klikke på den rektangulære formen for å kjøre makroen.

På denne måten kan vi velge siste dato fra pivottabellen ved hjelp av VBA.

Last ned-Hvordan velge siste dato fra pivottabell ved hjelp av VBA