Πώς να Διαγραφή του Excel Γραμμές βάση Ημερομηνία

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

1 Ανοίξτε το βιβλίο εργασίας στο Excel . Εάν χρησιμοποιείτε το Excel 2007 , θα πρέπει να εμφανιστεί η καρτέλα "Προγραμματιστής ", αν δεν είναι ήδη δείχνει . Για να το κάνετε αυτό, κάντε κλικ στο κουμπί " Office " και στη συνέχεια " Επιλογές του Excel . " Κάντε κλικ στο "Show Developer Tab " και κάντε κλικ στο "OK". 2

Δημιουργήστε ένα νέο macro . Στο Excel 2007 , κάντε κλικ στην καρτέλα Προγραμματιστής και στη συνέχεια « Macro ». Σε παλαιότερες εκδόσεις , κάντε κλικ στο " Εργαλεία" στη γραμμή εργαλείων και , στη συνέχεια, "Macro . " Το όνομα της μακροεντολής , " DeleteRowbyDate " και στη συνέχεια κάντε κλικ στο " . ? Δημιουργία "εμφανίζεται η Visual Basic editor εικόνων
3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο πρόγραμμα επεξεργασίας Visual Basic μεταξύ των γραμμών , Sub DeleteRowbyDate ( ) και End Sub :
.

Dim x Όπως Longfor x = 1 Για να Cells.SpecialCells ( xlCellTypeLastCell ) . RowDebug.Print Cells ( x , "Β" ) . ValueIf CDate ( Cells ( x , " Β " ) ) < CDate ( " 12/29/2010 " ) ThenCells ( i , " Β " ) . EntireRow.deleteEnd IfNext i

Στη γραμμή που λέει , " Αν CDate ( Cells ( x , " Β " ) ) < CDate ( " 12/29/2010 ") Στη συνέχεια " , αλλάξτε την ημερομηνία που ανεξάρτητα από την ημερομηνία που είναι μια ημέρα υψηλότερη από την ημερομηνία που θέλετε να διαγράψετε . Για παράδειγμα , εάν θέλετε να διαγράψετε όλες τις γραμμές που είναι παλαιότερες από 1η Ιανουαρίου του 2009 , τότε θα αλλάξει η γραμμή :

Εάν CDate ( Cells ( x , " Β " ) ) < CDate ( " 01/01/09 ") Στη συνέχεια
Η

4 Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic . Θα αποθηκεύει αυτόματα στη μακροεντολή . Όταν θέλετε να εκτελέσετε τη μακροεντολή και να διαγράψετε τις γραμμές , πηγαίνετε πίσω στο " Μακροεντολές " , επιλέξτε το " DeleteRowsbyDate " μακρο-και κάντε κλικ στο " Run".

Η < br >