Come selezionare la data più recente dalla tabella pivot utilizzando VBA in Microsoft Excel

Anonim

Se stai lavorando su dati di vendita che si aggiornano quotidianamente. Per tenere traccia delle vendite complete nell'ultima data inserita nei dati utilizzando la tabella pivot. In questo articolo impareremo come utilizzare la tabella pivot per selezionare la data più recente nel database utilizzando le macro.

Di seguito è riportato lo snapshot dei dati in nostro possesso:

  • Per trovare automaticamente la nuova data e le vendite, dobbiamo fare pivot
  • Usa il tasto di scelta rapida ALT + N + V

Abbiamo bisogno di seguire i seguenti passaggi:

  • Fare clic sulla scheda Sviluppatore
  • Dal gruppo Codice, seleziona Visual Basic

  • Inserisci il seguente codice nel modulo del foglio di lavoro


Sub LatestDatePivot()

 Dim pfiPivFldItem As PivotItem


 Dim dtmDate As Date


 Con fogli di lavoro ("Foglio1"). Tabelle pivot(1)


 .PivotCache.Aggiorna


 .CancellaTuttiFiltri


 Con .RowRange


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





 Termina con


 Per ogni pfiPivFldItem in .PivotFields(“Date”).PivotItems


 Se pfiPivFldItem.Value = “(vuoto)” Allora


 pfiPivFldItem.Visible = False


 Altro


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


 Finisci se


 PfiPivFldItem successivo


 Termina con


Fine sottotitolo

  • Dopo aver copiato il codice è necessario eseguire la macro utilizzando ALT + F8 & seleziona la macro.
  • Oppure puoi inserire una forma e assegnare la macro; avremo l'ultima data

  • Per testare il codice; se cambiamo la data esistente; otterremo l'output di conseguenza

Per far funzionare questo codice in modo dinamico, tutto ciò che devi fare è seguire i passaggi seguenti:

  • Premi CTRL + F3 per aprire Gestione nomi
  • Nella casella Riferito a, inserisci la formula come
  • =OFFSET(Foglio1!$A$1,,,COUNTA(Foglio1!$A:$A),2)

  • Fare clic sul pulsante ok
  • Ora siamo pronti per utilizzare questo intervallo denominato nella tabella pivot
  • Fare clic sulla tabella pivot
  • Dalla barra multifunzione Analizza > fai clic su Modifica origine dati

  • Premi la scorciatoia F3 per avviare il nome Incolla esistente; seleziona Ultima Data
  • Fare clic due volte sul pulsante ok

  • Per testare possiamo inserire la nuova data
  • Tutto quello che dobbiamo fare è fare clic sulla forma rettangolare per eseguire la macro.

In questo modo possiamo selezionare l'ultima data dalla tabella pivot utilizzando VBA.

Download: come selezionare la data più recente dalla tabella pivot utilizzando VBA