Kaip pasirinkti paskutinę datą iš „Pivot“ lentelės naudojant „Microsoft Excel“ VBA

Anonim

Jei dirbate su pardavimo duomenimis, kurie nuolat atnaujinami kiekvieną dieną. Norėdami stebėti visus pardavimus paskutinę datą, įvestą į duomenis, naudodami suvestinę lentelę. Šiame straipsnyje sužinosime, kaip naudojant suvestinę lentelę pasirinkti naujausią datos datą naudojant makrokomandas.

Toliau pateikiamas mūsų turimų duomenų momentinis vaizdas:

  • Norėdami automatiškai rasti naują datą ir išpardavimus, turime atlikti posūkį
  • Naudokite spartųjį klavišą ALT + N + V.

Mums reikia atlikti šiuos veiksmus:

  • Spustelėkite skirtuką Kūrėjas
  • Kodo grupėje pasirinkite „Visual Basic“

  • Į darbalapio modulį įveskite šį kodą


Sub LatestDatePivot ()

 Dim pfiPivFldItem Kaip PivotItem


 Dim dtmDate As Date


 Su darbalapiais („Sheet1“). „PivotTable“ (1)


 .PivotCache. Atnaujinti


 .ClearAllFilters


 Su .RowRange


 dtmDate = Įvertinti („Maks (IF (ISNUMBER („ & .Address (0, 0) & “),“ & .Address (0, 0) & „,))“)





 Pabaiga su


 Kiekvienam „pfiPivFldItem“ .PivotFields („datos“). „PivotItems“


 Jei pfiPivFldItem.Value = “(tuščia)” Tada


 pfiPivFldItem.Visible = Netiesa


 Kitas


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


 Pabaiga Jei


 Kitas pfiPivFldItem


 Pabaiga su


Pabaiga Sub

  • Nukopijavę kodą, turite paleisti makrokomandą naudodami ALT + F8 ir pasirinkite makrokomandą.
  • Arba galite įterpti figūrą ir priskirti makrokomandą; gausime naujausią datą

  • Norėdami patikrinti kodą; jei pakeisime esamą datą; atitinkamai gausime išvestį

Norėdami dinamiškai dirbti su šiuo kodu, jums tereikia atlikti šiuos veiksmus:

  • Paspauskite CTRL + F3, kad atidarytumėte vardų tvarkytuvę
  • Laukelyje Nurodo įveskite formulę kaip
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Spustelėkite mygtuką Gerai
  • Dabar esame pasirengę naudoti šį pavadintą diapazoną „Pivot“ lentelėje
  • Spustelėkite suvestinę lentelę
  • Iš analizės juostelės> Spustelėkite Keisti duomenų šaltinį

  • Paspauskite F3 spartųjį klavišą, kad paleistumėte esamą įklijavimo pavadinimą; pasirinkite „LatestDate“
  • Du kartus spustelėkite mygtuką Gerai

  • Norėdami patikrinti, galime įvesti naują datą
  • Viskas, ką mums reikia padaryti, tai spustelėti stačiakampę formą, kad paleistume makrokomandą.

Tokiu būdu mes galime pasirinkti naujausią datą iš suvestinės lentelės naudodami VBA.

Atsisiųsti-kaip pasirinkti paskutinę datą iš „Pivot Table“ naudojant VBA