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

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