Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA που δημιουργεί ένα κυλιόμενος μέσος πίνακας. Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε την ακόλουθη γραμμή κώδικα:
Εύρος ("B3"). Value = WorksheetFunction.RandBetween (0, 100)
Αυτή η γραμμή κωδικού εισάγει έναν τυχαίο αριθμό μεταξύ 0 και 100 στο κελί B3. Θέλουμε το Excel VBA να λάβει τη νέα αξία της μετοχής και να την τοποθετήσει στην πρώτη θέση του κυλιόμενου μέσου πίνακα. Όλες οι άλλες τιμές πρέπει να μετακινηθούν προς τα κάτω κατά ένα μέρος και η τελευταία τιμή πρέπει να διαγραφεί.
Δημιουργία συμβάντος αλλαγής φύλλου εργασίας. Ο κώδικας που προστέθηκε στο συμβάν αλλαγής φύλλου εργασίας θα εκτελεστεί από το Excel VBA όταν αλλάξετε ένα κελί σε ένα φύλλο εργασίας.
1. Ανοίξτε το Visual Basic Editor.
2. Κάντε διπλό κλικ στο Sheet1 (Sheet1) στο Project Explorer.
3. Επιλέξτε φύλλο εργασίας από την αριστερή αναπτυσσόμενη λίστα. Επιλέξτε Αλλαγή από τη δεξιά αναπτυσσόμενη λίστα.
Προσθέστε τις ακόλουθες γραμμές κώδικα στο συμβάν αλλαγής φύλλου εργασίας:
4. Δηλώστε μια μεταβλητή που ονομάζεται newvalue του τύπου Integer και δύο εύρη (firstfourval και lastfourvalues).
Dim newvalue As Integer, firstfourvalues As Range, lastfourvalues As Range
5. Το συμβάν αλλαγής φύλλου εργασίας ακούει όλες τις αλλαγές στο Φύλλο1. Θέλουμε μόνο το Excel VBA να κάνει κάτι εάν αλλάξει κάτι στο κελί B3. Για να το επιτύχετε, προσθέστε την ακόλουθη γραμμή κώδικα:
Εάν Target.Address = "$ B $ 3" Τότε
6. Αρχικοποιούμε τη νέα τιμή με την τιμή του κελιού B3, τις πρώτες τέσσερις τιμές με το εύρος ("D3: D6") και τις τελευταίες τιμές με το εύρος ("D4: D7").
newvalue = Εύρος ("B3"). Τιμή
Ορισμός πρώτων τιμών = Εύρος ("D3: D6")
Ορισμός lastfourvalues = Range ("D4: D7")
7. Τώρα έρχεται το απλό κόλπο. Θέλουμε να ενημερώσουμε τον κυλιόμενο μέσο πίνακα. Μπορείτε να το επιτύχετε αντικαθιστώντας τις τέσσερις τελευταίες τιμές με τις τέσσερις πρώτες τιμές του πίνακα και τοποθετώντας τη νέα αξία μετοχής στην πρώτη θέση.
lastfourvalues.Value = firstfourvalues.Value
Εύρος ("D3"). Τιμή = νέα τιμή
8. Μην ξεχάσετε να κλείσετε τη δήλωση if.
Τέλος εαν
9. Τέλος, εισαγάγετε τον τύπο = AVERAGE (D3: D7) στο κελί D8.
10. Δοκιμάστε το πρόγραμμα κάνοντας κλικ στο κουμπί εντολών.
