Τρόπος αυτόματης ανανέωσης φιλτραρισμένων δεδομένων στο Excel κατά την ενημέρωσή του

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

Θα πρέπει να ενεργοποιήσετε τις μακροεντολές και να αποθηκεύσετε το αρχείο Excel ως αρχείο με δυνατότητα μακροεντολών, .XLSM, για να χρησιμοποιήσετε τον κώδικα. Για να αποθηκεύσετε το αρχείο ως αρχείο με δυνατότητα μακροεντολής, μεταβείτε στην επιλογή Αρχείο> Αποθήκευση ως και επιλέξτε Excel Macro Enabled Workbook από το πλαίσιο διαλόγου "Αποθήκευση ως".

Στη συνέχεια, επιλέξτε το φύλλο στο οποίο έχετε εφαρμόσει φίλτρα. Κάντε δεξί κλικ και επιλέξτε "Προβολή κώδικα" από το μενού περιβάλλοντος.

Θα ανοίξει ένα παράθυρο της Microsoft Visual Basic με το τρέχον φύλλο Excel. Επικολλήστε τον ακόλουθο κώδικα στο παράθυρο κώδικα.

Private Sub Worksheet_Change (Στόχος ByVal ως εύρος) Εάν εγώ. FilterMode = True τότε. Με εφαρμογή. .EnableEvents = Λάθος. .ScreenUpdating = Λάθος. Τερματισμός με το ActiveWorkbook.. Προσαρμοσμένες προβολές. Προσθήκη ViewName: = "Mine", RowColSettings: = True. Μου. AutoFilterMode = Λάθος. .CustomViews ("Mine"). Εμφάνιση. .CustomViews ("Mine"). Διαγραφή. Τερματισμός με. Με εφαρμογή. .EnableEvents = True. .ScreenUpdating = True. Τερματισμός με. End if End Sub

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

Μόλις προστεθεί ο κώδικας, μπορείτε να ενημερώσετε οποιοδήποτε κελί σε μια φιλτραρισμένη στήλη και θα ανανεώσει αυτόματα τα φιλτραρισμένα δεδομένα σύμφωνα με τις συνθήκες που έχετε ορίσει. Αυτός ο κωδικός γράφτηκε από τον χρήστη Stack Exchange Sorin.