Kako odabrati najnoviji datum iz zaokretne tablice pomoću VBA u programu Microsoft Excel

Anonim

Ako radite na podacima o prodaji koji se stalno ažuriraju. Za praćenje potpune prodaje na najnoviji datum unesene u podatke pomoću zaokretne tablice. U ovom ćemo članku naučiti kako pomoću zaokretne tablice odabrati najnoviji datum u bazi podataka pomoću makronaredbi.

Slijedi snimak podataka koje imamo:

  • Da bismo automatski pronašli novi datum i prodaju, moramo napraviti zaokret
  • Upotrijebite tipku prečaca ALT + N + V

Moramo slijediti korake u nastavku:

  • Kliknite karticu Developer
  • Iz grupe kodova odaberite Visual Basic

  • Unesite sljedeći kôd u modul radnog lista


Pod NajnovijiDatePivot ()

 Zatamnite pfiPivFldItem kao zaokretnu stavku


 Zatamni dtmDate kao datum


 S radnim listovima ("List1"). Zaokretne tablice (1)


 .PivotCache.Osvježi


 .Očisti sve filtere


 S .RowRange


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





 Završi s


 Za svaku stavku pfiPivFldItem u .PivotFields ("Datumi").


 Ako je pfiPivFldItem.Value = “(prazno)” Zatim


 pfiPivFldItem.Visible = Netačno


 Drugo


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


 Završi ako


 Sljedeća pfiPivFldItem


 Završi s


Kraj podm

  • Nakon kopiranja koda morate pokrenuti makro pomoću ALT + F8 & odaberite makronaredbu.
  • Ili možete umetnuti oblik i dodijeliti makronaredbu; dobit ćemo najnoviji datum

  • Za testiranje koda; ako promijenimo postojeći datum; prema tome ćemo dobiti izlaz

Za dinamički rad s ovim kodom sve što trebate učiniti je slijediti korake u nastavku:

  • Pritisnite CTRL + F3 da biste otvorili Upravitelj imena
  • U okvir Odnosi se na okvir unesite formulu kao
  • = OFFSET (List1! $ A $ 1 ,,, COUNTA (List1! $ A: $ A), 2)

  • Pritisnite gumb u redu
  • Sada smo spremni za korištenje ovog raspona Named u zaokretnoj tablici
  • Kliknite na zaokretnu tablicu
  • Na vrpci za analizu> Kliknite Promijeni izvor podataka

  • Pritisnite prečac F3 za pokretanje postojećeg imena zalijepljenja; odaberite Najnoviji datum
  • Dvaput kliknite na dugme u redu

  • Za testiranje možemo unijeti novi datum
  • Sve što trebamo učiniti je kliknuti na pravokutni oblik za pokretanje makronaredbe.

Na ovaj način možemo odabrati najnoviji datum iz zaokretne tablice pomoću VBA.

Preuzimanje-Kako odabrati najnoviji datum iz zaokretne tablice pomoću VBA