Как да изберете най -новата дата от обобщена таблица с помощта на VBA в Microsoft Excel

Anonim

Ако работите върху данни за продажбите, които се актуализират ежедневно. За проследяване на пълните продажби на последната дата, въведена в данните с помощта на обобщена таблица. В тази статия ще научим как да използваме обобщена таблица за избор на най -новата дата в базата данни с помощта на макроси.

Следва моментната снимка на данните, с които разполагаме:

  • За да намерим автоматично новата дата и продажби, трябва да направим пивот
  • Използвайте клавишната комбинация ALT + N + V

Трябва да изпълним следните стъпки:

  • Кликнете върху раздела Разработчик
  • От групата Кодове изберете Visual Basic

  • Въведете следния код в модула на работния лист


Sub LatestDatePivot ()

 Затъмнете pfiPivFldItem като PivotItem


 Dim dtmDate As Date


 С работни листове („Sheet1“). Обобщени таблици (1)


 .PivotCache.Refresh


 .ClearAllFilters


 С .RowRange


 dtmDate = Оценете („Макс (IF (ISNUMBER („ &. Адрес (0, 0) & „),“ &. Адрес (0, 0) & „,)))“)





 Край с


 За всеки pfiPivFldItem в .PivotFields („Дати“). PivotItems


 Ако pfiPivFldItem.Value = “(празно)” Тогава


 pfiPivFldItem.Visible = False


 Иначе


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


 Край Ако


 Следващ pfiPivFldItem


 Край с


End Sub

  • След като копирате кода, трябва да стартирате макроса, като използвате ALT + F8 & изберете макроса.
  • Или можете да вмъкнете форма и да зададете макроса; ще получим последната дата

  • За да тествате кода; ако променим съществуващата дата; ще получим съответно продукция

За да работите динамично с този код, всичко, което трябва да направите, е да следвате стъпките по -долу:

  • Натиснете CTRL + F3, за да отворите Мениджър на имена
  • В полето Позовава се въведете формулата като
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Щракнете върху бутона OK
  • Сега сме готови да използваме този Намерен диапазон в обобщена таблица
  • Кликнете върху обобщената таблица
  • От лентата за анализ> Щракнете върху Промяна на източника на данни

  • Натиснете клавишната комбинация F3, за да стартирате съществуващото име за поставяне; изберете LatestDate
  • Щракнете два пъти върху бутона OK

  • За да тестваме, можем да въведем новата дата
  • Всичко, което трябва да направим, е да кликнете върху правоъгълната форма, за да стартирате макроса.

По този начин можем да изберем най -новата дата от обобщена таблица, използвайки VBA.

Изтегляне-Как да изберете най-новата дата от обобщена таблица с помощта на VBA