Αυτό το σεμινάριο θα σας δείξει πώς να χρησιμοποιήσετε το Analysis ToolPak στο VBA.
Το Analysis ToolPak στο Excel είναι ένα πρόσθετο που δημιουργήθηκε για να σας επιτρέψει να κάνετε περίπλοκη ανάλυση δεδομένων. Εάν θέλετε να καλέσετε αυτές τις λειτουργίες σε κώδικα VBA, πρέπει να ενεργοποιήσετε το πρόσθετο Analysis ToolPak-VBA.
Ενεργοποίηση του πρόσθετου
Κάνε κλικ στο Αρχείο Μενού και, στη συνέχεια, κάντε κλικ στο Επιλογές, πρόσθετα.
Κάνε κλικ στο Πηγαίνω κουμπί.
Βεβαιωθείτε ότι το Ανάλυση ToolPak-VBA είναι επιλεγμένο και κάντε κλικ στο OK.
Τώρα θα μπορείτε να καλέσετε τις λειτουργίες που περιέχονται στο Excel Analysis ToolPak από το VBA.
Χρήση του κινούμενου μέσου όρου στο VBA
Εξετάστε το ακόλουθο φύλλο εργασίας.
Για να χρησιμοποιήσετε μια λειτουργία από το πρόσθετο, πρέπει να χρησιμοποιήσετε Εφαρμογή. Εκτέλεση και στη συνέχεια το όνομα της συνάρτησης που θέλετε να καλέσετε.
Για να υπολογίσετε τον κινητό μέσο όρο στη στήλη F, μπορείτε να γράψετε τον ακόλουθο κώδικα.
123456789 | Sub CalculateMovingAverage ()Dim rngΕισαγωγή ως εύροςDim rngOutPut As Range«συμπληρώστε τις περιοχέςΟρισμός rngInput = Εύρος ("E6: E10")Ορισμός rngOutPut = Εύρος ("F6: F10")'κλήση της συνάρτησης από το πρόσθετοApplication.Run "Moveavg", rngInput, rngOutPut,, False, True, FalseΤέλος υπο |
Εάν δεν θέλετε να πραγματοποιήσετε χρέωση, τροποποιήστε τη γραμμή Application.Run σε αυτό
1 | Application.Run "Moveavg", rngInput, rngOutPut,, False, False, False |