- Χρησιμοποιήστε Alt + F11 για να ανοίξετε το VBE
- Γρήγορα πλήκτρα στο VBE
- Εγγραφή μακροεντολής
- Χρήση του βιβλίου εργασίας Personal Macro
- Κωδικός εσοχής
- Κωδικός Σχολιασμού
- Γραφή με πεζά γράμματα
- Χρήση Intellisense
- Αυτόματη συμπλήρωση
- Επιλογή ρητός και μεταγλωττιστικός κώδικας
- Το άμεσο παράθυρο και ο εντοπισμός σφαλμάτων
Αυτό το σεμινάριο θα σας δείξει μια ποικιλία από πραγματικά χρήσιμες συντομεύσεις στο VBA
Χρησιμοποιήστε Alt + F11 για να ανοίξετε το VBE
Συνήθως για να μεταβείτε στο Visual Basic Editor, πρέπει να κάνετε κλικ στο κουμπί Visual Basic στην κορδέλα του Excel. Ωστόσο, μπορείτε να πατήσετε Alt + F11 αντι αυτου!
Γρήγορα πλήκτρα στο VBE
Ctl+r- δείχνει το Project Explorer.
Ctl+g - δείχνει το Άμεσο Παράθυρο.
F4 - δείχνει το Παράθυρο ιδιοτήτων.
F2 - δείχνει το Πρόγραμμα περιήγησης αντικειμένων.
F5 - τρέχει το Διαδικασία εισαι μεσα.
F8 - σας επιτρέπει να εισέλθετε στον κώδικα Διακοπή τρόπος.
Εγγραφή μακροεντολής
Ένας από τους καλύτερους τρόπους για να μάθετε VBA είναι να καταγράψετε μια μακροεντολή και στη συνέχεια να αναλύσετε τον κώδικα. Είναι επίσης ένας πολύ γρήγορος τρόπος γραφής κώδικα, αλλά η συσκευή εγγραφής θα καταγράφει ΚΑΘΕ πληκτρολόγιο, οπότε ίσως χρειαστεί να επεξεργαστείτε τον κώδικά σας για να αφαιρέσετε τις περιττές γραμμές.
Ας εξετάσουμε τη μακροεντολή που καταγράφεται παρακάτω από τη συσκευή εγγραφής μακροεντολών και να δούμε πώς μπορούμε να την κάνουμε πιο αποτελεσματική.
| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152 | Sub TestFormat ()''TestFormat Macro'Συντόμευση πληκτρολογίου: Ctrl+Shift+T'ActiveCell.FormulaR1C1 = "Applese"Εύρος ("D3"). ΕπιλέξτεActiveCell.FormulaR1C1 = "Αχλάδια"Εύρος ("E3"). ΕπιλέξτεActiveCell.FormulaR1C1 = "Ροδάκινα"Εύρος ("C4"). ΕπιλέξτεActiveCell.FormulaR1C1 = "12"Εύρος ("D4"). ΕπιλέξτεActiveCell.FormulaR1C1 = "14"Εύρος ("E4"). ΕπιλέξτεActiveCell.FormulaR1C1 = "16"Εύρος ("C5"). ΕπιλέξτεActiveCell.FormulaR1C1 = "20"Εύρος ("D5"). ΕπιλέξτεActiveCell.FormulaR1C1 = "25"Εύρος ("E5"). ΕπιλέξτεActiveCell.FormulaR1C1 = "26"Εύρος ("C6: E6"). ΕπιλέξτεΕύρος ("E6"). ΕνεργοποιήστεSelection.FormulaR1C1 = "= SUM (R [-2] C: R [-1] C)"Επιλογή. Borders (xlDiagonalDown) .LineStyle = xlΚανέναSelection.Borders (xlDiagonalUp) .LineStyle = xlΚανέναSelection.Borders (xlEdgeLeft) .LineStyle = xlNoneΜε Selection.Borders (xlEdgeTop).LineStyle = xlΣυνέχεια.ColorIndex = 0.TintAndShade = 0. Βάρος = xlThinΤέλος μεΜε Selection.Borders (xlEdgeBottom).LineStyle = xlDouble.ColorIndex = 0.TintAndShade = 0.Βάρος = xlΠυκνόΤέλος μεSelection.Borders (xlEdgeRight) .LineStyle = xlNoneSelection.Borders (xlInsideVertical) .LineStyle = xlΚανέναSelection.Borders (xlInsideHorizontal) .LineStyle = xlΚανέναΕύρος ("C4: E6"). ΕπιλέξτεSelection.NumberFormat = _"_- [$$-el-US]*#, ## 0.00_; _- [$$-el-US]*-#, ## 0.00; _- [$$-el-US]*" " -"" ?? _; _-@_ "Εύρος ("C3: E3"). ΕπιλέξτεSelection.Font.Bold = TrueΕύρος ("C3"). ΕπιλέξτεActiveCell.FormulaR1C1 = "Μήλα"Τέλος υπο |
Τώρα κοιτάξτε τον παρακάτω κώδικα που θα επιτύχει το ίδιο αποτέλεσμα
| 123456789101112131415161718192021 | Sub TestFormat ()Συντόμευση πληκτρολογίου: Ctrl+Shift+TΕύρος ("C3") = "Μήλα"Εύρος ("D3") = "Αχλάδια"Range ("E3") = "Ροδάκινα"Εύρος ("C4") = 12Εύρος ("D4") = 14Εύρος ("C4") = 16Εύρος ("C5") = 20Εύρος ("D5") = 25Εύρος ("E5") = "26"Εύρος ("C6: E6"). ΕπιλέξτεSelection.FormulaR1C1 = "= SUM (R [-2] C: R [-1] C)"Selection.Borders (xlEdgeTop) .LineStyle = xlΣυνέχειαSelection.Borders (xlEdgeBottom) .LineStyle = xlDoubleΕύρος ("C4: E6"). ΕπιλέξτεSelection.NumberFormat = _"_- [$$-el-US]*#, ## 0.00_; _- [$$-el-US]*-#, ## 0.00; _- [$$-el-US]*" " -"" ?? _; _-@_ "Εύρος ("C3: E3"). ΕπιλέξτεSelection.Font.Bold = TrueΤέλος υπο |
Κόβοντας πολλούς περιττούς κώδικες και τροποποιώντας τον καταγεγραμμένο κώδικα όπου είναι δυνατόν, μπορούμε να κάνουμε τη μακροεντολή πολύ πιο αποτελεσματική και ευανάγνωστη.
Χρήση του βιβλίου εργασίας Personal Macro
Εάν θέλετε μια μακροεντολή να μπορεί να χρησιμοποιηθεί σε όλα σας τα αρχεία Excel, μπορείτε να αποθηκεύσετε τη μακροεντολή στο βιβλίο εργασίας Προσωπική μακροεντολή - αυτό το βιβλίο εργασίας είναι κρυφό και είναι ανοιχτό συνεχώς στο Excel, καθιστώντας όλες τις μακροεντολές αποθηκευμένες εκεί, καθολικές μακροεντολές Το
Εάν δεν βλέπετε ένα Personal Macro Workbook στο παράθυρό σας VBE, καταγράψτε μια μακροεντολή και καθορίστε την ώστε να αποθηκευτεί στο βιβλίο εργασίας Personal Macro.
Κωδικός εσοχής
Όταν εισάγετε τον κώδικα σας, διευκολύνετε αμέσως την ανάγνωση και την παρακολούθηση από κάποιον άλλο. Για εσοχή σε πολλές γραμμές κώδικα, μπορείτε να τις επιλέξετε και να πατήσετε το πλήκτρο Tab.
Ομοίως, για να ξεπεράσετε τον κώδικα, πατήστε Shift+Tab και ο κωδικός θα μετακινηθεί ξανά προς τα αριστερά.
Κουραστήκατε να ψάχνετε για παραδείγματα κώδικα VBA; Δοκιμάστε το AutoMacro!
Κωδικός Σχολιασμού
Η προσθήκη σχολίων στον κωδικό σας είναι ένας άλλος τρόπος για να διευκολύνετε την ανάγνωση και την πλοήγηση. Προσθέτετε ένα σχόλιο στον κώδικα βάζοντας ένα μόνο εισαγωγικό στην αρχή της γραμμής όπως φαίνεται παρακάτω.
Γραφή με πεζά γράμματα
Το VBA χρησιμοποιεί την κατάλληλη περίπτωση στον κώδικα. Εάν γράφετε με πεζά γράμματα και δεν αλλάζει σε Proper Case, μπορείτε γρήγορα να δείτε πού έχετε κάνει λάθος.
Χρήση Intellisense
Το Intellisense εμφανίζεται όταν γράφετε κώδικα και σας δίνει μια λίστα με όλες τις Ιδιότητες, τις μεθόδους και τα συμβάντα που είναι διαθέσιμα στο αντικείμενο με το οποίο εργάζεστε. Κανονικά εμφανίζεται αυτόματα αφού πληκτρολογήσετε μια περίοδο κατά την οποία πληκτρολογείτε τον κωδικό σας.
Μπορείτε επίσης να το αναγκάσετε να εμφανιστεί πατώντας Ctl+j.
Ομοίως, όταν χρησιμοποιείτε συναρτήσεις στο Excel που λαμβάνουν ορίσματα, αυτές συνήθως εμφανίζονται αυτόματα.
Μπορείτε να τους αναγκάσετε να εμφανιστούν πατώντας Ctl+i.
Αυτόματη συμπλήρωση
Μπορείτε να χρησιμοποιήσετε το Ctl+Space συνδυασμός πλήκτρων για χρήση αυτόματης συμπλήρωσης κατά την εγγραφή κώδικα.
Στο παραπάνω παράδειγμα, όλα τα Ιδιότητες, Μέθοδοι, Συμβάντα και Μεταβλητές ξεκινώντας με str θα εμφανιστεί στη λίστα για να διαλέξετε.
Επιλογή ρητός και μεταγλωττιστικός κώδικας
Βεβαιωθείτε ότι έχετε Option Explicit στο επάνω μέρος όλων των ενοτήτων σας, διασφαλίζει ότι όλες οι μεταβλητές σας έχουν δηλωθεί και σας αποτρέπει από ορθογραφικά λάθη στα ονόματα των μεταβλητών. Εάν έχετε ενεργοποιήσει το Option Explicit και μεταγλωττίσετε ή εκτελέσετε τον κώδικά σας, θα εμφανιστεί σφάλμα εάν δεν αναγνωριστεί ένα όνομα μεταβλητής.
Το άμεσο παράθυρο και ο εντοπισμός σφαλμάτων
Το άμεσο παράθυρο (μπορείτε να το ενεργοποιήσετε χρησιμοποιώντας Ctl+g) σας επιτρέπει να εντοπίσετε σφάλματα στον κωδικό σας και να βρείτε την τιμή των μεταβλητών ενώ βρίσκεστε σε αυτήν τη λειτουργία εντοπισμού σφαλμάτων.
| 12345678 | Sub TestVariables«δηλώστε τη μεταβλητήDim strName ως συμβολοσειρά"συμπληρώστε τη μεταβλητήstrName = "Anne Smith""χρησιμοποιήστε το F8 για να περάσετε τον κώδικα και να στείλετε τη μεταβλητή τιμή χρησιμοποιώντας το debug.print στο άμεσο παράθυροDebug.Print Όνομα strΤέλος υπο |
