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 ( Cells ( x , " Β " ) ) Εάν CDate ( Cells ( x , " Β " ) ) 4 Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic . Θα αποθηκεύει αυτόματα στη μακροεντολή . Όταν θέλετε να εκτελέσετε τη μακροεντολή και να διαγράψετε τις γραμμές , πηγαίνετε πίσω στο " Μακροεντολές " , επιλέξτε το " DeleteRowsbyDate " μακρο-και κάντε κλικ στο " Run".
Η
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα