Ako vybrať najnovší dátum z kontingenčnej tabuľky pomocou VBA v programe Microsoft Excel

Anonim

Ak pracujete na údajoch o predaji, ktoré sa denne aktualizujú. Sledovať úplné predaje k poslednému dátumu zadanému v údajoch pomocou kontingenčnej tabuľky. V tomto článku sa naučíme, ako pomocou kontingenčnej tabuľky vybrať najnovší dátum v databáze pomocou makier.

Nasleduje prehľad údajov, ktoré máme:

  • Aby sme automaticky našli nový dátum a predaj, musíme urobiť pivot
  • Použite klávesovú skratku ALT + N + V

Musíme postupovať podľa nasledujúcich krokov:

  • Kliknite na kartu Vývojár
  • V skupine Kód vyberte položku Visual Basic

  • Do modulu pracovného hárka zadajte nasledujúci kód


Sub LatestDatePivot ()

 Dim pfiPivFldItem as PivotItem


 Dim dtmDate As Date


 S pracovnými listami („List1“). Kontingenčné tabuľky (1)


 .PivotCache.Refresh


 .ClearAllFilters


 S .RowRange


 dtmDate = Vyhodnotiť („Max (IF (ISNUMBER (“ & .Address (0, 0) & „),“ & .Address (0, 0) & „,))“)





 Ukončiť s


 Pre každý pfiPivFldItem v .PivotFields („dátumy“).


 Ak pfiPivFldItem.Value = „(prázdne)“ Potom


 pfiPivFldItem.Visible = False


 Inak


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


 Koniec Ak


 Ďalej pfiPivFldItem


 Ukončiť s


Koniec pod

  • Po skopírovaní kódu musíte makro spustiť pomocou ALT + F8 & vyberte makro.
  • Alebo môžete vložiť tvar a priradiť makro; zistíme najnovší dátum

  • Na testovanie kódu; ak zmeníme existujúci dátum; podľa toho získame výstup

Na dynamickú prácu s týmto kódom stačí vykonať nasledujúce kroky:

  • Stlačením CTRL + F3 otvorte Správcu mien
  • Do poľa Odkazuje na zadajte vzorec ako
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Kliknite na tlačidlo ok
  • Teraz sme pripravení použiť tento pomenovaný rozsah v kontingenčnej tabuľke
  • Kliknite na kontingenčnú tabuľku
  • Na páse s nástrojmi Analyzovať> Kliknite na položku Zmeniť zdroj údajov

  • Stlačením klávesovej skratky F3 spustíte existujúci názov prilepenia; vyberte LatestDate
  • Dvakrát kliknite na tlačidlo ok

  • Na testovanie môžeme zadať nový dátum
  • Na spustenie makra stačí kliknúť na obdĺžnikový tvar.

Týmto spôsobom môžeme vybrať najnovší dátum z kontingenčnej tabuľky pomocou VBA.

Stiahnutie-Ako vybrať najnovší dátum z kontingenčnej tabuľky pomocou VBA