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

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