Jak vybrat nejnovější datum z kontingenční tabulky pomocí VBA v aplikaci Microsoft Excel

Anonim

Pokud pracujete na prodejních datech, která se neustále aktualizují každý den. Chcete -li sledovat úplné prodeje k poslednímu datu zadanému v datech pomocí kontingenční tabulky. V tomto článku se naučíme, jak pomocí kontingenční tabulky vybrat nejnovější datum v databázi pomocí maker.

Následuje snímek dat, která máme:

  • Abychom automaticky našli nové datum a prodeje, musíme provést pivot
  • Použijte klávesovou zkratku ALT + N + V

Musíme postupovat podle následujících kroků:

  • Klikněte na kartu Vývojář
  • Ze skupiny kódů vyberte Visual Basic

  • Do modulu listu zadejte následující kód


Sub LatestDatePivot ()

 Dim pfiPivFldItem as PivotItem


 Dim dtmDate As Date


 S pracovními listy („List1“). Kontingenční tabulky (1)


 .PivotCache.Refresh


 .ClearAllFilters


 S .RowRange


 dtmDate = Vyhodnocení („Max (IF (ISNUMBER (“ & .Address (0, 0) & “),” & .Address (0, 0) & “,))”)


 Konec s





 Pro každý pfiPivFldItem v .PivotFields („data“).


 Pokud pfiPivFldItem.Value = „(prázdné)“ Pak


 pfiPivFldItem.Visible = False


 Jiný


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


 Konec If


 Další pfiPivFldItem


 Konec s


End Sub

  • Po zkopírování kódu potřebujete spustit makro pomocí ALT + F8 & vyberte makro.
  • Nebo můžete vložit tvar a přiřadit makro; zjistíme nejnovější datum

  • Testovat kód; pokud změníme stávající datum; podle toho získáme výstup

Chcete -li pracovat s tímto kódem dynamicky, stačí provést následující kroky:

  • Stisknutím CTRL + F3 otevřete Správce jmen
  • Do pole Odkazuje na zadejte vzorec jako
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Klikněte na tlačítko ok
  • Nyní jsme připraveni použít tento pojmenovaný rozsah v kontingenční tabulce
  • Klikněte na kontingenční tabulku
  • Na pásu karet Analyzovat> Klikněte na Změnit zdroj dat

  • Stisknutím klávesové zkratky F3 spustíte stávající Vložit název; vyberte LatestDate
  • Dvakrát klikněte na tlačítko ok

  • Pro testování můžeme zadat nové datum
  • Jediné, co musíme udělat, je kliknout na obdélníkový tvar pro spuštění makra.

Tímto způsobem můžeme vybrat nejnovější datum z kontingenční tabulky pomocí VBA.

Stáhnout-Jak vybrat nejnovější datum z kontingenční tabulky pomocí VBA