VBA του Excel: τα προγράμματα του δείγματος. Μακροεντολών στο Excel

y = x1 + x1 ^ 2 + 3 * x1 ^ 3 - Cos (x1)

Κύτταρα (i, 1) .Value = x1 (τιμή x1 γραμμένο στη μνήμη με τις συντεταγμένες (i, 1))

Κύτταρα (i, 2) .Value = y (τιμή y είναι γραμμένο στο κύτταρο με τις συντεταγμένες (i, 2))

i = i + 1 (έγκυρη μέτρηση)?

x1 = x1 + shag (επιχείρημα μεταβάλλεται με το μέγεθος βήματος)?

βρόχος

End Sub.

Ως αποτέλεσμα αυτής της μακρο κίνηση «Excel» ληφθούν δύο στήλες, η πρώτη των οποίων καταγράφονται οι τιμές για το Χ, και το δεύτερο - σε y.

Στη συνέχεια, το χρονοδιάγραμμα είναι σε θέση να αξιοποιήσει αυτά, το πρότυπο για «Excel».

ΠΑΡΑΔΕΙΓΜΑ 3

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

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

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

Για i = 1 έως 10 Επόμενη

Η εντολή μεταφέρεται στο «ανθρώπινο» γλώσσα, όπως «επαναλαμβάνεται από 1 έως 10 σε βήματα της μίας.»

Αν το έργο να λάβει την στήλη με τετράγωνα, για παράδειγμα, όλα τα περίεργα ακέραιοι μεταξύ 1 και 11, γράφουμε:

Για i = 1 έως 10 βήμα 1 Επόμενη.

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

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

Σε γενικές γραμμές, ο κώδικας θα μοιάζουν:

Υπο το πρόγραμμα ()

Για i = 1 έως 10 Βήμα 1 (μπορεί να γραφεί μόνο για i = 1 έως 10)

Κύτταρα (i, 1) .Value = i ^ 2 (δηλ τετράγωνο τιμή γράφεται μέσα στο κύτταρο (i, 1) i)

Επόμενη (κατά μία έννοια παίζει το ρόλο των μέσων μετρητή και ενός άλλου έναρξης κύκλου)

End Sub.

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

ΠΑΡΑΔΕΙΓΜΑ 4

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

Εξετάστε τη συγκεκριμένη περίπτωση. Ας υποθέσουμε ότι θέλετε να δημιουργήσετε μια μακροεντολή για «Excel» στο κελί με τις συντεταγμένες (1,1) έχει καταγραφεί:

1 αν η παράμετρος είναι θετικό?

0 αν η παράμετρος είναι μηδέν?

1, εάν η παράμετρος είναι αρνητική.

Η δημιουργία ενός τέτοιου μακροεντολών για «Excel» ξεκινά με τυποποιημένο τρόπο, μέσω της χρήσης των «καυτό» πλήκτρα Alt και F11. Περαιτέρω γράψει τον παρακάτω κωδικό:

Υπο το πρόγραμμα ()

x = Κύτταρα (1, 1) .Value (Αυτή η εντολή αναθέτει την τιμή των συντεταγμένων x των περιεχομένων κυττάρων (1, 1))

Αν x> 0 Τότε Κύτταρα (1, 1) .Value = 1

Εάν το x = 0 Τότε Κύτταρα (1, 1) .Value = 0

Αν χ <0 Τότε Κύτταρα (1, 1) .Value = -1

End Sub.

Μένει να εκτελέσετε μια μακροεντολή και να πάρει το «Excel» επιθυμητή τιμή για το επιχείρημα.

λειτουργίες VBA

Όπως ίσως έχετε παρατηρήσει, το πιο διάσημο πρόγραμμα εφαρμογή λογιστικών φύλλων Microsoft δεν είναι πάρα πολύ δύσκολο. Ειδικά αν μπορείτε να μάθετε πώς να χρησιμοποιείτε τις λειτουργίες VBA. Συνολικά, αυτή η γλώσσα προγραμματισμού που δημιουργήθηκε ειδικά για τη συγγραφή εφαρμογών σε «Excel» και το Word, περίπου 160 λειτουργίες. Μπορούν να χωριστούν σε διάφορες μεγάλες ομάδες. Αυτά είναι:

• Μαθηματικές συναρτήσεις. Η εφαρμογή τους στο επιχείρημα της αξίας συνημίτονο λαμβάνεται, το φυσικό λογάριθμο, και έτσι όλο το κομμάτι.
• Οικονομικές λειτουργίες. Λόγω της διαθεσιμότητας και της χρήσης των προγραμμάτων τους στο Excel, μπορείτε να πάρετε αποτελεσματικά εργαλεία για τη λογιστική και οικονομική οικισμούς.
• λειτουργίες επεξεργασίας Array. Αυτές περιλαμβάνουν Array, IsArray? LBound? UBound.
• VBA του Excel λειτουργία για τη γραμμή. Αυτή είναι μια αρκετά μεγάλη ομάδα. Περιλαμβάνει, για παράδειγμα, η λειτουργία Διάστημα για να δημιουργήσει μια σειρά με έναν αριθμό κενών ίσο με το ακέραιο επιχείρημα ή Asc σύμβολα μεταφορές σε κώδικα ANSI. Όλοι τους είναι ευρέως διαδεδομένη και σας επιτρέπουν να συνεργαστεί με χορδές στο «Excel» για να δημιουργήσουν εφαρμογές πολύ πιο εύκολο να εργαστεί με αυτούς τους πίνακες.
• συναρτήσεις μετατροπής τύπου δεδομένων. Για παράδειγμα, cvar επιστρέφει επιχείρημα Έκφραση, μετατρέποντας το σε Variant τύπο δεδομένων.
• Ημερομηνία λειτουργίες. Θα επεκτείνει σε μεγάλο βαθμό τα βασικά χαρακτηριστικά της «Excel». Έτσι, η λειτουργία WeekdayName επιστρέφει το όνομα (πλήρη ή μερική) από την ημέρα της εβδομάδας, με βάση τον αριθμό του. Ακόμη πιο χρήσιμο είναι το χρονόμετρο. Δίνει τον αριθμό των δευτερολέπτων που έχουν περάσει από τα μεσάνυχτα σε μια συγκεκριμένη στιγμή της ημέρας.
• Λειτουργία για να μετατρέψετε ένα αριθμητικό επιχείρημα των διαφόρων συστημάτων αριθμό. Για παράδειγμα, Οκτ εξάγει σε οκταδικό αναπαράσταση του αριθμού.
• λειτουργίες μορφοποίησης. Η πιο σημαντική από αυτές είναι η μορφή. Επιστρέφει μια παραλλαγή με μια έκφραση μορφοποιημένη σύμφωνα με τις οδηγίες που δίνονται στην περιγραφή της μορφής.
• και ούτω καθεξής.

Η μελέτη των ιδιοτήτων αυτών των λειτουργιών και η εφαρμογή τους θα διευρύνει σημαντικά το πεδίο εφαρμογής της «Excel».

ΠΑΡΑΔΕΙΓΜΑ 5

Ας προσπαθήσουμε να λύσουμε πιο σύνθετα προβλήματα. Για παράδειγμα:

έντυπο έγγραφο Dan το πραγματικό επίπεδο του κόστους της έκθεσης επιχείρησης. απαιτεί:

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

Σκεφτείτε μία από τις παρακάτω λύσεις.

Η δημιουργία ενός προτύπου

Όλες οι ενέργειες που εκτελούνται σε ένα πρότυπο φύλλο στο Excel. Δωρεάν κύτταρα που προορίζονται για την εισαγωγή δεδομένων σχετικά με τις μήνας, έτος, οι εταιρείες τίτλο-καταναλωτή, το ποσό των εξόδων, το επίπεδο του κύκλου εργασιών. Καθώς ο αριθμός των επιχειρήσεων (επιχειρήσεις), για τις οποίες η έκθεση δεν έχει καταγραφεί, τα κύτταρα για να κάνουν επί τη βάσει των αξιών και των επαγγελματικών όνομα δεν είναι κράτηση εκ των προτέρων. Φύλλο εργασίας ανατεθεί σε ένα νέο όνομα. Για παράδειγμα, «Օ Έκθεση».

μεταβλητές

Για να γράψετε το πρόγραμμα συμπληρώνει αυτόματα στο πρότυπο, επιλέξτε το συμβολισμό. Θα πρέπει να χρησιμοποιούνται για τις μεταβλητές:

• NN- αριθμό της τρέχουσας γραμμής του πίνακα?
• TP και TF - προγραμματισμένη και πραγματική κύκλου εργασιών?
• SF και SP - πραγματική και προγραμματισμένη συνολικό κόστος?
• IP και IF - προγραμματισμένη και σε επίπεδο πραγματικού κόστους.

Συμβολίζουμε με τα ίδια γράμματα, αλλά με ένα «πρόθεμα» συνολικής συσσώρευσης Itog για αυτή τη στήλη. Για παράδειγμα, ItogTP - Όσον αφορά τη στήλη με τίτλο, όπως «την προγραμματισμένη κύκλου εργασιών.»

Λύση του προβλήματος με τη χρήση προγραμματισμού VBA

Χρησιμοποιώντας αυτό το συμβολισμό, παίρνουμε τον τύπο για τη διακύμανση. Αν θέλετε να πραγματοποιηθεί ο υπολογισμός σε% έχουμε (F - P) / P * 100, και στο ποσό των - (F - P).

Τα αποτελέσματα αυτών των υπολογισμών μπορεί να είναι καλύτερο απλά να «Excel» υπολογιστικό φύλλο στα κατάλληλα κύτταρα.

Για την έκβαση και την πρόγνωση στην πραγματικότητα λαμβάνεται από τους τύπους ItogP = ItogP + Ρ και ItogF = ItogF + F.

Για αποκλίσεις χρησιμοποιήστε = (ItogF - ItogP) / ItogP * 100 αν ο υπολογισμός πραγματοποιείται ως ποσοστό, και αν η συνολική αξία - (ItogF - ItogP).

Τα αποτελέσματα για άλλη μια φορά καταγράφονται στα κατάλληλα κύτταρα, έτσι δεν υπάρχει καμία ανάγκη να τους τοποθετεί σε μεταβλητές.

Πριν από την έναρξη για να δημιουργήσει ένα πρόγραμμα που θέλετε να αποθηκεύσετε το βιβλίο εργασίας, για παράδειγμα, με την ονομασία «Otchet1.xls».

Πατήστε το «Δημιουργία πίνακα αναφοράς,» θα πρέπει να πατήσετε μόνο 1 χρόνο μετά την εισαγωγή των πληροφοριών μπάλα. Θα πρέπει να γνωρίζετε και άλλους κανόνες. Ειδικότερα, το κουμπί «Προσθήκη γραμμής» πρέπει να πιεστεί κάθε φορά μετά την είσοδό του στον πίνακα των τιμών για κάθε δραστηριότητα. Μετά την εισαγωγή όλων των δεδομένων που απαιτούνται για να πατήσετε το κουμπί «Τέλος» και, στη συνέχεια, μεταβείτε στο «Excel» στο παράθυρο.

Τώρα που ξέρετε πώς να λύσει το πρόβλημα για το Excel με μακροεντολές. Η ικανότητα να χρησιμοποιούν VBA Excel (βλέπε δείγμα προγραμμάτων. Παραπάνω) και μπορεί να χρειαστεί να εργαστούν στο περιβάλλον από τα πιο δημοφιλή αυτή τη στιγμή, τον επεξεργαστή κειμένου «Λόγος». Ειδικότερα, με την καταγραφή, όπως φαίνεται στην αρχή αυτού του άρθρου, ή γράφοντας κώδικα για να δημιουργήσουν τα κουμπιά μενού μέσω του οποίου πολλές από τις εργασίες σχετικά με το κείμενο μπορεί να γίνει πατώντας τα πλήκτρα στο καθήκον ή από το εικονίδιο «Προβολή» και στην καρτέλα «Μακροεντολές».