Πώς να βρείτε τη Μέση Αριθμός Τρεις αριθμοί σε VBA

Visual Basic for Applications ( VBA ) είναι ένα εργαλείο προγραμματισμού που επιτρέπει στους χρήστες του Microsoft Office για να δημιουργήσετε προσαρμοσμένες λειτουργίες και μακροεντολές . Μια εφαρμογή , όπως το Excel μπορεί να " καλέσει " αυτές τις λειτουργίες και μακροεντολές για να εκτελεί επαναλαμβανόμενες εργασίες πολύ γρήγορα . Το Excel διαθέτει πολλές ενσωματωμένες λειτουργίες που μπορείτε να χρησιμοποιήσετε για να πάρετε το ποσό , μέση τιμή , ελάχιστη τιμή ή τη μέγιστη τιμή μιας ομάδας numbers.Sometimes , μια ενσωματωμένη λειτουργία δεν είναι διαθέσιμη για την απαιτούμενη εργασία . Αυτό είναι όταν μια προσαρμοσμένη συνάρτηση μπορεί να είναι χρήσιμη . Οδηγίες
Η 1

Προγραμματίστε τη λειτουργία . Η λειτουργία θα έχει τρεις αριθμούς και θα παράγει ένα αποτέλεσμα που είναι η μέση τιμή . Θα χρειαστείτε ένα όνομα το οποίο στη συνέχεια θα είναι διαθέσιμες στο Excel κάτω από την κατηγορία " ορίζονται από το χρήστη " . Ένα παράδειγμα θα μπορούσε να είναι : . FindMidValue

Θα χρησιμοποιήσετε «επιχειρήματα» για να μεταφέρει τους αριθμούς από το Excel με τη λειτουργία . Αυτά είναι τα ονόματα των μεταβλητών που καθορίζονται μέσα σε παρένθεση μετά το όνομα της συνάρτησης . Ας υποθέσουμε ότι οι τρεις αριθμοί για την αξιολόγηση είναι Α, Β και C. Το πλήρες όνομα της συνάρτησης θα είναι :

FindMidValue ( Α , Β , Γ ) 2

Σχεδιάστε τη λογική . Αυτή είναι η σειρά των βημάτων η συνάρτηση θα χρησιμοποιήσει για να πραγματοποιήσει την εργασία. Σκεφτείτε τα επιμέρους βήματα που θα πρέπει να ακολουθήσετε για να εκτελέσει το έργο αυτό με το χέρι . Για παράδειγμα , ποιες είναι οι πιθανοί συνδυασμοί των τριών αριθμών και πώς θα βρεθεί η μέση τιμή για κάθε

Για παράδειγμα , εάν οι αριθμοί είναι B , A , C σε σειρά χαμηλότερη στην υψηλότερη : συγκρίνετε μεταβλητή Α σε Β ? Αν το Α είναι μεγαλύτερο , το συγκρίνουμε με C ? Αν C είναι μεγαλύτερο , Α πρέπει να είναι η μέση τιμή . Η λειτουργία θα πρέπει επίσης να ασχοληθεί με όλες τις εναλλακτικές λύσεις . Τι θα συμβεί αν το Α είναι μεγαλύτερο από το Β και Β είναι μεγαλύτερο από C ; Στη συνέχεια, η ακολουθία είναι C , B , A και η μέση τιμή είναι B.
εικόνων 3

Γράψτε τη λειτουργία . Η πρώτη αναφορά δίνει λεπτομέρειες για το πώς να έχουν πρόσβαση στο πρόγραμμα επεξεργασίας της Visual Basic στο Excel 2010, όπου μπορείτε να γράψετε τη λειτουργία . Η δεύτερη αναφορά δίνει μερικούς γενικούς κανόνες για τη συγγραφή του « σεναρίου » ή οδηγίες για τις μακροεντολές και τις λειτουργίες . Το ακόλουθο script θα δημιουργήσει μια προσαρμοσμένη συνάρτηση που ονομάζεται " FindMidValue " :

FindMidValue Λειτουργία ( Α , Β , Γ )

« γραμμές προηγείται « Οι πιθανοί συνδυασμοί σχόλια

» είναι « bac , ταξί , abc , ΑΚΩ , η ACB , bca

«

Αν ( α <Β ) Στη συνέχεια

« a είναι μικρότερο από β

Αν ( Α > = C ) τότε περίπτωση

FindMidValue = Α ' καμπίνα

GoTo 100

Else

Αν ( Β <= Γ) Στη συνέχεια

FindMidValue = Β ' abc

GoTo 100

End If

FindMidValue = Γ' ACB

GoTo 100

End If

Else

« a είναι μεγαλύτερο ή ίσο με β

Αν ( α <= Γ ) Στη συνέχεια,

FindMidValue = Α ' bac

GoTo 100

Else

Αν ( Β > = Γ ) Στη συνέχεια

FindMidValue = B « cba

GoTo 100

End If

FindMidValue = C ' bca

End If

End If

100 Function End
Η 4

Debug τη λειτουργία . Debugging αναφέρεται στη διαδικασία ελέγχου της λειτουργίας για να βεβαιωθείτε ότι λειτουργεί όπως θα έπρεπε και να διορθώσετε τυχόν λάθη σας αποκαλύψει . Σε αυτήν την περίπτωση , χρησιμοποιήστε τη λειτουργία σε Excel με τα τρία επιχειρήματα αναφέρονται σε τρία κελιά με αριθμούς σε αυτές. Αλλάξτε τους αριθμούς στα κελιά για να δούμε αν η λειτουργία επιλέγει το σωστό μεσαίο αριθμό κάθε φορά .
Η
εικόνων