Πώς να φιλτράρετε δεδομένα από την επιλογή αναπτυσσόμενης λίστας στο Excel;
Στο Excel, οι περισσότεροι από εμάς ενδέχεται να φιλτράρουν δεδομένα χρησιμοποιώντας τη δυνατότητα Φίλτρο. Όμως, έχετε προσπαθήσει ποτέ να φιλτράρετε δεδομένα από την επιλογή της αναπτυσσόμενης λίστας; Για παράδειγμα, όταν επιλέγω ένα στοιχείο από την αναπτυσσόμενη λίστα, θέλω οι αντίστοιχες σειρές να φιλτράρονται όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Αυτό το άρθρο, θα μιλήσω για το πώς να φιλτράρετε δεδομένα χρησιμοποιώντας την αναπτυσσόμενη λίστα σε ένα ή δύο φύλλα εργασίας.
Φιλτράρετε δεδομένα από την επιλογή αναπτυσσόμενης λίστας σε δύο φύλλα εργασίας με κώδικα VBA
Φιλτράρετε δεδομένα από την επιλογή αναπτυσσόμενης λίστας σε ένα φύλλο εργασίας με βοηθητικούς τύπους
Για να φιλτράρετε δεδομένα από την αναπτυσσόμενη λίστα, μπορείτε να δημιουργήσετε μερικές στήλες βοηθού τύπου, κάντε τα παρακάτω βήματα ένα προς ένα:
1. Αρχικά, εισαγάγετε την αναπτυσσόμενη λίστα. Κάντε κλικ σε ένα κελί όπου θέλετε να εισαγάγετε την αναπτυσσόμενη λίστα και, στη συνέχεια, κάντε κλικ στο ημερομηνία > επικύρωση δεδομένων > επικύρωση δεδομένων, δείτε το στιγμιότυπο οθόνης:
2. Στο αναδυόμενο επικύρωση δεδομένων πλαίσιο διαλόγου, κάτω από το ρυθμίσεις καρτέλα, επιλέξτε Λίστα από το Επιτρέψτε αναπτυσσόμενο μενού και, στη συνέχεια, κάντε κλικ 
κουμπί για να επιλέξετε τη λίστα δεδομένων με την οποία θέλετε να δημιουργήσετε την αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:
3. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, η αναπτυσσόμενη λίστα εισάγεται ταυτόχρονα και επιλέξτε ένα στοιχείο από την αναπτυσσόμενη λίστα και, στη συνέχεια, εισαγάγετε αυτόν τον τύπο: = ΣΕΙΡΕΣ ($ A $ 2: A2) (A2 είναι το πρώτο κελί στη στήλη που περιέχει την τιμή της αναπτυσσόμενης λίστας) στο κελί D2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά για να εφαρμόσετε αυτόν τον τύπο, δείτε το στιγμιότυπο οθόνης:
4. Συνεχίστε να εισάγετε αυτόν τον τύπο: = IF (A2 = $ H $ 2, D2, "") στο κελί E2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να συμπληρώσετε αυτόν τον τύπο, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω τύπο:A2 είναι το πρώτο κελί στη στήλη που περιέχει την τιμή της αναπτυσσόμενης λίστας ，H2 είναι το κελί όπου τοποθετείται η αναπτυσσόμενη λίστα, D2 είναι ο πρώτος τύπος στήλης βοηθού.
5. Και μετά πληκτρολογήστε αυτόν τον τύπο: = IFERROR (ΜΙΚΡΟ ($ E $ 2: $ E $ 17, D2), "") στο κελί F2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης προς τα κάτω για να συμπληρώσετε αυτόν τον τύπο, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω τύπο: E2: E17 είναι το δεύτερο βοηθητικό κύτταρο τύπου, D2 είναι το πρώτο κελί στη στήλη του πρώτου τύπου βοηθού.
6. Αφού εισαγάγετε τις στήλες τύπου βοηθού, τότε θα πρέπει να εξάγετε το φιλτραρισμένο αποτέλεσμα σε άλλη τοποθεσία, εφαρμόστε αυτόν τον τύπο: =IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"") στο κελί J2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης από το J2 στο L2 και έχει εξαχθεί η πρώτη εγγραφή των δεδομένων με βάση την αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:
Note: Στον παραπάνω τύπο: Α2: Γ17 είναι τα αρχικά δεδομένα που θέλετε να φιλτράρετε, F2 είναι η τρίτη στήλη τύπου βοηθού, J2 είναι το κελί όπου θέλετε να εξάγετε το αποτέλεσμα φίλτρου.
7. Και μετά συνεχίστε να σύρετε τη λαβή πλήρωσης προς τα κάτω στα κελιά για να εμφανίσετε όλες τις αντίστοιχες φιλτραρισμένες εγγραφές, δείτε το στιγμιότυπο οθόνης:
8. Από τώρα και στο εξής, όταν επιλέγετε ένα στοιχείο από την αναπτυσσόμενη λίστα, όλες οι σειρές που βασίζονται σε αυτήν την επιλογή φιλτράρονται ταυτόχρονα, δείτε το στιγμιότυπο οθόνης:
Φιλτράρετε δεδομένα από την επιλογή αναπτυσσόμενης λίστας σε δύο φύλλα εργασίας με κώδικα VBA
Εάν το κελί της αναπτυσσόμενης λίστας στο Sheet1 και τα φιλτραρισμένα δεδομένα στο Sheet2, όταν επιλέγετε ένα στοιχείο από την αναπτυσσόμενη λίστα, ένα άλλο φύλλο θα φιλτραριστεί. Πώς θα μπορούσατε να ολοκληρώσετε αυτήν την εργασία στο Excel;
Ο ακόλουθος κωδικός VBA μπορεί να σας βοηθήσει, κάντε το εξής:
1. Κάντε δεξί κλικ στην καρτέλα φύλλων που περιέχει το αναπτυσσόμενο κελί λίστας και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο ανοιχτό Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή ενότητα:
Κωδικός VBA: Φιλτράρετε δεδομένα από την επιλογή της αναπτυσσόμενης λίστας σε δύο φύλλα:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Not Intersect(Range("A2"), Target) Is Nothing Then
Application.EnableEvents = False
If Range("A2").Value = "" Then
Worksheets("Sheet2").ShowAllData
Else
Worksheets("Sheet2").Range("A2").AutoFilter 1, Range("A2").Value
End If
Application.EnableEvents = True
End If
End Sub
Note: Στον παραπάνω κωδικό: A2 είναι το κελί που περιέχει την αναπτυσσόμενη λίστα και Sheet2 είναι το φύλλο εργασίας περιέχει τα δεδομένα που θέλετε να φιλτράρετε. Ο αριθμός 1 στο σενάριο: Αυτόματο φίλτρο 1 είναι ο αριθμός στήλης στον οποίο θέλετε να φιλτράρετε. Μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας.
2. Από τώρα και στο εξής, όταν επιλέγετε ένα στοιχείο από την αναπτυσσόμενη λίστα στο Φύλλο1 και τα αντίστοιχα δεδομένα θα φιλτραριστούν στο Φύλλο2, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
