Kako izbrati najnovejši datum iz vrtilne tabele z uporabo VBA v Microsoft Excelu

Anonim

Če delate na podatkih o prodaji, se nenehno posodabljajo. Če želite slediti celotni prodaji na zadnji datum, vnesen v podatke s pomočjo vrtilne tabele. V tem članku se bomo naučili, kako z vrtilno tabelo izbrati najnovejši datum v bazi podatkov z makri.

Sledi posnetek podatkov, ki jih imamo:

  • Za samodejno iskanje novega datuma in prodaje moramo narediti pivot
  • Uporabite bližnjico ALT + N + V

Slediti moramo naslednjim korakom:

  • Kliknite zavihek Razvijalec
  • V skupini Koda izberite Visual Basic

  • V modul delovnega lista vnesite naslednjo kodo


Pod NajnovejšiDatePivot ()

 Zatemni pfiPivFldItem kot vrtilni element


 Zatemni dtmDate kot datum


 Z delovnimi listi (»List1«). Vrtilne tabele (1)


 .PivotCache.Osveži


 .Očisti vse filtre


 Z .RowRange


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





 Končaj s


 Za vsak pfiPivFldItem v .PivotFields (»Datumi«).


 Če je pfiPivFldItem.Value = “(prazno)” Potem


 pfiPivFldItem.Visible = False


 Sicer pa


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


 Konec Če


 Naslednji pfiPivFldItem


 Končaj s


End Sub

  • Po kopiranju kode morate zagnati makro z uporabo ALT + F8 & izberite makro.
  • Lahko pa vstavite obliko in dodelite makro; bomo dobili zadnji datum

  • Preskusiti kodo; če spremenimo obstoječi datum; ustrezno bomo dobili rezultat

Če želite dinamično delovati s to kodo, morate slediti naslednjim korakom:

  • Pritisnite CTRL + F3, da odprete Upravitelja imen
  • V polje Sklicevanje na polje vnesite formulo kot
  • = OFFSET (List1! $ A $ 1 ,,, COUNTA (List1! $ A: $ A), 2)

  • Kliknite gumb V redu
  • Zdaj smo pripravljeni za uporabo tega imenovanega obsega v vrtilni tabeli
  • Kliknite vrtilno tabelo
  • Na traku za analizo> Kliknite Spremeni vir podatkov

  • Pritisnite bližnjico F3, da zaženete obstoječe ime prilepitve; izberite Najnovejši datum
  • Dvakrat kliknite gumb V redu

  • Za preizkus lahko vnesemo nov datum
  • Za zagon makra moramo le klikniti pravokotno obliko.

Na ta način lahko iz vrtljive tabele izberemo najnovejši datum z uporabo VBA.

Prenos-Kako izbrati najnovejši datum iz vrtilne tabele z uporabo VBA