Πώς να επιλέξετε την τελευταία ημερομηνία από τον Συγκεντρωτικό πίνακα χρησιμοποιώντας το VBA στο Microsoft Excel

Anonim

Εάν εργάζεστε σε δεδομένα πωλήσεων που συνεχίζουν να ενημερώνονται καθημερινά. Για να παρακολουθείτε τις πλήρεις πωλήσεις την τελευταία ημερομηνία που καταχωρήσατε στα δεδομένα χρησιμοποιώντας τον συγκεντρωτικό πίνακα. Σε αυτό το άρθρο θα μάθουμε πώς να χρησιμοποιούμε τον συγκεντρωτικό πίνακα για να επιλέξουμε την πιο πρόσφατη ημερομηνία στη βάση δεδομένων χρησιμοποιώντας μακροεντολές.

Ακολουθεί το στιγμιότυπο των δεδομένων που έχουμε:

  • Για να βρούμε αυτόματα τη νέα ημερομηνία & πωλήσεις, πρέπει να κάνουμε pivot
  • Χρησιμοποιήστε το πλήκτρο συντόμευσης ALT + N + V

Πρέπει να ακολουθήσουμε τα παρακάτω βήματα:

  • Κάντε κλικ στην καρτέλα Προγραμματιστής
  • Από την ομάδα κωδικών, επιλέξτε Visual Basic

  • Εισαγάγετε τον ακόλουθο κώδικα στη μονάδα φύλλου εργασίας


Sub LatestDatePivot ()

 Dim pfiPivFldItem As PivotItem


 Dim dtmΗμερομηνία ως ημερομηνία


 Με φύλλα εργασίας ("Sheet1"). Συγκεντρωτικοί πίνακες (1)


 .PivotCache.Ανανέωση


 .ClearAllFilters


 Με .RowRange


 dtmDate = Αξιολόγηση ("Max (IF (ISNUMBER (" & .Address (0, 0) & ")," &. Address (0, 0) & ",))")





 Τέλος με


 Για κάθε pfiPivFldItem σε .PivotFields ("Ημερομηνίες"). Συγκεντρωτικά στοιχεία


 Εάν pfiPivFldItem.Value = "(κενό)" Τότε


 pfiPivFldItem.Visible = Λάθος


 Αλλού


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


 Τέλος εαν


 Επόμενο pfiPivFldItem


 Τέλος με


Τέλος υπο

  • Αφού αντιγράψετε τον κώδικα, πρέπει να εκτελέσετε τη μακροεντολή χρησιμοποιώντας ALT + F8 & επιλέξτε τη μακροεντολή.
  • Or μπορείτε να εισαγάγετε ένα σχήμα και να εκχωρήσετε τη μακροεντολή. θα λάβουμε την τελευταία ημερομηνία

  • Για να δοκιμάσετε τον κώδικα. αν αλλάξουμε την υπάρχουσα ημερομηνία? θα πάρουμε την παραγωγή ανάλογα

Για να δουλέψετε δυναμικά αυτόν τον κώδικα το μόνο που χρειάζεται να κάνετε είναι να ακολουθήσετε τα παρακάτω βήματα:

  • Πατήστε CTRL + F3 για να ανοίξετε το Name Manager
  • Στο πλαίσιο Αναφορές σε, εισαγάγετε τον τύπο ως
  • = OFFSET (Sheet1! $ A $ 1 ,,, COUNTA (Sheet1! $ A: $ A), 2)

  • Κάντε κλικ στο κουμπί ok
  • Τώρα είμαστε έτοιμοι να χρησιμοποιήσουμε αυτήν την περιοχή με όνομα στο Συγκεντρωτικό πίνακα
  • Κάντε κλικ στον περιστροφικό πίνακα
  • Από την ανάλυση κορδέλας> Κάντε κλικ στην Αλλαγή προέλευσης δεδομένων

  • Πατήστε τη συντόμευση F3 για να ξεκινήσετε το υπάρχον όνομα επικόλλησης. επιλέξτε LatestDate
  • Κάντε κλικ στο κουμπί ok δύο φορές

  • Για δοκιμή μπορούμε να εισαγάγουμε τη νέα ημερομηνία
  • Το μόνο που χρειάζεται να κάνουμε είναι να κάνουμε κλικ στο ορθογώνιο σχήμα για να τρέξουμε τη μακροεντολή.

Με αυτόν τον τρόπο μπορούμε να επιλέξουμε την πιο πρόσφατη ημερομηνία από τον περιστρεφόμενο πίνακα χρησιμοποιώντας το VBA.

Λήψη-Πώς να επιλέξετε την τελευταία ημερομηνία από τον Συγκεντρωτικό πίνακα χρησιμοποιώντας το VBA