Kā izvēlēties pēdējo datumu no rakurstabulas, izmantojot Microsoft Excel VBA

Anonim

Ja strādājat pie pārdošanas datiem, kas tiek atjaunināti katru dienu. Lai izsekotu visu pārdošanu pēdējā datumā ievadītajā datumā, izmantojot rakurstabulu. Šajā rakstā mēs uzzināsim, kā izmantot rakurstabulu, lai atlasītu jaunāko datumu datubāzē, izmantojot makro.

Tālāk ir sniegts mūsu rīcībā esošo datu momentuzņēmums:

  • Lai automātiski atrastu jauno datumu un pārdošanas apjomu, mums ir jāizveido šarnīrsavienojums
  • Izmantojiet īsinājumtaustiņu ALT + N + V

Mums jāveic šādas darbības:

  • Noklikšķiniet uz cilnes Izstrādātājs
  • Kodu grupā atlasiet Visual Basic

  • Darblapas modulī ievadiet šādu kodu


Sub LatestDatePivot ()

 Dim pfiPivFldItem Kā PivotItem


 Dim dtmDate As Date


 Ar darblapām (“Sheet1”). PivotTable (1)


 .PivotCache. Atsvaidzināt


 .ClearAllFilters


 Ar .RowRange


 dtmDate = Novērtēt (“Maks. (IF (ISNUMBER (“ & .Address (0, 0) & “),” & .Address (0, 0) & “,))”)





 Beigt ar


 Katram pfiPivFldItem .PivotFields (“Datumi”). PivotItems


 Ja pfiPivFldItem.Value = “(tukšs)” Tad


 pfiPivFldItem.Visible = Nepareizi


 Citādi


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


 Beigas Ja


 Nākamais pfiPivFldItem


 Beigt ar


Beigt apakš

  • Pēc koda nokopēšanas makro jāpalaiž, izmantojot ALT + F8 & atlasiet makro.
  • Vai arī varat ievietot formu un piešķirt makro; mēs saņemsim jaunāko datumu

  • Lai pārbaudītu kodu; ja mēs mainām esošo datumu; mēs attiecīgi iegūsim rezultātu

Lai dinamiski strādātu ar šo kodu, viss, kas jums jādara, ir jāveic šādas darbības:

  • Nospiediet CTRL + F3, lai atvērtu nosaukumu pārvaldnieku
  • Lodziņā Atsauces ievadiet formulu kā
  • = OFFSET (1. lapa! $ A $ 1 ,,, COUNTA (1. lapa! $ A: $ A), 2)

  • Noklikšķiniet uz pogas Labi
  • Tagad mēs esam gatavi izmantot šo nosaukto diapazonu rakurstabulā
  • Noklikšķiniet uz rakurstabulas
  • No lentes Analizēt> Noklikšķiniet uz Mainīt datu avotu

  • Nospiediet F3 saīsni, lai palaistu esošo ielīmēšanas nosaukumu; atlasiet LatestDate
  • Divreiz noklikšķiniet uz pogas Labi

  • Lai pārbaudītu, mēs varam ievadīt jauno datumu
  • Viss, kas mums jādara, ir noklikšķināt uz taisnstūra formas, lai palaistu makro.

Tādā veidā mēs varam izvēlēties pēdējo datumu no rakurstabulas, izmantojot VBA.

Lejupielādēt-kā izvēlēties pēdējo datumu no rakurstabulas, izmantojot VBA