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
