Kuidas valida liigendtabelist viimast kuupäeva, kasutades Microsoft Excelis VBA -d

Kui töötate müügiandmete kallal, mida uuendatakse iga päev. Täieliku müügi jälgimine viimastesse andmetesse sisestatud kuupäevadel pöördetabeli abil. Selles artiklis õpime, kuidas kasutada pöördtabelit, et valida makrosid kasutades andmebaasis uusim kuupäev.

Allpool on ülevaade meie andmetest:

Uue kuupäeva ja müügi automaatseks leidmiseks peame tegema pöörde
Kasutage kiirklahvi ALT + N + V

Peame järgima järgmisi samme:

Klõpsake vahekaarti Arendaja
Valige koodirühmas Visual Basic

Sisestage töölehe moodulis järgmine kood


Sub LatestDatePivot ()
 Dim pfiPivFldItem PivotItem
 Dim dtmDate As Date
 Töölehtedega („Sheet1”). PivotTable -liigendtabelid (1)
 .PivotCache. Värskenda
 .ClearAllFilters
 Mis .RowRange
 dtmDate = Hinda ("Max (IF (IS (ISNUMBER (" & .Aadress (0, 0) & ")," & .Aadress (0, 0) & ",))")


 Lõpeta
 Iga pfiPivFldItem kohta .PivotFields ("Kuupäevad"). PivotItems
 Kui pfiPivFldItem.Value = “(tühi)” Siis
 pfiPivFldItem.Visible = Vale
 Muidu
 pfiPivFldItem.Visible = (Cdate (pfiPivFldItem.Value) = CLng (dtmDate))
 Lõpp Kui
 Järgmine pfiPivFldItem
 Lõpeta
End Sub

Pärast koodi kopeerimist peate makro käivitama, kasutades ALT + F8 & valige makro.
Või võite sisestada kuju ja määrata makro; saame viimase kuupäeva