Se stai lavorando su dati di vendita che vengono aggiornati 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 è riportata l’istantanea dei dati in nostro possesso:

image 1

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

image 2

Dobbiamo seguire i seguenti passaggi:

Fare clic sulla scheda Sviluppatore Dal gruppo Codice, selezionare Visual Basic

image 3

  • Inserisci il seguente codice nel modulo del foglio di lavoro

Sub LatestDatePivot()

Dim pfiPivFldItem As PivotItem

Dim dtmDate As Date

With Worksheets(“Sheet1”).PivotTables(1)

.PivotCache.Refresh

.ClearAllFilters

With .RowRange

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

End With

For Each pfiPivFldItem In .PivotFields(“Dates”).PivotItems

If pfiPivFldItem.Value = “(blank)” Then

pfiPivFldItem.Visible = False

Else

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

End If

Next pfiPivFldItem

End With

End Sub

image 4

Dopo aver copiato il codice, è necessario eseguire la macro utilizzando ALT + F8 * e selezionare la macro.

  • Oppure puoi inserire una forma e assegnare la macro; otterremo l’ultima data

image 5

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

image 6

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

Premere CTRL + F3 per aprire Gestione nomi In Si riferisce alla casella immettere la formula come

* = OFFSET (Foglio1! $ A $ 1 ,,, COUNTA (Foglio1! $ A: $ A), 2)

image 7

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> Fare clic su Cambia origine dati

image 8

Premere la scorciatoia F3 per avviare il nome Incolla esistente; selezionare LatestDate Fare clic due volte sul pulsante ok