/ / / Προσαρμοσμένου μέσου συνάρτησης στο Excel VBA

Μέθοδος προσαρμοσμένου μέσου στο Excel VBA

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

Κατάσταση:

Μέθοδος προσαρμοσμένου μέσου στο Excel VBA

Οι λειτουργίες που ορίζονται από το χρήστη πρέπει να τοποθετηθούν σε μια ενότητα.

1. Ανοίξτε τον Επεξεργαστή Visual Basic και κάντε κλικ στην επιλογή Εισαγωγή, Ενότητα.

2. Προσθέστε την ακόλουθη γραμμή κώδικα:

Function CUSTOMAVERAGE(rng As Range, lower As Integer, upper As Integer)

Το όνομα της Λειτουργίας μας είναι CUSTOMAVERAGE. Το τμήμα μεταξύ των βραχιόνων σημαίνει ότι δίνουμε στο VBA ένα εύρος τιμών και δύο μεταβλητές ακεραίων ως είσοδο. Ονομάζουμε το φάσμα rng, μία μεταβλητή Integer που ονομάζουμε χαμηλότερη και μία μεταβλητή Integer που ονομάζουμε άνω, αλλά μπορείτε να χρησιμοποιήσετε οποιαδήποτε ονόματα.

3. Στη συνέχεια, δηλώνουμε ένα αντικείμενο Range και δύο μεταβλητές τύπου Integer. Ονομάζουμε κυψέλη αντικειμένων εύρους. Μία μεταβλητή ακέραιων που ονομάζουμε σύνολο και μια μεταβλητή Αειφόρου που καλούμε μετράνε.

Dim cell As Range, total As Integer, count As Integer

4. Θέλουμε να ελέγξουμε κάθε κύτταρο σε μια τυχαία επιλεγμένη περιοχή (αυτή η περιοχή μπορεί να είναι οποιουδήποτε μεγέθους). Στο Excel VBA, μπορείτε να χρησιμοποιήσετε το βρόχο For Each Next για αυτό. Προσθέστε τις ακόλουθες γραμμές κώδικα:

For Each cell In rng

Next cell

Σημείωση: Το rng και το κελί επιλέγονται τυχαία εδώ, μπορείτε να χρησιμοποιήσετε οποιαδήποτε ονόματα. Θυμηθείτε να ανατρέξετε σε αυτά τα ονόματα στον υπόλοιπο κωδικό σας.

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

If cell.Value >= lower And cell.Value <= upper Then
    total = total + cell.Value
    count = count + 1
End If

6. Για να επιστρέψετε το αποτέλεσμα αυτής της λειτουργίας (τον επιθυμητό μέσο όρο), προσθέστε την ακόλουθη γραμμή κώδικα έξω από το βρόχο.

CUSTOMAVERAGE = total / count

7. Μην ξεχάσετε να τερματίσετε τη λειτουργία. Προσθέστε τη γραμμή:

End Function

8. Τώρα μπορείτε να χρησιμοποιήσετε αυτήν τη λειτουργία όπως ακριβώς και οποιαδήποτε άλλη λειτουργία Excel για να υπολογίσετε τον μέσο όρο των αριθμών που εμπίπτουν μεταξύ δύο τιμών.

Αποτέλεσμα:

Αποτέλεσμα προσαρμοσμένου μέσου όρου

Ως έλεγχος, μπορείτε να διαγράψετε όλες τις τιμές που είναιχαμηλότερη από 10 και μεγαλύτερη από 30 και χρησιμοποιήστε την τυπική Μέση συνάρτηση στο Excel για να δείτε αν το Excel υπολογίζει τον ίδιο μέσο όρο με τη συνήθη μέση συνάρτηση.

Έλεγχος προσαρμοσμένου μέσου όρου λειτουργίας

Η συνήθης μέση λειτουργία μας λειτουργεί! Σημείωση: αυτή η λειτουργία είναι διαθέσιμη μόνο σε αυτό το βιβλίο εργασίας.

Επίσης διαβάστε: