Како изабрати најновији датум из изведене табеле помоћу ВБА у Мицрософт Екцелу

Anonim

Ако радите на подацима о продаји, који се стално ажурирају. За праћење комплетне продаје на најновији датум унесен у податке помоћу изведене табеле. У овом чланку ћемо научити како да помоћу изведене табеле изаберете најновији датум у бази података помоћу макроа.

Следи снимак података које имамо:

  • Да бисмо аутоматски пронашли нови датум и продају, морамо направити заокрет
  • Користите пречицу АЛТ + Н + В

Морамо да следимо следеће кораке:

  • Кликните на картицу Девелопер
  • Из групе кодова изаберите Висуал Басиц

  • Унесите следећи код у модул радног листа


Под НајновијиДатеПивот ()

 Затамните пфиПивФлдИтем као заокретну ставку


 Дим дтмДате Ас Дате


 Са радним листовима („Лист 1“). Заокретне табеле (1)


 .ПивотЦацхе.Рефресх


 .ЦлеарАллФилтерс


 Витх .РовРанге


 дтмДате = Евалуате ("Мак (ИФ (ИСНУМБЕР (" & .Аддресс (0, 0) & ")," & .Аддресс (0, 0) & ",))")





 Завршити


 За сваки пфиПивФлдИтем у .ПивотФиелдс („Датуми“).


 Ако је пфиПивФлдИтем.Валуе = “(празно)” Затим


 пфиПивФлдИтем.Висибле = Нетачно


 Иначе


 пфиПивФлдИтем.Висибле = (Цдате (пфиПивФлдИтем.Валуе) = ЦЛнг (дтмДате))


 Крај Ако


 Следећи пфиПивФлдИтем


 Завршити


Енд Суб

  • Након копирања кода морате покренути макро помоћу АЛТ + Ф8 & изаберите макро.
  • Или можете уметнути облик и доделити макро; добићемо најновији датум

  • За тестирање кода; ако променимо постојећи датум; у складу с тим ћемо добити излаз

Да бисте динамички радили овај код, све што требате учинити је слиједити кораке у наставку:

  • Притисните ЦТРЛ + Ф3 да бисте отворили Управитељ имена
  • У поље Односи се на поље унесите формулу као
  • = ОФФСЕТ (Лист1! $ А $ 1 ,,, ЦОУНТА (Лист1! $ А: $ А), 2)

  • Кликните на дугме у реду
  • Сада смо спремни за коришћење овог распона Намед у изведеној табели
  • Кликните на изведену табелу
  • На траци за анализу> Кликните на Промени извор података

  • Притисните пречицу Ф3 да бисте покренули постојећи назив залепљивања; изаберите Најновији датум
  • Двапут кликните на дугме у реду

  • За тестирање можемо унијети нови датум
  • Све што треба да урадимо је да кликнемо на правоугаони облик да бисмо покренули макро.

На овај начин можемо изабрати најновији датум из изведене табеле помоћу ВБА.

Преузимање-Како одабрати најновији датум из изведене табеле помоћу ВБА