Viimeisimmän päivämäärän valitseminen pivot -taulukosta Microsoft Excelin VBA: n avulla

Jos käsittelet myyntitietoja, jotka päivittyvät päivittäin. Koko myynnin seuraaminen viimeisimpään tietoihin syötettyyn päivämäärään pivot -taulukon avulla. Tässä artikkelissa opimme käyttämään pivot -taulukkoa uusimman päivämäärän valitsemiseksi tietokannassa makrojen avulla.

Seuraavassa on katsaus tietoihimme:

Jotta voimme löytää automaattisesti uuden päivämäärän ja myynnin, meidän on tehtävä pivot
Käytä pikanäppäintä ALT + N + V

Meidän on noudatettava seuraavia vaiheita:

Napsauta Kehittäjä -välilehteä
Valitse koodiryhmästä Visual Basic

Kirjoita seuraava koodi laskentataulukkomoduuliin


Sub LatestDatePivot ()
 Dim pfiPivFldItem Kuten PivotItem
 Dim dtmDate as Date
 Laskentataulukoiden kanssa ("Sheet1"). Pivot -taulukot (1)
 .PivotCache.Fresh
 .ClearAllFilters
 .RowRange
 dtmDate = Arvioi ("Max (JOS (ISNUMBER (" & .Osoite (0, 0) & ")," & .Osoite (0, 0) & ",))")


 Lopeta
 Jokaiselle pfiPivFldItem -tiedostolle .PivotFields ("Päivämäärät"). PivotItems
 Jos pfiPivFldItem.Value = “(tyhjä)” Sitten
 pfiPivFldItem.Visible = Väärä
 Muu
 pfiPivFldItem.Visible = (Cdate (pfiPivFldItem.Value) = CLng (dtmDate))
 Loppu Jos
 Seuraava pfiPivFldItem
 Lopeta
End Sub

Kun olet kopioinut koodin, sinun on suoritettava makro käyttämällä ALT + F8 & valitse makro.
Tai voit lisätä muodon ja määrittää makron; saamme uusimman päivämäärän