Cum să selectați ultima dată din tabelul pivot utilizând VBA în Microsoft Excel

Anonim

Dacă lucrați la date de vânzări care continuă să fie actualizate zilnic. Pentru a urmări vânzările complete la ultima dată introdusă în date folosind tabelul pivot. În acest articol vom învăța cum să folosim tabelul pivot pentru a selecta cea mai nouă dată din baza de date folosind macrocomenzi.

Urmează instantaneul datelor pe care le avem:

  • Pentru a găsi automat data și vânzările noi, trebuie să facem pivot
  • Utilizați tasta de comandă rapidă ALT + N + V

Trebuie să urmăm pașii de mai jos:

  • Faceți clic pe fila Dezvoltator
  • Din grupul de coduri, selectați Visual Basic

  • Introduceți următorul cod în modulul de foaie de lucru


Sub LatestDatePivot ()

 Dim pfiPivFldItem Ca element pivot


 Dim dtmDate as Date


 Cu foi de lucru („Sheet1”). PivotTables (1)


 .PivotCache.Refresh


 .ClearAllFilters


 Cu .RowRange


 dtmDate = Evaluare („Max (IF (ISNUMBER (“ & .Address (0, 0) & “),” & .Address (0, 0) & “,))”)





 Se termina cu


 Pentru fiecare pfiPivFldItem În .PivotFields („Date”). PivotItems


 Dacă pfiPivFldItem.Value = „(gol)” Atunci


 pfiPivFldItem.Visible = False


 Altfel


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


 End If


 Următorul pfiPivFldItem


 Se termina cu


Sfârșitul Sub

  • După copierea codului, trebuie să rulați macro-ul folosind ALT + F8 & selectați macrocomanda.
  • Sau puteți introduce o formă și atribui macro-ul; vom primi cea mai recentă dată

  • Pentru a testa codul; dacă schimbăm data existentă; vom obține rezultatul în consecință

Pentru a lucra acest cod dinamic tot ce trebuie să faceți este să urmați pașii de mai jos:

  • Apăsați CTRL + F3 pentru a deschide Managerul de nume
  • În caseta Se referă la introduceți formula ca
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Faceți clic pe butonul OK
  • Acum suntem gata să folosim acest interval Named în tabelul pivot
  • Faceți clic pe tabelul pivot
  • Din panglica Analize> Faceți clic pe Change Data Source

  • Apăsați comanda rapidă F3 pentru a lansa numele de lipire existent; selectați LatestDate
  • Faceți clic pe butonul OK de două ori

  • Pentru a testa putem introduce noua dată
  • Tot ce trebuie să facem este să faceți clic pe forma dreptunghiulară pentru a rula macro-ul.

În acest fel putem selecta cea mai recentă dată din tabelul pivot folosind VBA.

Descărcare-Cum să selectați ultima dată din tabelul pivot utilizând VBA