Jak wybrać najnowszą datę z tabeli przestawnej za pomocą VBA w programie Microsoft Excel?

Jeśli pracujesz na danych sprzedaży, które są aktualizowane codziennie. Aby śledzić pełną sprzedaż w ostatnim terminie wprowadzonym do danych za pomocą tabeli przestawnej. W tym artykule dowiemy się, jak za pomocą tabeli przestawnej wybrać najnowszą datę w bazie danych za pomocą makr.

Poniżej znajduje się migawka danych, które posiadamy:

Aby automatycznie znaleźć nowy termin i sprzedaż, musimy dokonać obrotu
Użyj klawisza skrótu ALT + N + V

Musimy wykonać poniższe kroki:

Kliknij kartę Deweloper
Z grupy Kod wybierz Visual Basic

Wprowadź następujący kod w module arkusza roboczego


Sub Ostatnia dataPivot()
 Przyciemnij element pfiPivFld jako element obrotowy
 Dim dtmDate As Date
 Z arkuszami roboczymi („Arkusz1”). Tabele przestawne(1)
 .PivotCache.Refresh
 .Wyczyść wszystkie filtry
 Z .RowRange
 dtmDate = Oceń("Max(JEŻELI(CZY.LICZBA("&.Adres(0,0)&"),"&.Adres(0,0)&",))")


 Kończyć z
 Dla każdego elementu pfiPivFldItem w .PivotFields („Daty”).
 Jeśli pfiPivFldItem.Value = „(puste)” Wtedy
 pfiPivFldItem.Visible = Fałsz
 W przeciwnym razie
 pfiPivFldItem.Visible = (Cdate(pfiPivFldItem.Value) = CLng(dtmDate))
 Zakończ, jeśli
 Następny element pfiPivFld
 Kończyć z
Napis końcowy

Po skopiowaniu kodu należy uruchomić makro za pomocą ALT + F8 i wybierz makro.
Możesz też wstawić kształt i przypisać makro; otrzymamy najnowszą datę