Πώς να αποκρύψετε γραμμές μέσω VBA εάν ένα κελί έχει ένα συγκεκριμένο περιεχόμενο
Θέλετε να αποκρύψετε αυτόματα όλες τις γραμμές με ένα συγκεκριμένο περιεχόμενο χρησιμοποιώντας μια μακροεντολή; Φανταστείτε ότι θέλετε να αποκρύψετε όλες τις γραμμές εάν το κείμενο "απόκρυψη" εμφανίζεται σε οποιοδήποτε κελί της αντίστοιχης γραμμής. Αυτή μπορεί να είναι μια χρήσιμη εφαρμογή για τον καθαρισμό δεδομένων. Ρίξτε μια ματιά στην αρχική κατάσταση στον παρακάτω πίνακα:
Σε αυτόν τον πίνακα, θέλουμε να αποκρύψουμε όλες τις γραμμές που περιέχουν κελιά που περιέχουν μηδέν. Χρησιμοποιήστε την ακόλουθη μακροεντολή:
Απόκρυψη συγκεκριμένων γραμμών ()
Dim Cell As Range
Για κάθε κελί στο ActiveSheet.UsedRange
Αν Cell.Value = 0 And Rows (Cell.Row). Hidden = False _
Στη συνέχεια, Rows (cell.Row). Hidden = True
Επόμενο κελί
Τέλος υπο
Εάν ξεκινήσετε τη μακροεντολή με, ορισμένες γραμμές θα είναι εντελώς κρυμμένες, όπως φαίνεται στο παρακάτω σχήμα
Σε κάθε μία από αυτές τις γραμμές, το κείμενο "απόκρυψη" εμφανίζεται σε κάποια στήλη. Αν θέλετε να ελέγξετε ένα άλλο κριτήριο αντί για αυτό το περιεχόμενο, προσαρμόστε την αντίστοιχη σύγκριση στη μακροεντολή.
Για να εμφανίσετε ξανά όλα τα κελιά, πατήστε το συνδυασμό πλήκτρων CTRL A και, στη συνέχεια, επιλέξτε τη λειτουργία START - FORMAT - FADE OUT & FADE IN - SHOW LINES (Excel 2007 και Excel 2010) ή FORMAT LINE - FADE IN (Excel έως την έκδοση 2003). Εναλλακτικά, μπορείτε να χρησιμοποιήσετε την ακόλουθη μακροεντολή για να ξεθωριάσετε:
Εμφάνιση Υπο Όλων
Cells.Rows.Hidden = False
Τέλος υπο
Για να εισαγάγετε μία από τις μακροεντολές, πατήστε το συνδυασμό πλήκτρων ALT F11 στο Excel. Αυτό καλεί τον επεξεργαστή VBA. Χρησιμοποιήστε την εντολή INSERT - MODULE για να εισαγάγετε ένα κενό φύλλο λειτουργικής μονάδας. Για να ξεκινήσετε μία από τις μακροεντολές, πατήστε το συνδυασμό πλήκτρων ALT F8 στο Excel.
