Δημιουργήστε μια μακροεντολή : να ανοίξει ένα νέο βιβλίο εργασίας του Excel , στη συνέχεια, πληκτρολογήστε μια σύντομη στήλη αριθμών που αυξάνει 10-20 . Επιλέξτε τη στήλη μετά την είσοδό του.
Ξεκινήστε την καταγραφή της μακροεντολής πατώντας το κουμπί ορθογώνιο στην αριστερή πλευρά της γραμμής κατάστασης του Excel , στο κάτω μέρος της οθόνης .
Ονομάστε την μακροεντολή " mySort " στη συνέχεια, πατήστε το εικονίδιο " Ταξινόμηση " στη γραμμή εργαλείων του Excel . Επιλέξτε " Ταξινόμηση μεγαλύτερο προς το μικρότερο , " και στη συνέχεια να σταματήσει η καταγραφή μακροεντολών πατώντας και πάλι το κουμπί macro
εικόνων Replay η Macro
Η
Δοκιμάστε macro σας : . Αναδημιουργήσει το αρχικό στήλη των αριθμών, αλλά σε μια διαφορετική θέση του φύλλου εργασίας . Βεβαιωθείτε ότι οι αριθμοί πάνε 10-20 όπως και πριν .
Επιλέξτε τη στήλη , στη συνέχεια, πατήστε το πλήκτρο "Alt - F8" για να εμφανίσετε μια λίστα των μακροεντολών . Κάντε διπλό κλικ macro σας , και να παρατηρήσετε το φαινόμενο: η στήλη δεν ήταν ταξινομημένο αυτή τη φορά
Η προβολή του κώδικα
Η
μακροεντολές μερικές φορές δεν καταγράφουν . τα ακριβή καθήκοντα που σκοπεύετε να . Σε αυτές τις περιπτώσεις , θα πρέπει να καθορίσει τον κώδικα .
Πατήστε το πλήκτρο " Alt - F8" για να εμφανιστεί ξανά μια λίστα με μακροεντολές . Επιλέξτε τη δική σας από τη λίστα και, στη συνέχεια πατήστε το κουμπί " Επεξεργασία" για να εισάγετε τον IDE .
Παρατηρήστε τους αριθμούς σε εισαγωγικά . Είναι ο λόγος που macro σας δεν είναι σωστή ταξινόμηση : οι μακρο είδη μόνο ένα συγκεκριμένο μέρος στο φύλλο εργασίας
εικόνων Αναθεωρήστε τη μακροοικονομική
Η
Αρχίστε να διορθώσετε τη μακροεντολή . : απλά επιλέξτε τον κωδικό που έχει ως εξής :
κλειδί : = Range ( " G5 ") » ( . κωδικός σας θα εμφανιστεί κατά πάσα πιθανότητα μια διαφορετική σειρά σε εισαγωγικά )
Αλλάξτε αυτή τη γραμμή να διαβάζεται σαν αυτό :
κλειδί : = Selection.Columns ( 1 )
Αλλάξτε την άλλη εσφαλμένη γραμμή του κώδικα που έχει ως εξής : .
SetRange Range ( " G5 : G15 " )
Αλλάξτε τον κώδικα σε αυτό : . SetRange Επιλογή
Επιστροφή στο Excel και εκτελέστε πάλι τη μακροεντολή . Παρατηρήστε ότι ο κωδικός σας τώρα ταξινομεί με επιτυχία το φάσμα .
Εικόνων βήμα μέσα και να αλλάξετε τον κωδικό
Η
Πατήστε το πλήκτρο " Alt - F11 " για να κινηθεί πίσω στο IDE , στη συνέχεια, πατήστε το πλήκτρο " F2 " για να μπείτε στο πρόγραμμα περιήγησης αντικειμένου . Εδώ θα μάθετε για ένα από τα αντικείμενα που χρησιμοποιεί τον κωδικό σας για να ταξινομήσετε - οι SortFields αντιρρήσεις . Πληκτρολογήστε " SortFields " στο πλαίσιο αναζήτησης , στη συνέχεια, επισημάνετε το στοιχείο " Προσθήκη " στο " Μέλη της « SortFields " παράθυρο .
Ο IDE σας λέει τι χρειάζεται η λειτουργία Προσθήκη στην εργασία, συμπεριλαμβανομένης της το " Order" παράμετρο . Αυτή η παράμετρος καθορίζει το αν το είδος είναι αύξουσα ή φθίνουσα
Δυναμική αλλαγή αυτή τη σειρά ταξινόμησης από φθίνουσα σε αύξουσα σειρά : . Επιστροφή στον κώδικα του προγράμματος σας πατώντας "Alt - F11 " για να πάρει πίσω στο Excel , στη συνέχεια, πατώντας " Alt - F8 . " Επιλέξτε το όνομα της μακροεντολής σας , στη συνέχεια, πατήστε το κουμπί" Επεξεργασία "για να πάρετε τον κώδικα .
εικόνων Θέστε ένα σημείο αναστολής
Η
Κάντε κλικ οπουδήποτε στο πρόγραμμα πριν το " End Sub ", στη συνέχεια πιέστε το πλήκτρο " F9 " για να ορίσετε ένα σημείο διακοπής , η οποία διακόπτει την εκτέλεση του προγράμματος .
στο φύλλο εργασίας του Excel , επιλέξτε τη φθίνουσα στήλη των αριθμών , στη συνέχεια, να επιστρέψετε στο πρόγραμμά σας στο IDE . Εκτελέστε το πρόγραμμα πατώντας το πλήκτρο " F5 " και σημειώστε την κίτρινη επισήμανση , υποδεικνύοντας ότι breakpoint σας έχει διακοπεί εκτέλεση κώδικα
Αλλαγή του προγράμματος για να ταξινομήσετε με μια κάθοδο , δεν ανάβαση : . Αντικαθιστά το κείμενο "Order : = xlDescending " κείμενο " Order : = xlAscending , "και στη συνέχεια σύρετε προσεκτικά το κίτρινο βέλος , το οποίο δείχνει τι κατάσταση θα εκτελέσει το επόμενο , πίσω σε οποιαδήποτε γραμμή πριν από τον κωδικό που μόλις αλλάξει . Πατήστε "Control - Shift - F9 " για να καθαρίσετε όλα τα σημεία διακοπής , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να ολοκληρωθεί η εκτέλεση του προγράμματος . Επιστροφή στο Excel για να βεβαιωθείτε ότι ο κώδικας έχει ταξινόμηση της στήλης για να ανέβει .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα