Αυτό το σεμινάριο θα σας διδάξει πώς να καλέσετε μια συνάρτηση από μια δευτερεύουσα διαδικασία στο VBA.
Όταν δημιουργείτε μια συνάρτηση στο VBA, μπορείτε είτε να χρησιμοποιήσετε τη συνάρτηση ως UDF (Συνάρτηση καθορισμένη από το χρήστη) στο Βιβλίο εργασίας του Excel ή μπορείτε να την καλέσετε από μια Υποδικασία.
Κλήση συνάρτησης από διαδικασία Sub
Μόλις δημιουργήσετε μια συνάρτηση, μπορείτε να την καλέσετε από οπουδήποτε αλλού στον κώδικά σας χρησιμοποιώντας μια διαδικασία Sub για να καλέσετε τη συνάρτηση.
Εξετάστε την παρακάτω συνάρτηση:
| 123 | Λειτουργία GetValue () ως ακέραιοςGetValue = 50Λειτουργία Τέλους |
Επειδή οι συναρτήσεις επιστρέφουν μια τιμή, για να καλέσουμε τη συνάρτηση, πρέπει να περάσουμε την τιμή σε κάτι. Σε αυτήν την περίπτωση, θα περάσουμε την τιμή σε μια μεταβλητή:
| 123456789 | Sub TestValues ()Dim intVal ως ακέραιος"εκτελέστε τη συνάρτηση GetValueintVal = GetValue ()και να δείξει την τιμήMsgBox intValΤέλος υπο |
Κλήση συνάρτησης με παραμέτρους
Εάν η συνάρτηση έχει παραμέτρους, θα χρειαστεί να περάσετε αυτές τις παραμέτρους από τη Διαδικασία υπο στη Συνάρτηση για να επιστρέψετε τη σωστή τιμή.
| 123 | Λειτουργία GetValue (intA ως ακέραιος) Ως ακέραιοςGetValue = intA * 5Λειτουργία Τέλους |
Για να καλέσετε αυτήν τη συνάρτηση, μπορούμε να εκτελέσουμε την ακόλουθη υποδιαδικασία.
| 123 | Sub TestValues ()MsgBox GetValue (10)Τέλος υπο |
Αυτή η υποδιαδικασία θα στείλει την τιμή 10 στη συνάρτηση, η οποία με τη σειρά της θα πολλαπλασιάσει αυτήν την τιμή με 5 και θα επιστρέψει την τιμή στο 50 στην υποδιαδικασία.
