Sådan vælges den seneste dato fra pivottabellen ved hjælp af VBA i Microsoft Excel

Anonim

Hvis du arbejder med salgsdata, der bliver ved med at opdatere dagligt. For at spore det fulde salg på den seneste dato, der er angivet i dataene ved hjælp af pivottabellen. I denne artikel lærer vi, hvordan du bruger pivottabel til at vælge den nyeste dato i databasen ved hjælp af makroer.

Følgende er et øjebliksbillede af data, vi har:

  • For automatisk at finde den nye dato og salg skal vi dreje
  • Brug genvejstasten ALT + N + V

Vi skal følge nedenstående trin:

  • Klik på fanen Udvikler
  • Vælg Visual Basic i kodegruppen

  • Indtast følgende kode i regnearksmodulet


Sub SenesteDatePivot ()

 Dim pfiPivFldItem som PivotItem


 Dim dtmDate As Date


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


 .PivotCache.Opdater


 .ClearAllFilters


 Med .RowRange


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





 Afslut med


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


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


 pfiPivFldItem.Visible = Falsk


 Andet


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


 Afslut Hvis


 Næste pfiPivFldItem


 Afslut med


Afslut Sub

  • Efter kopiering af koden skal du køre makroen ved hjælp af ALT + F8 & vælg makroen.
  • Eller du kan indsætte en figur og tildele makroen; vi får den seneste dato

  • For at teste koden; hvis vi ændrer den eksisterende dato vi får output i overensstemmelse hermed

For at arbejde denne kode dynamisk er alt du skal gøre at følge nedenstående trin:

  • Tryk på CTRL + F3 for at åbne Name Manager
  • Indtast formlen som i referencer til boksen
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Klik på knappen ok
  • Nu er vi klar til at bruge dette navngivne område i pivottabellen
  • Klik på pivottabellen
  • Fra Analyser bånd> Klik på Skift datakilde

  • Tryk på F3 genvej for at starte det eksisterende Indsæt navn; vælg Seneste dato
  • Klik to gange på ok -knappen

  • For at teste kan vi indtaste den nye dato
  • Alt vi skal gøre er at klikke på den rektangulære form for at køre makroen.

På denne måde kan vi vælge den seneste dato fra pivottabellen ved hjælp af VBA.

Download-Sådan vælges den seneste dato fra pivottabellen ved hjælp af VBA