Πώς να αποκρύψετε σειρές με βάση τη σημερινή ημερομηνία στο Excel;
Ας υποθέσουμε ότι έχετε έναν πίνακα φρούτων σε ένα φύλλο εργασίας όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης και πρέπει να αποκρύψετε όλες τις σειρές πριν ή μετά την τρέχουσα ημερομηνία (6/14/2016) στον πίνακα. Αυτό το άρθρο παρέχει τρεις μεθόδους για εσάς.
Απόκρυψη σειρών με βάση τη σημερινή ημερομηνία με τη λειτουργία φίλτρου
Απόκρυψη σειρών με βάση τη σημερινή ημερομηνία με τον κωδικό VBA
Απόκρυψη σειρών με βάση τη σημερινή ημερομηνία με το Kutools για Excel
Απόκρυψη σειρών με βάση τη σημερινή ημερομηνία με τη λειτουργία φίλτρου
Με τη λειτουργία Φίλτρο στο Excel, μπορείτε εύκολα να φιλτράρετε όλες τις απαραίτητες σειρές και να αποκρύψετε όλες τις ανεπιθύμητες σειρές με βάση τη σημερινή ημερομηνία.
1. Στον πίνακα, κάντε κλικ στο αναπτυσσόμενο κουμπί στη στήλη Ημερομηνία και, στη συνέχεια, κάντε κλικ στο Φίλτρα ημερομηνίας > Πριν or Μετά το. Δείτε το στιγμιότυπο οθόνης:
Notes:
2. Στο Προσαρμοσμένο αυτόματο φίλτρο , κάντε κλικ στο Επιλογή ημερομηνίας 
κουμπί δίπλα στο πλαίσιο είναι μετά και, στη συνέχεια, κάντε κλικ στο Σήμερα κουμπί στο ημερολόγιο. Και μετά κάντε κλικ στο OK κουμπί.
Τότε όλες οι σειρές πριν από τη σημερινή ημερομηνία κρύβονται αμέσως.
Απόκρυψη σειρών με βάση τη σημερινή ημερομηνία με τον κωδικό VBA
Μπορείτε επίσης να εφαρμόσετε κώδικα VBA για να αποκρύψετε σειρές με βάση τη σημερινή ημερομηνία στο Excel. Κάντε τα εξής.
1. Τύπος άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παρακαλώ κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο.
Κωδικός VBA: Απόκρυψη σειρών με βάση τη σημερινή ημερομηνία στο Excel
Private Sub Hidebtn_Click()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In xRg
If xCell.Value < Now Then
xCell.EntireRow.Hidden = True
End If
Next
End Sub3. Πάτα το F5 κλειδί, στο αναδυόμενο παράθυρο Kutools για Excel πλαίσιο διαλόγου, επιλέξτε τη στήλη εύρους ημερομηνιών και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Τώρα όλες οι σειρές πριν από τη σημερινή ημερομηνία κρύβονται αμέσως.
Notes:
Κωδικός VBA: απόκρυψη όλων των κρυφών σειρών στο Excel
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End SubΑπόκρυψη σειρών με βάση τη σημερινή ημερομηνία με το Kutools για Excel
Με την Επιλέξτε συγκεκριμένα κελιά χρησιμότητα του Kutools για Excel, μπορείτε εύκολα να επιλέξετε όλες τις σειρές πριν ή μετά τη σημερινή ημερομηνία και, στη συνέχεια, να τις αποκρύψετε χειροκίνητα.
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. Επιλέξτε τη λίστα ημερομηνιών στον πίνακα σας και, στη συνέχεια, κάντε κλικ στο Kutools > Αγορά > Επιλέξτε συγκεκριμένα κελιά.
2. Στο Επιλέξτε συγκεκριμένα κελιά πλαίσιο διαλόγου, επιλέξτε το Ολόκληρη σειρά επιλογή του Τύπος επιλογής και επιλέξτε Λιγότερο από or Μεγαλύτερος από επιλογή (εδώ επιλέγω την επιλογή Λιγότερο από) στην πρώτη Ειδικός τύπος αναπτυσσόμενη λίστα και μετά εισαγάγετε τη σημερινή ημερομηνία στο επόμενο πλαίσιο κειμένου. Τέλος, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσες σειρές επιλέχθηκαν, κάντε κλικ στο OK κουμπί. Και μπορείτε να δείτε όλες τις σειρές πριν από την επιλογή της σημερινής ημερομηνίας όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
4. Κάντε δεξί κλικ στην επιλογή και μετά κάντε κλικ στο Κρύβω στο δεξί κλικ για να αποκρύψετε όλες τις επιλεγμένες σειρές πριν από τη σημερινή ημερομηνία.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Σχετικά άρθρα:
- Πώς να αποκρύψετε το πλαίσιο ελέγχου όταν η σειρά είναι κρυφή στο Excel;
- Πώς να αποκρύψετε / αποκρύψετε σειρές ή στήλες με το σύμβολο συν ή πλην στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
