Αυτό το άρθρο θα δείξει πώς να χρησιμοποιήσετε το με και το τέλος με το VBA
Το Excel μας δίνει τη δυνατότητα να μάθουμε VBA με εγγραφή μακροεντολών. Αυτές οι μακροεντολές καταγράφουν κυριολεκτικά ό, τι κάνουμε στην οθόνη και μετατρέπουν τις ενέργειες σε κώδικα VBA. Στη συνέχεια, μπορούμε να αναλύσουμε αυτόν τον κώδικα και να μάθουμε από αυτόν.
Όταν εγγράφουμε μια μακροεντολή στο VBA, το πιο σημαντικό όταν αλλάζουμε τη μορφή των κελιών, η μακροεντολή συχνότερα θα χρησιμοποιήσει το με… Τέλος με σύνταξη στην εγγραφή. Η κατανόηση του τι σημαίνουν και χρησιμοποιούνται για αυτό είναι ένα σημαντικό μέρος του VBA.
Εγγραφή μακροεντολής
Για εγγραφή μακροεντολής στο Excel, στο Ταινία, επιλέξτε Προβολή> Μακροεντολή> Εγγραφή μακροεντολής.
Ή
Προγραμματιστής> Εγγραφή μακροεντολής
Σημείωση: Εάν δεν βλέπετε την Κορδέλα προγραμματιστή, θα πρέπει να την ενεργοποιήσετε. Κάντε κλικ ΕΔΩ για να μάθετε πώς να το κάνετε αυτό.
Πληκτρολογήστε το όνομα για τη μακροεντολή και κάντε κλικ στο κουμπί OK.
Επισημάνετε μερικά κελιά και, στη συνέχεια, μορφοποιήστε τα για το Bold, αλλάξτε το χρώμα σε κόκκινο και τροποποιήστε το μέγεθος της γραμματοσειράς. Στη συνέχεια, κάντε κλικ στο κουμπί Διακοπή στην κάτω αριστερή γωνία της οθόνης για να σταματήσετε την εγγραφή μακροεντολής.
ΜΕ Σύνταξη Δήλωσης
Για προβολή / επεξεργασία της καταγεγραμμένης μακροεντολής σας: Στην κορδέλα, επιλέξτε Προβολή> Μακροεντολές> Προβολή μακροεντολών. Επιλέξτε τη μακροεντολή που μόλις καταγράφηκε και, στη συνέχεια, κάντε κλικ Επεξεργασία.
Ή
Στην Κορδέλα, επιλέξτε Προγραμματιστής> Visual Basic για μετάβαση στο παράθυρο VBE.
Η καταγεγραμμένη μακροεντολή μπορεί να μοιάζει με το παρακάτω παράδειγμα
| 123456789 | Sub WithMacro ()Εύρος ("A2: C10"). ΕπιλέξτεSelection.Font.Bold = TrueSelection.Font.Size = 12Με Selection.Font.Χρώμα = -16776961.TintAndShade = 0Τέλος μεΤέλος υπο |
Αρχικά, επιλέξαμε το εύρος A2: C10.
Στη συνέχεια, έχουμε ορίσει την έντονη γραφή σε true και το μέγεθος της γραμματοσειράς σε 12. Σημειώστε ότι ο κωδικός "Selection.Font" επαναλαμβάνεται για αυτές τις γραμμές.
Στη συνέχεια, η μακροεντολή μας κατέγραψε να αλλάζουμε το χρώμα του κειμένου - σημειώστε ότι αυτή τη φορά, το Selection.Font έχει ένα ΜΕ μπροστά από αυτό, και οι 2 ιδιότητες που τροποποιούνται (το χρώμα και η απόχρωση) έχουν μια περίοδο (.) μπροστά τους. Η περιοχή του κώδικα συμπληρώνεται στη συνέχεια με ένα ΤΕΛΟΣ ΜΕ.
Για να απλοποιήσουμε αυτόν τον κώδικα, μπορούμε να μετακινήσουμε το Bold and the Size να είναι εντός της δήλωσης WITH, και επομένως να καταργήσουμε την ανάγκη επανάληψης της λέξης Επιλογή.
| 123456789 | Sub WithMacro ()Εύρος ("A2: C10"). ΕπιλέξτεΜε Selection.Font.Τόλμη = Αλήθεια.Μέγεθος = 12.Χρώμα = -16776961.TintAndShade = 0Τέλος μεΤέλος υπο |
Η σύνταξη μιας δήλωσης με … ΤΕΛΕΙΩΣΗ με τη δήλωση είναι επομένως πολύ απλή:
| 123 | ΜΕ Αντικείμενο'ιδιότητες για μορφοποίηση/αλλαγήΤΕΛΟΣ ΜΕ |
Θα μπορούσαμε να τροποποιήσουμε τον κώδικα με διαφορετικό τρόπο:
| 1234567 | Sub RemoveWith ()Εύρος ("A2: C10"). ΕπιλέξτεSelection.Font.Bold = TrueSelection.Font.Size = 12Selection.Font.Color = -16776961Selection.Font.TintAndShade = 0Τέλος υπο |
Στο παραπάνω παράδειγμα, προσθέσαμε στις λέξεις Επιλογή. Γραμματοσειρά σε κάθε γραμμή του κώδικα. Ως εκ τούτου, έχουμε αναφερθεί επανειλημμένα στο αντικείμενο επιλογής. Γραμματοσειρά στον κώδικα.
Ωστόσο, η χρήση της δήλωσης WITH σημαίνει ότι πρέπει να αναφερθούμε σε αυτό το αντικείμενο μόνο μία φορά στον κώδικα. Είναι ένας καθαρότερος τρόπος κωδικοποίησης - λέει στο VBA να ξεκινήσει ΜΕ και στο τέλος ΤΕΛΟΣ ΜΕ - ο κώδικας που θα εκτελεστεί περικλείεται μέσα σε αυτές τις 2 λέξεις. Κάνει τη μακροεντολή να τρέχει γρηγορότερα και πιο αποτελεσματικά (ειδικά για μεγαλύτερες μακροεντολές) και προσθέτει δομή στον κώδικά σας.
