Λήψη έτοιμων μακροεντολών για Excel. Αποτελεσματική εργασία στο MS Office

Εργασία με βιβλία

Μακροεντολή 1: Δημιουργία νέου βιβλίου εργασίας από την αρχή
Μακροεντολή 2. Αποθήκευση βιβλίου εργασίας όταν αλλάζει ένα συγκεκριμένο κελί/εύρος
Μακροεντολή 3. Αποθήκευση του βιβλίου εργασίας πριν από το κλείσιμο
Μακροεντολή 4. Προστασία ενός φύλλου εργασίας σε ένα βιβλίο εργασίας πριν από το κλείσιμο
Μακροεντολή 5. Κατάργηση προστασίας ενός φύλλου κατά το άνοιγμα ενός αρχείου Excel
Μακροεντολή 6. Ανοίξτε ένα βιβλίο εργασίας στο επιθυμητό φύλλο
Μακροεντολή 7. Άνοιγμα ενός συγκεκριμένου βιβλίου εργασίας που ορίζεται από το χρήστη
Μακροεντολή 8. Προσδιορίστε εάν το βιβλίο είναι ανοιχτό
Μακροεντολή 9. Προσδιορίστε εάν ένα βιβλίο υπάρχει σε έναν φάκελο
Μακροεντολή 10. Ενημερώστε όλες τις συνδέσεις σε ανοιχτά βιβλία εργασίας
Μακροεντολή 11. Κλείστε όλα τα βιβλία ταυτόχρονα
Μακροεντολή 12. Ανοίξτε όλα τα βιβλία εργασίας σε έναν φάκελο
Μακροεντολή 13. Εκτυπώστε όλα τα βιβλία σε ένα φάκελο
Μακροεντολή 14. Μην επιτρέψετε να κλείσει το βιβλίο μέχρι να γεμίσει το κελί
Μακροεντολή 15. Δημιουργήστε ένα αντίγραφο ασφαλείας του τρέχοντος βιβλίου εργασίας με τη σημερινή ημερομηνία

Εργασία με φύλλα

Μακροεντολή 16. Προσθέστε ένα νέο φύλλο εργασίας και εκχωρήστε ένα όνομα
Μακροεντολή 17. Διαγράψτε όλα τα φύλλα εκτός από το ενεργό
Μακροεντολή 18. Απόκρυψη όλων εκτός από το ενεργό φύλλο εργασίας
Μακροεντολή 19. Εμφάνιση όλων των φύλλων του βιβλίου εργασίας
Μακροεντολή 20. Κινούμενα φύλλα εργασίας
Μακροεντολή 21. Ταξινόμηση φύλλων με βάση το όνομα
Μακροεντολή 22. Ομαδοποιήστε φύλλα ανά Label Color
Μακροεντολή 23. Αντιγράψτε ένα φύλλο σε ένα νέο βιβλίο εργασίας
Μακροεντολή 24. Δημιουργήστε ένα νέο βιβλίο εργασίας για κάθε φύλλο
Μακροεντολή 25. Εκτύπωση φύλλων
Μακροεντολή 26. Προστατέψτε όλα τα φύλλα
Μακροεντολή 27. Καταργήστε την προστασία όλων των φύλλων
Μακροεντολή 28. Δημιουργία πίνακα περιεχομένων
Μακροεντολή 29: Κάντε διπλό κλικ για να μεγεθύνετε ένα φύλλο εργασίας
Μακροεντολή 30. Επιλέξτε στήλη ενεργής σειράς

Επιλογή και αλλαγή εύρους

Μακροεντολή 31. Επιλογή και μορφοποίηση εύρους
Μακροεντολή 32. Δημιουργία και επιλογή ονομασμένων περιοχών
Μακροεντολή 33. Απαρίθμηση με χρήση αριθμού κελιών
Μακροεντολή 34. Επιλογή και μορφοποίηση περιοχών
Μακροεντολή 35. Εισαγωγή κενών σειρών σε μια περιοχή
Μακροεντολή 36. Εμφάνιση όλων των κρυφών σειρών και στηλών
Μακροεντολή 37. Αφαίρεση κενών γραμμών
Μακροεντολή 38. Αφαίρεση κενών στηλών
Μακροεντολή 39. Επιλογή και μορφοποίηση όλων των τύπων στο βιβλίο εργασίας
Μακροεντολή 40: Βρείτε και επιλέξτε την πρώτη κενή γραμμή ή στήλη
Μακροεντολή 41. Εφαρμόστε επιπλέον χρώμα πλήρωσης
Μακροεντολή 42. Ταξινόμηση περιοχών με διπλό κλικ
Μακροεντολή 43. Περιορισμός του εύρους κύλισης σε μια συγκεκριμένη περιοχή
Μακροεντολή 44. Ορίστε αυτόματα την περιοχή εκτύπωσης του φύλλου

Εργασία με δεδομένα

Μακροεντολή 45. Αντιγράψτε και επικολλήστε μια περιοχή
Μακροεντολή 46: Μετατροπή όλων των τύπων μιας περιοχής σε τιμές
Μακροεντολή 47. Μετατροπή τιμών κειμένου σε αριθμητικές τιμές
Μακροεντολή 48. Μετατροπή παύλας σε μείον
Μακροεντολή 49. Καταργήστε τα επιπλέον κενά από όλα τα κελιά της περιοχής
Μακροεντολή 50. Κόψτε 5 χαρακτήρες στα αριστερά σε κάθε κελί της περιοχής
Μακροεντολή 51. Προσθέστε μηδενικά που λείπουν στο κελί
Μακροεντολή 52. Αντικαταστήστε τα κενά κελιά με μηδέν
Μακροεντολή 53. Προσθήκη κειμένου στην αρχή ή στο τέλος ενός κελιού
Μακροεντολή 54. Δημιουργία μακροεντολής μετατροπής δεδομένων
Μακροεντολή 55. Εκκαθάριση δεδομένων (χαρακτήρες που δεν εκτυπώνονται)
Μακροεντολή 56. Επιλέξτε διπλότυπα στην περιοχή δεδομένων
Μακροεντολή 57. Απόκρυψη επαναλαμβανόμενων γραμμών
Μακροεντολή 58. Επιλεκτική απόκρυψη των βελών του αυτόματου φίλτρου
Μακροεντολή 59. Αντιγράψτε τις φιλτραρισμένες σειρές σε ένα νέο βιβλίο εργασίας
Μακροεντολή 60. Δημιουργία νέου φύλλου για κάθε στοιχείο στο Αυτόματο Φίλτρο
Μακροεντολή 61. Εμφάνιση φιλτραρισμένων στηλών στη γραμμή κατάστασης

Εργασία με Συγκεντρωτικούς Πίνακες

Macro 62: Κάνοντας έναν Συγκεντρωτικό Πίνακα συμβατό προς τα πίσω
Μακροεντολή 63. Ενημέρωση όλων των συγκεντρωτικών πινάκων σε ένα βιβλίο
Μακροεντολή 64. Δημιουργία «απογραφής» όλων των συγκεντρωτικών πινάκων του βιβλίου
Μακροεντολή 65. Δημιουργήστε όλους τους συγκεντρωτικούς πίνακες χρησιμοποιώντας την ίδια κρυφή μνήμη δεδομένων
Μακροεντολή 66. Απόκρυψη όλων των μερικών συνόλων στον συγκεντρωτικό πίνακα
Μακροεντολή 67. Αλλάξτε τα ονόματα δεδομένων όλων των πεδίων σύνοψης
Μακροεντολή 68. Αναγκαστική άθροιση για όλα τα συνοπτικά δεδομένα
Μακροεντολή 69: Εφαρμογή μορφής αριθμού σε όλα τα στοιχεία δεδομένων
Μακροεντολή 70. Ταξινόμηση περιληπτικών πεδίων με αλφαβητική σειρά
Μακροεντολή 71. Εφαρμογή προσαρμοσμένης ταξινόμησης σε στοιχεία δεδομένων
Μακροεντολή 72: Τοποθέτηση προστασίας στον πίνακα περιστροφής
Μακροεντολή 73: Εφαρμογή Περιορισμών Συγκεντρωτικού Πεδίου
Μακροεντολή 74. Αυτόματη διαγραφή φύλλων με συνοπτικά στοιχεία
Μακροεντολή 75: Εκτύπωση συγκεντρωτικού πίνακα για κάθε στοιχείο φίλτρου
Μακροεντολή 76. Δημιουργήστε ένα νέο αρχείο για κάθε στοιχείο φίλτρου
Μακροεντολή 77. Προετοιμασία εύρους δεδομένων για συγκεντρωτικό πίνακα

Εργασία με γραφήματα και γραφήματα

Μακροεντολή 78. Αλλαγή μεγέθους γραφημάτων σε φύλλο εργασίας
Μακροεντολή 79. Σύνδεση του γραφήματος με ένα συγκεκριμένο εύρος
Μακροεντολή 80: Δημιουργία συνόλου ασύνδετων διαγραμμάτων
Μακροεντολή 81: Εκτύπωση όλων των γραφημάτων σε ένα φύλλο εργασίας
Μακροεντολή 82. Επισήμανση των καλύτερων και των χειρότερων τιμών στο
Μακροεντολή 83. Ίδια χρώματα για τιμές σε διαφορετικά γραφήματα
Μακροεντολή 84. Αντιστοίχιση του χρώματος των διαγραμμάτων με το χρώμα των περιοχών

Αποστολή email από το Excel

Macro 85. Αποστολή ενεργού βιβλίου μέσω ταχυδρομείου (συνημμένο)
Μακροεντολή 86: Αποστολή μιας σειράς τιμών ως συνημμένο
Μακροεντολή 87. Αποστολή ενός φύλλου ως συνημμένο
Μακροεντολή 88. Στείλτε ένα email με έναν σύνδεσμο προς τα αρχεία μας
Macro 89: Αποστολή email προσθέτοντας διευθύνσεις στη λίστα επαφών μας
Macro 90. Αποθήκευση όλων των συνημμένων σε ξεχωριστό φάκελο
Μακροεντολή 91. Αποθήκευση συγκεκριμένων συνημμένων σε φάκελο

Διαλειτουργικότητα με άλλες εφαρμογές του Office

Μακροεντολή 92. Εκτέλεση αιτήματος πρόσβασης από το Excel

Μακροεντολή 96. Συμπίεση βάσης δεδομένων της Access από το Excel
Μακροεντολή 97. Αποστολή δεδομένων Excel σε έγγραφο του Word
Μακροεντολή 98. Κάνοντας μια συγχώνευση με ένα έγγραφο του Word
Macro 99: Αποστολή δεδομένων Excel σε παρουσίαση PowerPoint
Macro 100. Αποστολή γραφημάτων Excel σε παρουσιάσεις PowerPoint
Macro 101: Μετατροπή βιβλίου εργασίας σε παρουσίαση PowerPoint

Διαλειτουργικότητα με άλλες εφαρμογές του Office
μάθετε να εργάζεστε με το Word, την Access και το PowerPoint
Μακροεντολή 92. Εκτέλεση αιτήματος πρόσβασης από το Excel
Μακροεντολή 93. Εκτέλεση μακροεντολής Access από το Excel
Μακροεντολή 94. Άνοιγμα αναφοράς Access από το Excel
Μακροεντολή 95. Άνοιγμα φόρμας πρόσβασης από το Excel

Ακόμα κι αν δεν γνωρίζετε τίποτα για το VBA και τις μακροεντολές, θα εμπνευστείτε να μάθετε περισσότερα αφού διαβάσετε μερικά από τα κόλπα και τα κόλπα σε αυτό το μέρος. Εάν μόλις αρχίζετε να εργάζεστε με μακροεντολές, μπορείτε να βρείτε χρήσιμες πληροφορίες εδώ.

. .

Σε προηγούμενα άρθρα, είδατε πώς το Excel μπορεί να ελέγχει άλλες εφαρμογές της Microsoft όπως το Word και το Outlook. Αλλά ταυτόχρονα, άλλες εφαρμογές μπορούν επίσης να χρησιμοποιηθούν για τη διαχείριση του Excel. Για παράδειγμα, γράψατε μια μακροεντολή για το Word ή την Access που δημιουργεί έναν πίνακα Excel, τον γεμίζει με δεδομένα και, στη συνέχεια, τον αποθηκεύει. Το Excel δεν χρειάζεται απαραίτητα να [...]

. .

Μπορείτε να χρησιμοποιήσετε αυτήν την τεχνολογία για να ελέγξετε το Microsoft Outlook και να στείλετε email απευθείας από το υπολογιστικό φύλλο σας ή να αντιγράψετε τις καταχωρίσεις του σημειωματάριου σας. Φυσικά, η φύση του Excel είναι ότι ο πίνακας θα σταλεί μέσω email, αλλά αυτή η μέθοδος σας επιτρέπει να στείλετε μόνο μέρος του πίνακα. Για να λειτουργήσει αυτός ο κωδικός, πρέπει να έχετε […]

. .

Αυτή η μέθοδος μπορεί να είναι πολύ χρήσιμη, για παράδειγμα, εάν έχετε ένα τυπικό έγγραφο με πίνακες γεμάτους με δεδομένα μακροεντολών από πίνακες του Excel. Μπορείτε να εκτελέσετε τη μακροεντολή και τα δεδομένα θα μεταφερθούν σε πίνακες στο έγγραφο του Word. Πρόσφατα είχα το καθήκον να γράψω ένα πρόγραμμα για να συμπληρώσω μια αναφορά για το SLA (Service Level Agreement). Κανω ΑΝΑΦΟΡΑ […]

. .

Οι μακροεντολές χρησιμοποιούνται συχνά για την αυτοματοποίηση της λειτουργίας των εφαρμογών. Οποιαδήποτε μακροεντολή είναι μια ακολουθία ενεργειών που καταγράφονται με ένα συγκεκριμένο όνομα. Εάν, όταν εργάζεστε με το Microsoft Excel, πρέπει να εκτελέσετε την ίδια ακολουθία πράξεων πολλές φορές (για παράδειγμα, σύνθετη μορφοποίηση του τρέχοντος κελιού ή προσθήκη νέας σειράς και συμπλήρωση ορισμένων από τα κελιά του με τύπους), τότε μπορείτε να τα γράψετε δράσεις και […]

Το Excel έχει μια ισχυρή, αλλά σπάνια χρησιμοποιούμενη, δυνατότητα δημιουργίας αυτοματοποιημένων ακολουθιών ενεργειών χρησιμοποιώντας μακροεντολές. Μια μακροεντολή είναι μια ιδανική λύση εάν έχετε να κάνετε με τον ίδιο τύπο εργασίας που επαναλαμβάνεται πολλές φορές. Για παράδειγμα, επεξεργασία δεδομένων ή μορφοποίηση εγγράφων χρησιμοποιώντας ένα τυποποιημένο πρότυπο. Ταυτόχρονα, δεν χρειάζεται γνώση γλωσσών προγραμματισμού.

Είστε ήδη περίεργοι για το τι είναι μια μακροεντολή και πώς λειτουργεί; Στη συνέχεια, προχωρήστε με τόλμη - τότε θα προχωρήσουμε μαζί σας ολόκληρη τη διαδικασία δημιουργίας μιας μακροεντολής βήμα προς βήμα.

Τι είναι μια Μακροεντολή;

Μια μακροεντολή στο Microsoft Office (ναι, αυτή η λειτουργία λειτουργεί το ίδιο σε πολλές εφαρμογές της σουίτας του Microsoft Office) είναι ο κώδικας προγράμματος σε μια γλώσσα προγραμματισμού (VBA) που είναι αποθηκευμένος μέσα σε ένα έγγραφο. Για να γίνει πιο σαφές, ένα έγγραφο του Microsoft Office μπορεί να συγκριθεί με μια σελίδα HTML, τότε μια μακροεντολή είναι ανάλογο του Javascript. Αυτό που μπορεί να κάνει η Javascript με δεδομένα HTML σε μια ιστοσελίδα μοιάζει πολύ με αυτό που μπορεί να κάνει μια μακροεντολή με δεδομένα σε ένα έγγραφο του Microsoft Office.

Οι μακροεντολές μπορούν να εκτελέσουν σχεδόν οποιαδήποτε ενέργεια θέλετε σε ένα έγγραφο. Εδώ είναι μερικά από αυτά (ένα πολύ μικρό μέρος):

Εφαρμογή στυλ και μορφοποίησης.
Εκτελέστε διάφορες λειτουργίες με αριθμητικά δεδομένα και δεδομένα κειμένου.
Χρησιμοποιήστε εξωτερικές πηγές δεδομένων (αρχεία βάσης δεδομένων, έγγραφα κειμένου κ.λπ.)
Δημιουργήστε ένα νέο έγγραφο.
Κάντε όλα τα παραπάνω βήματα σε οποιονδήποτε συνδυασμό.

Δημιουργία Μακροεντολής - Πρακτικό Παράδειγμα

Για παράδειγμα, ας πάρουμε το πιο συνηθισμένο αρχείο CSV. Αυτός είναι ένας απλός πίνακας 10x20 γεμάτος αριθμούς από το 0 έως το 100 με επικεφαλίδες για τις στήλες και τις γραμμές. Ο στόχος μας είναι να μετατρέψουμε αυτό το σύνολο δεδομένων σε έναν εμφανίσιμο μορφοποιημένο πίνακα και να δημιουργήσουμε σύνολα σε κάθε σειρά.

Όπως ήδη αναφέρθηκε, μια μακροεντολή είναι κώδικας γραμμένος στη γλώσσα προγραμματισμού VBA. Αλλά στο Excel μπορείτε να δημιουργήσετε ένα πρόγραμμα χωρίς να γράψετε μια γραμμή κώδικα, κάτι που θα κάνουμε αυτή τη στιγμή.

Για να δημιουργήσετε μια μακροεντολή, ανοίξτε Θέα(Προβολή) > Μακροεντολές(Μακροεντολές) > Εγγραφή Μακροεντολής(Εγγραφή μακροεντολής...)

Δώστε ένα όνομα στη μακροεντολή σας (χωρίς κενά) και κάντε κλικ Εντάξει.

Από αυτή τη στιγμή, ΟΛΕΣ οι ενέργειές σας με το έγγραφο καταγράφονται: αλλαγές κελιών, κύλιση στον πίνακα, ακόμη και αλλαγή του μεγέθους του παραθύρου.

Το Excel σηματοδοτεί ότι η λειτουργία εγγραφής μακροεντολών είναι ενεργοποιημένη σε δύο σημεία. Πρώτα απ 'όλα, στο μενού Μακροεντολές(Μακροεντολές) – αντί για γραμμή Εγγραφή ΜακροεντολήςΕμφανίστηκε η γραμμή (Εγγραφή μακροεντολής...). Διακοπή εγγραφής(Διακοπή εγγραφής).

Δεύτερον, στην κάτω αριστερή γωνία του παραθύρου του Excel. Εικόνισμα Να σταματήσει(μικρό τετράγωνο) υποδεικνύει ότι η λειτουργία εγγραφής μακροεντολών είναι ενεργοποιημένη. Κάνοντας κλικ σε αυτό θα σταματήσει η εγγραφή. Αντίθετα, όταν η λειτουργία εγγραφής δεν είναι ενεργοποιημένη, υπάρχει ένα εικονίδιο σε αυτό το μέρος για να ενεργοποιήσετε την εγγραφή μακροεντολών. Κάνοντας κλικ σε αυτό θα έχετε το ίδιο αποτέλεσμα με την ενεργοποίηση της εγγραφής μέσω του μενού.

Τώρα που η λειτουργία εγγραφής μακροεντολών είναι ενεργοποιημένη, ας πάμε στην εργασία μας. Πρώτα απ 'όλα, ας προσθέσουμε κεφαλίδες για τα δεδομένα σύνοψης.

=SUM(B2:K2)ή =SUM(B2:K2)
=ΜΕΣΟΣ (B2:K2)ή =ΜΕΣΟΣ (B2:K2)
=MIN(B2:K2)ή =MIN(B2:K2)
=MAX(B2:K2)ή =MAX(B2:K2)
=ΔΙΑΜΕΣΟΣ(B2:K2)ή =ΔΙΑΜΕΣΟΣ(B2:K2)

Τώρα επιλέξτε τα κελιά με τύπους και αντιγράψτε τα σε όλες τις σειρές του πίνακα μας σύροντας τη λαβή αυτόματης συμπλήρωσης.

Μόλις ολοκληρωθεί αυτό το βήμα, τα αντίστοιχα σύνολα θα πρέπει να εμφανίζονται σε κάθε σειρά.

Αντίστοιχα:

=SUM(L2:L21)ή =SUM(L2:L21)
=ΜΕΣΟΣ (B2:K21)ή =ΜΕΣΟΣ (B2:K21)– για τον υπολογισμό αυτής της τιμής, είναι απαραίτητο να ληφθούν ακριβώς τα αρχικά δεδομένα του πίνακα. Εάν λάβετε τον μέσο όρο των μέσων όρων για μεμονωμένες σειρές, το αποτέλεσμα θα είναι διαφορετικό.
=MIN(N2:N21)ή =MIN(N2:N21)
=MAX(O2:O21)ή =MAX(O2:O21)
=ΔΙΑΜΕΣΟΣ(B2:K21)ή =ΔΙΑΜΕΣΟΣ(B2:K21)– υπολογίζουμε χρησιμοποιώντας τα αρχικά δεδομένα του πίνακα για τον λόγο που αναφέρθηκε παραπάνω.

Τώρα που τελειώσαμε με τους υπολογισμούς, ας περάσουμε στη μορφοποίηση. Αρχικά, ας ορίσουμε την ίδια μορφή εμφάνισης δεδομένων για όλα τα κελιά. Επιλέξτε όλα τα κελιά στο φύλλο χρησιμοποιώντας τη συντόμευση πληκτρολογίου Ctrl+A, ή κάντε κλικ στο εικονίδιο Επιλογή όλων, που βρίσκεται στην τομή των επικεφαλίδων γραμμής και στήλης. Στη συνέχεια κάντε κλικ Στυλ κόμματοςκαρτέλα (Οριοθετημένη μορφή). Σπίτι(Σπίτι).

Έντονη γραμματοσειρά.
Στοίχιση στο κέντρο.
Γέμισμα με χρώμα.

Και τέλος, ας ρυθμίσουμε τη μορφή των συνολικών τιμών.

Έτσι πρέπει να μοιάζει τελικά:

Εάν είστε ικανοποιημένοι με τα πάντα, σταματήστε την εγγραφή της μακροεντολής.

Συγχαρητήρια! Μόλις καταγράψατε μόνοι σας την πρώτη σας μακροεντολή Excel.

Για να χρησιμοποιήσουμε τη μακροεντολή που δημιουργήθηκε, πρέπει να αποθηκεύσουμε το έγγραφο του Excel σε μορφή που να υποστηρίζει μακροεντολές. Αρχικά, πρέπει να διαγράψουμε όλα τα δεδομένα από τον πίνακα που δημιουργήσαμε, π.χ. κάντε το κενό πρότυπο. Το γεγονός είναι ότι στο μέλλον, δουλεύοντας με αυτό το πρότυπο, θα εισάγουμε τα πιο πρόσφατα και πιο σχετικά δεδομένα σε αυτό.

Για να διαγράψετε όλα τα κελιά δεδομένων, κάντε δεξί κλικ στο εικονίδιο Επιλογή όλων, που βρίσκεται στην τομή των επικεφαλίδων γραμμής και στήλης και από το μενού περιβάλλοντος επιλέξτε το στοιχείο Διαγράφω(Διαγράφω).

Τώρα το φύλλο μας έχει καθαριστεί πλήρως από όλα τα δεδομένα, ενώ η μακροεντολή παραμένει καταγεγραμμένη. Πρέπει να αποθηκεύσουμε το βιβλίο εργασίας ως πρότυπο Excel με δυνατότητα μακροεντολής που έχει την επέκταση XLTM.

Σημαντικό σημείο!Εάν αποθηκεύσετε το αρχείο με την επέκταση XLTX, τότε η μακροεντολή δεν θα λειτουργήσει σε αυτήν. Παρεμπιπτόντως, μπορείτε να αποθηκεύσετε το βιβλίο εργασίας ως πρότυπο Excel 97-2003, το οποίο έχει τη μορφή XLT, υποστηρίζει επίσης μακροεντολές.

Μόλις αποθηκευτεί το πρότυπο, μπορείτε να κλείσετε με ασφάλεια το Excel.

Εκτέλεση μακροεντολής στο Excel

Πριν αποκαλύψετε όλες τις δυνατότητες της μακροεντολής που δημιουργήσατε, νομίζω ότι είναι σωστό να δώσουμε προσοχή σε μερικά σημαντικά σημεία σχετικά με τις μακροεντολές γενικά:

Οι μακροεντολές μπορεί να είναι επιβλαβείς.
Διαβάστε ξανά την προηγούμενη παράγραφο.

Ο κώδικας VBA είναι πολύ ισχυρός. Συγκεκριμένα, μπορεί να εκτελεί λειτουργίες σε αρχεία εκτός του τρέχοντος εγγράφου. Για παράδειγμα, μια μακροεντολή μπορεί να διαγράψει ή να αλλάξει οποιαδήποτε αρχεία σε έναν φάκελο Τα αρχεία μου. Για αυτόν τον λόγο, εκτελέστε και επιτρέψτε μακροεντολές μόνο από πηγές που εμπιστεύεστε.

Για να εκτελέσετε τη μακροεντολή μορφοποίησης δεδομένων, ανοίξτε το αρχείο προτύπου που δημιουργήσαμε στο πρώτο μέρος αυτού του σεμιναρίου. Εάν έχετε τυπικές ρυθμίσεις ασφαλείας, τότε όταν ανοίγετε ένα αρχείο, θα εμφανιστεί μια προειδοποίηση πάνω από τον πίνακα που υποδεικνύει ότι οι εκτελούμενες μακροεντολές είναι απενεργοποιημένες και ένα κουμπί για να ενεργοποιήσετε την εκτέλεσή τους. Αφού φτιάξαμε μόνοι μας το πρότυπο και εμπιστευόμαστε τον εαυτό μας, πατάμε το κουμπί Ενεργοποίηση περιεχομένου(Συμπεριλάβετε περιεχόμενο).

Το επόμενο βήμα είναι να εισαγάγετε το πιο πρόσφατο ενημερωμένο σύνολο δεδομένων από το αρχείο CSV(δημιουργήσαμε τη μακροεντολή μας με βάση ένα τέτοιο αρχείο).

Όταν εισάγετε δεδομένα από ένα αρχείο CSV, το Excel μπορεί να σας ζητήσει να διαμορφώσετε ορισμένες ρυθμίσεις για τη σωστή μεταφορά των δεδομένων στον πίνακα.

Όταν ολοκληρωθεί η εισαγωγή, μεταβείτε στο μενού Μακροεντολέςκαρτέλα (Μακροεντολές). Θέα(Προβολή) και επιλέξτε την εντολή Προβολή μακροεντολών(Μακροεντολές).

Στο παράθυρο διαλόγου που ανοίγει θα δούμε μια γραμμή με το όνομα της μακροεντολής μας FormatData. Επιλέξτε το και κάντε κλικ Τρέξιμο(Τρέξιμο).

Όταν αρχίσει να εκτελείται η μακροεντολή, θα δείτε τον δρομέα του πίνακα να μεταπηδά από κελί σε κελί. Μετά από μερικά δευτερόλεπτα, θα εκτελεστούν οι ίδιες λειτουργίες με τα δεδομένα όπως κατά την εγγραφή της μακροεντολής. Όταν όλα είναι έτοιμα, ο πίνακας θα πρέπει να μοιάζει με τον πρωτότυπο που διαμορφώσαμε χειροκίνητα, απλώς με διαφορετικά δεδομένα στα κελιά.

Ας δούμε κάτω από την κουκούλα: Πώς λειτουργεί μια μακροεντολή;

Όπως έχει αναφερθεί πολλές φορές, μια μακροεντολή είναι κώδικας προγράμματος σε μια γλώσσα προγραμματισμού Visual Basic για εφαρμογές(VBA). Όταν ενεργοποιείτε τη λειτουργία εγγραφής μακροεντολών, το Excel καταγράφει στην πραγματικότητα κάθε ενέργεια που κάνετε ως οδηγίες στο VBA. Με απλά λόγια, το Excel γράφει τον κώδικα για εσάς.

Για να δείτε αυτόν τον κωδικό προγράμματος, πρέπει να μεταβείτε στο μενού Μακροεντολέςκαρτέλα (Μακροεντολές). Θέα(Προβολή) κάντε κλικ Προβολή μακροεντολών(Μακροεντολές) και στο παράθυρο διαλόγου που ανοίγει, κάντε κλικ Επεξεργασία(Αλλαγή).

Θα ανοίξει ένα παράθυρο Visual Basic για εφαρμογές, στο οποίο θα δούμε τον κωδικό προγράμματος της μακροεντολής που καταγράψαμε. Ναι, σωστά καταλάβατε, εδώ μπορείτε να αλλάξετε αυτόν τον κωδικό και να δημιουργήσετε μια νέα μακροεντολή. Οι ενέργειες που πραγματοποιήσαμε με τον πίνακα σε αυτό το μάθημα μπορούν να καταγραφούν χρησιμοποιώντας αυτόματη εγγραφή μακροεντολών στο Excel. Όμως, οι πιο σύνθετες μακροεντολές, με λεπτώς συντονισμένη ακολουθία και λογική ενεργειών, απαιτούν μη αυτόματο προγραμματισμό.

Ας προσθέσουμε ένα ακόμη βήμα στην αποστολή μας...

Φανταστείτε ότι το αρχικό μας αρχείο δεδομένων data.csvδημιουργείται αυτόματα από κάποια διαδικασία και αποθηκεύεται πάντα στο δίσκο στο ίδιο σημείο. Για παράδειγμα, C:\Data\data.csv– διαδρομή προς το αρχείο με τα ενημερωμένα δεδομένα. Η διαδικασία ανοίγματος αυτού του αρχείου και εισαγωγής δεδομένων από αυτό μπορεί επίσης να καταγραφεί σε μια μακροεντολή:

Ανοίξτε το αρχείο προτύπου στο οποίο αποθηκεύσαμε τη μακροεντολή - FormatData.
Δημιουργήστε μια νέα μακροεντολή με το όνομα Φόρτωση Δεδομένων.
Κατά την εγγραφή μιας μακροεντολής Φόρτωση Δεδομένωνεισαγωγή δεδομένων από το αρχείο data.csv- όπως κάναμε στο προηγούμενο μέρος του μαθήματος.
Όταν ολοκληρωθεί η εισαγωγή, σταματήστε την εγγραφή της μακροεντολής.
Καταργήστε όλα τα δεδομένα από τα κελιά.
Αποθηκεύστε το αρχείο ως πρότυπο Excel με υποστήριξη μακροεντολών (επέκταση XLTM).

Έτσι, εκτελώντας αυτό το πρότυπο, έχετε πρόσβαση σε δύο μακροεντολές - η μία φορτώνει δεδομένα και η άλλη τα μορφοποιεί.

Εάν θέλετε να ασχοληθείτε με τον προγραμματισμό, μπορείτε να συνδυάσετε τις ενέργειες αυτών των δύο μακροεντολών σε μία - απλά αντιγράφοντας τον κώδικα από Φόρτωση Δεδομένωνστην αρχή του κώδικα FormatData.

Το εγχειρίδιο περιέχει μακροεντολές για τα ακόλουθα θέματα:
Εκτέλεση μακροεντολής για αναζήτηση κελιού.
Εκτελέστε μια μακροεντολή κατά το άνοιγμα ενός βιβλίου εργασίας.
Εκτελέστε μια μακροεντολή όταν εισάγετε "2" στο κελί.
Εκτελέστε μια μακροεντολή όταν πατάτε Enter.
Προσθέστε τη δική σας καρτέλα "Πρόσθετα" (Μορφή κελιού) στον πίνακα.
Εργασία με αρχεία (δηλαδή ανταλλαγή δεδομένων με TXT, RTF, XLS κ.λπ.).
Έλεγχος παρουσίας αρχείου στην καθορισμένη διαδρομή.
Αναζητήστε το απαιτούμενο αρχείο.
Αυτοματοποίηση διαγραφής αρχείων.
Δωρεάν κείμενο στη γραμμή κατάστασης.
Επαναφορά της γραμμής κατάστασης.
Συρόμενη γραμμή στη γραμμή κατάστασης.

Αλλάξτε γρήγορα τον τίτλο του παραθύρου.
Αλλαγή του τίτλου του παραθύρου (απόκρυψη του ονόματος αρχείου).
Επιστροφή στον αρχικό τίτλο.
Τι είναι ανοιχτό αυτή τη στιγμή.
Εργασία με αρχεία κειμένου.
Σύνταξη και ανάγνωση αρχείου κειμένου.
Επεξεργασία πολλαπλών αρχείων κειμένου.
Προσδιορισμός του τέλους μιας γραμμής σε ένα αρχείο κειμένου.
Αντιγραφή από αρχείο κειμένου στο Excel.

Αντιγραφή περιεχομένου σε αρχείο κειμένου.
Εξαγωγή δεδομένων σε txt.
Εξαγωγή δεδομένων σε html.
Εισαγάγετε δεδομένα που απαιτούν περισσότερες από 256 στήλες.
Δημιουργήστε αντίγραφα ασφαλείας πολύτιμων αρχείων.
Μετρώντας πόσες φορές έχει ανοίξει ένα αρχείο.
Εξαγωγή της διαδρομής του αρχείου στο ενεργό κελί.
Αντιγραφή των περιεχομένων ενός αρχείου RTF στο Excel.
Αντιγραφή δεδομένων από κλειστό βιβλίο εργασίας.
Εξαγωγή δεδομένων από κλειστό αρχείο.
Αναζήτηση λέξης σε αρχεία.
Δημιουργήστε ένα αρχείο κειμένου και εισαγάγετε κείμενο στο αρχείο.
Δημιουργήστε ένα αρχείο κειμένου και εισαγάγετε κείμενο (ανίχνευση τέλους αρχείου).
Δημιουργήστε έγγραφα του Word με βάση έναν πίνακα Excel.
Εντολές για τη δημιουργία και τη διαγραφή καταλόγων.
Λάβετε τον τρέχοντα κατάλογο.
Αλλαγή καταλόγου.

Προβολή όλων των αρχείων σε έναν κατάλογο.
Προβολή όλων των αρχείων σε έναν κατάλογο.
Χώρος εργασίας του Microsoft Excel.
ΤΕΤΡΑΔΙΟ ΕΡΓΑΣΙΩΝ.
Αριθμός ονομάτων βιβλίου εργασίας.
Προστασία βιβλίου εργασίας.
Απαγόρευση της εκτύπωσης βιβλίων.
Άνοιγμα βιβλίου (ή αρχείων κειμένου).
Ανοίξτε το βιβλίο και προσθέστε κείμενο στο κελί A1.
Πόσα βιβλία είναι ανοιχτά;
Κλείσιμο όλων των βιβλίων.
Κλείσιμο βιβλίου εργασίας μόνο όταν πληρούται μια προϋπόθεση.
Αποθηκεύει το βιβλίο εργασίας με ένα όνομα που αντιπροσωπεύει την τρέχουσα ημερομηνία.
Έχει αποθηκευτεί το βιβλίο εργασίας;
Δημιουργήστε ένα βιβλίο εργασίας με ένα φύλλο.
Δημιουργήστε ένα βιβλίο.
Αφαίρεση περιττών ονομάτων.
Γρήγορη αναπαραγωγή ενός βιβλίου εργασίας.
Ταξινόμηση φύλλων.
Εύρεση της μέγιστης τιμής σε όλα τα φύλλα του βιβλίου εργασίας.
Φύλλο εργασίας.
Έλεγχος εάν το φύλλο εργασίας είναι προστατευμένο.
Λίστα ταξινομημένων φύλλων.
Δημιουργήστε ένα νέο φύλλο.
Δημιουργήστε ένα νέο φύλλο.
Αφαίρεση φύλλων με βάση την ημερομηνία.
Αντιγραφή φύλλου σε βιβλίο.
Αντιγραφή φύλλου σε νέο βιβλίο εργασίας (δημιουργήθηκε).
Μετακίνηση φύλλου σε βιβλίο.
Μετακινήστε πολλά φύλλα σε ένα νέο βιβλίο εργασίας.
Αντικαταστήστε ένα υπάρχον αρχείο.
«Αναστροφή» του βιβλίου.
Εισαγάγετε μια κεφαλίδα και ένα υποσέλιδο με το όνομα του βιβλίου εργασίας, το φύλλο και την τρέχουσα ημερομηνία.
Υπάρχει το φύλλο;
Υπάρχει το φύλλο;
Εμφανίζει τον αριθμό των φύλλων στο ενεργό βιβλίο εργασίας.
Εμφανίζει τον αριθμό των φύλλων στο ενεργό βιβλίο εργασίας με τη μορφή υπερσυνδέσμων.
Εμφανίζει τα ονόματα των ενεργών φύλλων ένα προς ένα.
Εμφανίζει το όνομα και τους αριθμούς φύλλων του τρέχοντος βιβλίου.
Κάντε το φύλλο αόρατο.
Πόσες σελίδες υπάρχουν σε όλα τα φύλλα;
Κελί και εύρος (στήλες και σειρές).
Αντιγράψτε σειρές σε άλλο φύλλο.
Αντιγράψτε τις στήλες σε άλλο φύλλο.
Μετρά τον αριθμό των κελιών που περιέχουν τις καθορισμένες τιμές.
Μετρά τον αριθμό των κελιών σε μια περιοχή που περιέχουν τις καθορισμένες τιμές.
Μετρά τον αριθμό των ορατών κελιών σε μια περιοχή.
Προσδιορισμός του αριθμού των κελιών σε μια περιοχή και του αθροίσματος των τιμών τους.
Μετρώντας τον αριθμό των κελιών.
Αυτόματος επανυπολογισμός δεδομένων πίνακα όταν αλλάζουν οι τιμές τους.
Εισαγωγή δεδομένων σε κελιά.
Εισαγωγή δεδομένων με χρήση τύπων.
Εισαγωγή σειριακών δεδομένων.
Εισαγωγή δεδομένων κειμένου σε κελιά.
Εμφανίζει το όνομα του βιβλίου, το φύλλο και τον αριθμό των φύλλων στα κελιά.
Αφαίρεση κενών γραμμών.
Αφαίρεση κενών γραμμών.
Αφαίρεση κενών γραμμών.
Διαγραφή σειράς κατά συνθήκη.
Αφαίρεση κρυφών σειρών.
Αφαιρέστε τις χρησιμοποιημένες κρυφές ή μηδενικού ύψους σειρές.
Αφαίρεση διπλότυπων με χρήση μάσκας.

Επιλέγει μια περιοχή πάνω από το τρέχον κελί.
Επιλέξτε ένα κελί και τοποθετήστε έναν αριθμό εκεί.
Επισήμανση αρνητικών τιμών.
Επιλογή εύρους και χρήση απόλυτων διευθύνσεων.

Επιλογή κελιών κατά διαστήματα.
Επιλογή πολλαπλών περιοχών.
Κίνηση μέσω των κυττάρων.
Βρίσκει το πλησιέστερο κενό κελί σε μια στήλη.
Εύρεση της μέγιστης τιμής.
Αναζήτηση και αντικατάσταση με μοτίβο.
Αναζητήστε μια τιμή και εμφανίστε το αποτέλεσμα σε ξεχωριστό παράθυρο.

Αναζήτηση με επισήμανση των δεδομένων που βρέθηκαν.
Αναζήτηση κατά συνθήκη σε ένα εύρος.
Βρίσκει το τελευταίο μη κενό κελί σε μια περιοχή.
Βρίσκει το τελευταίο μη κενό κελί σε μια στήλη.
Βρίσκει το τελευταίο μη κενό κελί στη σειρά.
Αναζητήστε ένα μπλε κελί σε μια περιοχή.
Εύρεση αρνητικής τιμής σε ένα εύρος και επισήμανση με μπλε χρώμα.
Εύρεση της παρουσίας μιας τιμής σε μια στήλη.
Εύρεση αντιστοιχιών σε ένα εύρος.
Αναζήτηση για ένα κελί σε μια περιοχή.
Αναζήτηση για ένα κελί σε μια περιοχή.
Εύρεση μιας κατά προσέγγιση τιμής σε ένα εύρος.
Βρίσκει την αρχή και το τέλος μιας περιοχής που περιέχει δεδομένα.
Εύρεση της αρχής των δεδομένων.
Αυτόματη αντικατάσταση τιμών.
Γρήγορη πλήρωση εύρους (πίνακας).
Πλήρωση μέσω διαστήματος (πίνακας).
Συμπληρώνει το καθορισμένο εύρος (πίνακας).
Συμπληρώστε το εύρος (πίνακας).
Υπολογισμός του αθροίσματος των πρώτων τιμών του εύρους.
Τοποθέτηση σε κελί ηλεκτρονικού ρολογιού.
"Τρομάζω".
Σχεδιασμός των άνω και κάτω ορίων του εύρους.
Διεύθυνση ενεργού κελιού.
Συντεταγμένες του ενεργού κυττάρου.
Φόρμουλα ενεργών κυττάρων.
Λήψη τύπου από ένα κελί.
Τύπος δεδομένων κυψέλης.
Εξαγωγή της διεύθυνσης του τέλους του εύρους.
Λήψη πληροφοριών σχετικά με το επιλεγμένο εύρος.
Πάρτε τη λέξη με τον 13ο χαρακτήρα στο κελί.
Δημιουργία επεξεργάσιμης λίστας (πίνακας).
Ελέγξτε για κενή τιμή.
Διασταύρωση κελιών.
Πολλαπλασιάζοντας το επιλεγμένο εύρος με.
Πολλαπλασιάστε ταυτόχρονα όλα τα δεδομένα σε μια περιοχή.
Χωρίστε το εύρος σε.
Τετράγωνο κάθε κελιού στην περιοχή.
Συνοψίζει δεδομένα μόνο από ορατά κελιά.
Το άθροισμα των κελιών με αριθμητικές τιμές.
Κατά την άθροιση, ο κέρσορας βρίσκεται εντός του εύρους.

Συλλογισμός τόκων ανάλογα με το ποσό.
Συλλογισμός τόκων ανάλογα με το ποσό.
Συνοπτικό παράδειγμα υπολογισμού προμήθειας.
Κίνηση κατά μήκος της εμβέλειας.
Μετατόπιση από το επιλεγμένο κελί.
Επαναλάβετε μέσα από κελιά προς τα κάτω στη στήλη.
Δημιουργία γεμίσματος εύρους.
Επιλογή παραμέτρου κελιού.
Διαίρεση εύρους.
Συγχώνευση δεδομένων εύρους.
Συγχώνευση δεδομένων εύρους.
Μάθετε τη μέγιστη στήλη ή γραμμή.
Περιορισμός των πιθανών τιμών εύρους.
Δοκιμή του εύρους ταχύτητας ανάγνωσης και γραφής.
Ανοίξτε το MsgBox όταν είναι επιλεγμένο ένα κελί.
Απόκρυψη μιας σειράς.
Απόκρυψη πολλών σειρών.
Απόκρυψη στήλης.
Απόκρυψη πολλών στηλών.
Απόκρυψη μιας σειράς βάσει ονόματος κελιού.
Απόκρυψη πολλών σειρών ανά διευθύνσεις κελιών.
Απόκρυψη στήλης ανά όνομα κελιού.
Απόκρυψη πολλών στηλών ανά διευθύνσεις κελιών.
Το κελί αναβοσβήνει.
Εργασία με σημειώσεις.
Εμφανίζει όλες τις σημειώσεις στο φύλλο εργασίας.
Λειτουργία εξαγωγής σχολίων.
Λίστα σημειώσεων για προστατευμένα φύλλα.

Λίστα σημειώσεων σε ξεχωριστή λίστα.
Λίστα σημειώσεων σε ξεχωριστή λίστα.

Μετρώντας τον αριθμό των σημειώσεων.
Καταμέτρηση σημειώσεων.
Επιλέξτε κελιά με σχόλια.
Εμφάνιση όλων των σημειώσεων.
Αλλάξτε το χρώμα των σημειώσεων.
Προσθήκη σημειώσεων.
Προσθήκη σημειώσεων σε ένα εύρος με βάση την κατάσταση.
Μετακινήστε ένα σχόλιο σε ένα κελί και πίσω.

Μεταφορά τιμών από ένα κελί σε ένα σχόλιο.
Προσαρμοσμένες καρτέλες στην κορδέλα.
Προσθήκη γραμμής εργαλείων.
Προσθήκη κουμπιού στη γραμμή εργαλείων.
Πίνακας με ένα κουμπί.
Πίνακας με δύο κουμπιά.
Δημιουργία πίνακα στα δεξιά.

Δημιουργία προσαρμοσμένου μενού (επιλογή 1).
Δημιουργία προσαρμοσμένου μενού (επιλογή 2).
Δημιουργία προσαρμοσμένου μενού (επιλογή 3).
Δημιουργία προσαρμοσμένου μενού (επιλογή 4).
Δημιουργία προσαρμοσμένου μενού (επιλογή 5).
Δημιουργία προσαρμοσμένου μενού (επιλογή 6).
Δημιουργία λίστας στοιχείων του κύριου μενού του Excel.
Δημιουργία λίστας στοιχείων μενού περιβάλλοντος.
Εμφάνιση της γραμμής εργαλείων υπό συγκεκριμένες συνθήκες.
Απόκρυψη και εμφάνιση γραμμών εργαλείων.
Δημιουργήστε μια επεξήγηση εργαλείου για τα κουμπιά μου.
Δημιουργήστε ένα μενού με βάση τα δεδομένα του φύλλου εργασίας.
Δημιουργία μενού περιβάλλοντος.
Αποκλεισμός του μενού περιβάλλοντος.
Προσθήκη εντολής στο μενού Εργαλεία.
Προσθήκη εντολής στο μενού Προβολή.
Δημιουργία πίνακα λίστας.
Ένα καρτούν με πρωταγωνιστή έναν βοηθό.
Προσθέστε κείμενο, τίτλο, κουμπί και εικονίδιο στον βοηθό.
Νέες επιλογές βοηθού.
Χρησιμοποιώντας τον βοηθό για να επιλέξετε ένα χρώμα γεμίσματος.
ΔΙΑΛΟΓΙΚΑ ΠΑΡΑΘΥΡΑ.
Λειτουργία INPUTBOX (μέσω εισαγωγής τιμής).
Προεπισκόπηση κλήσης.
Ρύθμιση εισαγωγής δεδομένων στο παράθυρο διαλόγου.

Ανοίγει το πλαίσιο διαλόγου (Άνοιγμα αρχείου).
Ανοίγει το πλαίσιο διαλόγου (Εκτύπωση).
Άλλα παράθυρα διαλόγου.
Κλήση του προγράμματος περιήγησης από το Excel.
Πλαίσιο διαλόγου εισαγωγής δεδομένων.
Πλαίσιο διαλόγου ρυθμίσεων γραμματοσειράς.
Προεπιλεγμένες τιμές.
Μορφοποίηση κειμένου. Πίνακες. ΣΥΝΟΡΑ ΚΑΙ ΓΕΜΙΣΤΕ.
Εμφανίζει μια λίστα με τις διαθέσιμες γραμματοσειρές.
Επιλογή όλων των αριθμών από το κείμενο.
Χρησιμοποιήστε κεφαλαία μόνο στην αρχή του κειμένου.
Μετρώντας τον αριθμό των επαναλήψεων του κειμένου αναζήτησης.
Επιλογή αυθαίρετου στοιχείου από το κείμενο.
Εμφάνιση κειμένου προς τα πίσω.
Το αγγλικό κείμενο είναι με κεφαλαία γράμματα.
Εκκίνηση πίνακα συμβόλων από το Excel.
πληροφορίες για τον χρήστη, τον υπολογιστή, τον εκτυπωτή κ.λπ.
Λήψη ονόματος χρήστη.
Έξοδος ανάλυσης οθόνης.
Λάβετε πληροφορίες σχετικά με τον εκτυπωτή που χρησιμοποιείτε.
Προβολή πληροφοριών σχετικά με τις μονάδες δίσκου του υπολογιστή σας.
ΜΟΡΦΕΣ ΧΡΗΣΤΗ.
ΔΙΑΓΡΑΜΜΑΤΑ.
Δημιουργία γραφήματος με χρήση μακροεντολής.
Αποθήκευση του διαγράμματος σε ξεχωριστό αρχείο.
Δημιουργήστε και διαγράψτε ένα γράφημα με το πάτημα ενός κουμπιού.
Εμφανίστε μια λίστα διαγραμμάτων σε ξεχωριστό παράθυρο.
Εφαρμογή μιας τυχαίας παλέτας χρωμάτων.
Εφέ διαφάνειας γραφήματος.
Κατασκευάστε ένα γράφημα με βάση δεδομένα από πολλά φύλλα εργασίας.
Δημιουργήστε λεζάντες για δεδομένα γραφήματος.
ΔΙΑΦΟΡΕΤΙΚΑ ΠΡΟΓΡΑΜΜΑΤΑ.
Το πρόγραμμα για τη σύνθεση σταυρόλεξων.
Δημιουργήστε ένα εξώφυλλο DVD.
Παιχνίδι "Ναρκοπέδιο".
Παιχνίδι "Μάντεψε το ζώο."
Υπολογισμός με βάση κελιά συγκεκριμένου χρώματος.
ΑΛΛΕΣ ΣΥΝΑΡΤΗΣΕΙΣ ΚΑΙ ΜΑΚΡΟ.
Κλήση πλήκτρων λειτουργιών.
Υπολογισμός του αριθμητικού μέσου όρου.
Μετατροπή αριθμών σε «χρήματα».
Αναζητήστε την πλησιέστερη Δευτέρα.
Μετρώντας τον αριθμό των πλήρων ετών.
Υπολογισμός του σταθμισμένου μέσου όρου.
Μετατροπή του αριθμού του μήνα στο όνομά του.
Χρήση σχετικών συνδέσμων.
Μετατροπή πίνακα Excel σε μορφή HTML.
Γεννήτρια τυχαίων αριθμών.
Τυχαίοι αριθμοί - με βάση το εύρος.
Εφαρμογή μιας συνάρτησης χωρίς την εισαγωγή της σε κελί.
Καταμέτρηση ονομασμένων αντικειμένων.
Ενεργοποίηση αυτόματου φίλτρου με χρήση μακροεντολής.
Δημιουργώντας μια έρπουσα γραμμή.
Δημιουργία εικόνας που τρέχει.
Περιστρεφόμενα αυτόματα σχήματα.
Κλήση του πίνακα χρωμάτων.
Δημιουργία αριθμομηχανής.
Κλίση επωνύμου, ονόματος και πατρώνυμου.
ΗΜΕΡΟΜΗΝΙΑ ΚΑΙ ΩΡΑ.
Ημερομηνία και ώρα εξόδου.
Ημερομηνία και ώρα εξόδου.
Λήψη της ημερομηνίας συστήματος.
Ανάκτηση ημερομηνίας και ώρας.
Λειτουργία DateFull Η έκδοση του MS Office που χρησιμοποιείται δεν έχει καθοριστεί.

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

Ο ιστότοπος έχει ήδη πολλά άρθρα σχετικά με το VBA, μεταξύ των οποίων, αλλά νομίζω ότι θα είναι χρήσιμο να διατηρήσετε τα gadget κώδικα που χρησιμοποιούνται συχνά σε ένα μέρος.

Απενεργοποιήστε την εμφάνιση των ενεργειών μακροεντολής στην οθόνη με μια απλή λειτουργία. Αυτό όχι μόνο θα βελτιώσει την εκτέλεση οπτικά, αλλά θα επιταχύνει επίσης σημαντικά την εκτέλεση μακροεντολών.

Sub Makros1() Application.ScreenUpdating = 0 "Ο κωδικός σας Application.ScreenUpdating = 1 End Sub

Μην ξεχάσετε να συμπεριλάβετε τη συνάρτηση στο τέλος της μακροεντολής

Πώς μπορώ να αφαιρέσω την επιλογή αντιγραφής μετά την εκτέλεση μιας μακροεντολής;

Εάν τα έχετε όλα αυτά στη μακροεντολή σας, επιλέξτε μια περιοχή για αντιγραφή και επικόλληση. Μην ξεχάσετε να απενεργοποιήσετε την επιλογή στο τέλος της μακροεντολής

Sub Makros1() "Ο κωδικός σας Application.CutCopyMode = 0 End Sub

Χρήσιμες μακροεντολές. Πώς να βρείτε την τελευταία γραμμή ή στήλη ενός εύρους

Αυτή η κατασκευή θα σας βοηθήσει να βρείτε εύκολα τον αριθμό της τελευταίας γραμμής ή στήλης του συμπληρωμένου εύρους. Είναι ιδιαίτερα βολικό στη χρήση σε κύκλους, δεν χρειάζεται να καθορίσετε 1000 γραμμές κύκλου με περιθώριο, το ίδιο το Excel θα βρει πού χρησιμοποιεί αυτή την κατασκευή το τέλος του εύρους:

Sub makros1() Dim mLastRow As Long Dim nLastCol As Long mLastRow = Cells(Rows.Count, 1).End(xlUp).Row "Βρίσκει τον αριθμό της τελευταίας σειράς του συμπληρωμένου εύρους nLastCol= Κελιά(1, Columns.Count). End(xlToLeft ).Στήλη "Βρίσκει τον αριθμό της τελευταίας συμπληρωμένης στήλης στο εύρος End Sub

Επιπλέον, δηλώνω αμέσως τη μεταβλητή ως Long (μήκος 2.147.483.647) για να μην μπω σε μια κατάσταση όπου ο δημοφιλής Ακέραιος μπορεί να μην είναι αρκετός (32.767) για μεγάλα τραπέζια.

Θα πρέπει επίσης να προσέξετε ότι η αναζήτηση πραγματοποιείται στην πρώτη στήλη ή στην πρώτη σειρά, επιλέξτε τον επιθυμητό αριθμό για τον σωστό προσδιορισμό.

Για βρόχο και έλεγχο συνθηκών στον βρόχο

Εάν έχετε βρει τους αριθμούς της τελευταίας γραμμής και στηλών των περιοχών, μπορείτε να τους χρησιμοποιήσετε σε βρόχους. Για παράδειγμα, πρέπει να εκτελέσετε την πρώτη στήλη και να μετρήσετε τον αριθμό των κενών κελιών.

Sub makros1() Application.ScreenUpdating = 0 Dim mLastRow As Long Dim Kol As Long "Μετρήστε τη μεταβλητή Dim i As Long "Μεταβλητή βρόχου mLastRow = Cells(Rows.Count, 1).End(xlUp).Row Kol = 0 For i = 1 To mLastRow If Cells(i, 1).Value = "" Τότε Kol = Kol + 1 End If Next i MsgBox Kol Application.ScreenUpdating = 1 End Sub

Το Msgbox χρησιμοποιείται επίσης εδώ· χρησιμοποιώντας αυτήν τη δυνατότητα, μπορείτε να εμφανίσετε δεδομένα σε ξεχωριστό παράθυρο. Για το παράδειγμά μου θα μοιάζει με αυτό:

Υπολογισμός χρόνου εκτέλεσης μακροεντολών

Sub makros1() TimeStart = Now TimeFinish = Now MsgBox "Time: " & Format(TimeFinish - TimeStart, "h:mm:ss") End Sub

Το MsgBox παράγει το ακόλουθο αποτέλεσμα:

Είναι πολύ βολικό να παρακολουθείτε τον χρόνο εκτέλεσης των μακροεντολών για επακόλουθη βελτιστοποίηση.

Αυτές είναι χρήσιμες μακροεντολές που χρησιμοποιώ πολύ συχνά. Θα επεκτείνω σταδιακά αυτή τη λίστα. Αποτελεσματικός αυτοματισμός για όλους!

Μοιραστείτε το άρθρο μας στα κοινωνικά σας δίκτυα: