Πώς να αποκρύψετε αυτόματα γραμμές εάν είναι κενά κελιά σε μια στήλη;
Εάν έχετε μια σειρά δεδομένων που συμπληρώνουν ορισμένα κενά κελιά σε μια στήλη και τώρα, θέλετε να αποκρύψετε αυτόματα τις σειρές που περιέχουν τα κενά κελιά σε αυτήν τη στήλη. Υπάρχουν καλοί τρόποι για να λύσετε αυτήν την εργασία στο Excel γρήγορα και εύκολα;
Αυτόματη απόκρυψη σειρών εάν κενά κελιά σε μια στήλη με κώδικα VBA
Αυτόματη απόκρυψη σειρών εάν κενά κελιά σε μια στήλη με κώδικα VBA
Ο ακόλουθος κώδικας μπορεί να σας βοηθήσει να αποκρύψετε όλες τις σειρές αν είναι κενά κελιά σε μια συγκεκριμένη στήλη ταυτόχρονα, και εάν διαγράψετε το περιεχόμενο κελιού σε αυτήν τη στήλη, οι σειρές θα κρύβονται επίσης αυτόματα. Κάντε τα εξής:
1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να αποκρύψετε αυτόματα τις σειρές εάν υπάρχουν κενά κελιά σε μια στήλη και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος, στο αναδυόμενο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στο κενό Μονάδα μέτρησης:
Κωδικός VBA: Αυτόματη απόκρυψη σειρών εάν κενά κελιά σε μια στήλη:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In Range("A1:A20")
If xRg.Value = "" Then
xRg.EntireRow.Hidden = True
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
Application.ScreenUpdating = True
End Sub
Note: Στον παραπάνω κώδικα, A1: A20 είναι η λίστα δεδομένων που περιέχει τα κενά κελιά που θέλετε να αποκρύψετε αυτόματα.
2. Στη συνέχεια, επιστρέψτε στο φύλλο εργασίας και τώρα, όταν κάνετε διπλό κλικ σε οποιοδήποτε κελί και πατήστε εισάγετε κλειδί, οι σειρές που περιέχουν κενά κελιά στη στήλη Α έχουν κρυφτεί ταυτόχρονα και εάν διαγράψετε οποιοδήποτε περιεχόμενο κελιού στα καθορισμένα κελιά της στήλης Α, οι σειρές θα αποκρυφθούν αυτόματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!