Πώς να δημιουργήσετε προσαρμοσμένες συναρτήσεις Excel; (με παραδείγματα)
Για να δημιουργήσουμε μια προσαρμοσμένη συνάρτηση, πρέπει να γράψουμε έναν κωδικό για τη λειτουργία των δικών μας συναρτήσεων, και αυτό ονομάζεται "UDF". Οι προσαρμοσμένες λειτουργίες είναι λειτουργίες που καθορίζονται από το χρήστη στο excel, οπότε για να δημιουργήσετε αυτές τις συναρτήσεις, πρέπει να γνωρίζετε καλά την κωδικοποίηση VBA.
Παράδειγμα # 1 - Προσθήκη οποιωνδήποτε δύο αριθμών
Για παράδειγμα, αν θέλετε να προσθέσετε δύο αριθμούς, τότε θα σας δείξουμε μια απλή συνάρτηση καθορισμένη από τον χρήστη (UDF).
- Πατήστε Alt + F11 και εισαγάγετε τη μονάδα.
- Γράψτε κώδικα σε μια ενότητα για να δημιουργήσετε μια προσαρμοσμένη λειτουργία.
Οποιαδήποτε προσαρμοσμένη συνάρτηση πρέπει να ξεκινά με τη λέξη "Function", ακολουθούμενη από το όνομα του τύπου.
Οποιαδήποτε συνάρτηση έχει τα ορίσματα ή τις παραμέτρους της παρόμοια με τις προσαρμοσμένες συναρτήσεις. πρέπει να καθορίσουμε αυτές τις παραμέτρους. Δεδομένου ότι προσθέτουμε μόνο δύο αριθμούς, ας καθορίσουμε αυτές τις παραμέτρους και να αντιστοιχίσουμε τύπους δεδομένων σε αυτές τις μεταβλητές ορίσματος.
Μόλις καθοριστούν οι παράμετροι με έναν τύπο δεδομένων, πρέπει επίσης να ορίσουμε τους τύπους δεδομένων αποτελεσμάτων αποτελεσμάτων. Ας ορίσουμε το αποτέλεσμα ως την τιμή "Ακέραιος".
Μέσα σε αυτήν τη «Διαδικασία Λειτουργίας», θα γράψουμε τον κωδικό τύπου.
Κώδικας:
Προσθήκη συνάρτησης (Num1 As Integer, Num2 As Integer) As Integer Additiona = Num1 + Num2 End Function
Αυτό λέει ότι το αποτέλεσμα της συνάρτησης "Προσθήκη" θα είναι το άθροισμα των τιμών Num1 και Num2.
- Τώρα επιστρέψτε στο φύλλο εργασίας και εισαγάγετε δύο ακέραιους αριθμούς.
- Θα προσθέσουμε αυτούς τους δύο αριθμούς τώρα. Ανοίξτε το σύμβολο ίσου και εισαγάγετε το όνομα προσαρμοσμένης λειτουργίας "Προσθήκη".
Επιλέξτε τον πρώτο και τον δεύτερο αριθμό εισάγοντας το διαχωριστικό ως κόμμα (,).
- Πατήστε το πλήκτρο enter για να λάβετε το αποτέλεσμα.
Ουάου!!! Όπως και η συνάρτηση SUM, έχουμε το αποτέλεσμα του αθροίσματος δύο αριθμών.
Τώρα, κοιτάξτε αυτούς τους αριθμούς.
Δοκιμάστε να προσθέσετε αυτούς τους δύο αριθμούς τώρα.
Λάβαμε την τιμή σφάλματος επειδή τα ορίσματα "Num1 & Num2" τύπος δεδομένων είναι "Integer", δηλαδή, αυτά τα δύο ορίσματα μπορούν να κρατήσουν τιμές μεταξύ -32767 και 32767, οπότε οτιδήποτε περισσότερο από αυτό θα προκαλέσει αυτά τα σφάλματα.
Τώρα δοκιμάστε να προσθέσετε αυτούς τους δύο αριθμούς.
Ακόμα και αυτό θα προκαλέσει κάτω από την τιμή σφάλματος.
Παρόλο που οι μεμονωμένες τιμές ορίσματος βρίσκονται εντός του ορίου του τύπου δεδομένων ακέραιου αριθμού, εξακολουθήσαμε να έχουμε αυτό το σφάλμα, επειδή το συνολικό άθροισμα αυτών των αριθμών υπερβαίνει την ακέραια οριακή τιμή.
Δεδομένου ότι έχουμε δηλώσει τον τύπο αποτελέσματος επίσης ως "ακέραιος", το αποτέλεσμα της προσθήκης δύο αριθμών θα πρέπει επίσης να είναι ένα ακέραιο όριο αριθμών.
Παράδειγμα # 2 - Προσθήκη όλων των μονών αριθμών
Το Excel δεν διαθέτει ενσωματωμένη λειτουργία, η οποία μπορεί να προσθέσει όλους τους περίεργους αριθμούς από τη λίστα αριθμών. Αλλά τίποτα να ανησυχείτε, θα δημιουργήσουμε μια προσαρμοσμένη λειτουργία excel για να το υποστηρίξουμε.
Ανοίξτε το παράθυρο του προγράμματος επεξεργασίας VBA και δώστε ένα όνομα στη διαδικασία λειτουργίας.
Δώστε την παράμετρο για αυτήν τη λειτουργία ως "Range".
Αυτό σημαίνει ότι για αυτήν τη συνάρτηση, παρέχουμε την τιμή εισόδου για αυτήν τη συνάρτηση ως το «Εύρος» τιμών κελιών.
Εφόσον πρέπει να βρούμε περισσότερα από ένα κελιά, πρέπει να χρησιμοποιήσουμε το βρόχο "For Every" στο VBA, οπότε ανοίξτε το loop For For Every.
Μέσα σε αυτόν τον βρόχο, προσθέστε τον παρακάτω κωδικό.
Κώδικας:
Λειτουργία AddOdd (Rng As Range) Για κάθε κελί σε Rng Εάν κελί. Τιμή Mod 2 0 Στη συνέχεια AddOdd = AddOdd + cell. Τιμή Επόμενο κελί Λειτουργία λήξης
Πρέπει να χρησιμοποιήσουμε τη λειτουργία "MOD" για να ελέγξουμε τον αριθμό. Όταν κάθε τιμή κελιού διαιρείται με τον αριθμό 2 και η υπόλοιπη τιμή δεν ισούται με μηδέν, τότε ο κώδικας μας θα πρέπει να προσθέτει όλες τις τιμές περίεργων αριθμών.
Τώρα επιστρέψτε στο φύλλο εργασίας και ανοίξτε την προσαρμοσμένη λειτουργία excel.
Επιλέξτε το εύρος αριθμών από A1 έως D8.
Πατήστε το πλήκτρο enter για να λάβετε το "μονό" αποτέλεσμα αριθμού. "
Έτσι, στην περιοχή A1 έως D8, έχουμε το άθροισμα των περιττών αριθμών είναι 84
Παράδειγμα # 3 - Προσθήκη όλων των ζυγών αριθμών
Ομοίως, η παρακάτω συνάρτηση θα προσθέσει όλους τους ζυγούς αριθμούς.
Κώδικας:
Λειτουργία AddEven (Rng ως εύρος) για κάθε κελί σε Rng Εάν κελί. Αξία Mod 2 = 0 Στη συνέχεια AddEven = AddEven + κελί. Τιμή Επόμενη λειτουργία τελικού κελιού
Αυτή η συνάρτηση θα προσθέσει μόνο έναν ζυγό αριθμό. Σε αυτήν την περίπτωση, χρησιμοποιήσαμε τη λογική εάν κάθε τιμή κελιού διαιρείται με 2 και το υπόλοιπο είναι μηδέν, τότε ο κώδικας θα προσθέσει μόνο αυτές τις τιμές κελιού.
Έτσι, χρησιμοποιώντας την κωδικοποίηση VBA, μπορούμε να δημιουργήσουμε δικές μας προσαρμοσμένες λειτουργίες.
Πράγματα που πρέπει να θυμάστε
- Η δημιουργία προσαρμοσμένων συναρτήσεων δεν είναι παρά λειτουργίες καθορισμένες από το χρήστη.
- Για να δημιουργήσετε προσαρμοσμένες λειτουργίες, θα πρέπει να έχετε γνώση των προηγμένων δεξιοτήτων κωδικοποίησης VBA.
- Κατά τη δημιουργία των προσαρμοσμένων συναρτήσεων excel, είναι σημαντικό να παρακολουθείτε τα επιχειρήματα και τους τύπους δεδομένων τους.
