Så här väljer du senaste datum från pivottabellen med VBA i Microsoft Excel

Anonim

Om du arbetar med försäljningsdata som uppdateras dagligen. För att spåra hela försäljningen på det senaste datumet som anges i data med hjälp av pivottabellen. I den här artikeln lär vi oss hur du använder pivottabell för att välja det senaste datumet i databasen med hjälp av makron.

Följande är ögonblicksbilden av data vi har:

  • För att automatiskt hitta det nya datumet och försäljningen måste vi svänga
  • Använd snabbtangenten ALT + N + V

Vi måste följa stegen nedan:

  • Klicka på fliken Utvecklare
  • Välj Visual Basic i kodgruppen

  • Ange följande kod i kalkylbladsmodulen


Sub SenasteDatePivot ()

 Dim pfiPivFldItem som PivotItem


 Dim dtmDate As Date


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


 .PivotCache.Refresh


 .ClearAllFilters


 Med .RowRange


 dtmDate = Utvärdera ("Max (OM (ISNUMBER (" & .Adress (0, 0) & ")," & .Adress (0, 0) & ",))")





 Sluta med


 För varje pfiPivFldItem i .PivotFields (“datum”). PivotItems


 If pfiPivFldItem.Value = “(blank)” Då


 pfiPivFldItem.Visible = Falskt


 Annan


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


 Avsluta om


 Nästa pfiPivFldItem


 Sluta med


Avsluta Sub

  • Efter att du har kopierat koden måste du köra makrot med ALT + F8 & välj makrot.
  • Eller så kan du infoga en form & tilldela makrot; vi får det senaste datumet

  • För att testa koden; om vi ändrar det befintliga datumet; vi kommer att få ut resultatet därefter

Allt du behöver göra för att arbeta med denna kod är att följa stegen nedan:

  • Tryck på CTRL + F3 för att öppna Namnhanteraren
  • I rutan Hänvisar till anger du formeln som
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Klicka på ok -knappen
  • Nu är vi redo att använda detta Named -intervall i pivottabellen
  • Klicka på pivottabellen
  • Från Analysera band> Klicka på Ändra datakälla

  • Tryck på F3 -genvägen för att starta det befintliga Klistra in -namnet; välj Senaste datum
  • Klicka på ok -knappen två gånger

  • För att testa kan vi ange det nya datumet
  • Allt vi behöver göra är att klicka på den rektangulära formen för att köra makrot.

På detta sätt kan vi välja senaste datum från pivottabellen med VBA.

Ladda ner-Hur man väljer senaste datum från pivottabellen med VBA