Πώς να υπολογίσετε Μέσοι όροι σε VBA

VBA ( Visual Basic for Applications ), περιλαμβάνει την ικανότητα να γράφουν οδηγίες δημιουργώντας μια μακροεντολή που θα μιμούνται τη χρήση ενός υπολογιστή για να εισάγετε μια σειρά από αριθμούς και στη συνέχεια να υπολογίσει το μέσο όρο . Ο κώδικας έχει μήκος μόνο 13 γραμμές . Θα μπορούσε να είναι χρήσιμη σε ορισμένα από τα προγράμματα του Microsoft Office χωρίς ενσωματωμένη αριθμομηχανή . Από το Excel περιλαμβάνει κατά μέσο όρο λειτουργία , δεν θα υπήρχε λόγος για να χρησιμοποιήσετε αυτήν τη μακροεντολή στο Excel . Ωστόσο , όπως σε αυτό το παράδειγμα , όπου η μακροεντολή είναι χτισμένο σε Microsoft Word , μπορεί να έχει κάποιο νόημα . Οδηγίες
Η

1 Ανοίξτε ένα πρόγραμμα του Microsoft Office που υποστηρίζει VBA ( Visual Basic for Applications ) . Για αυτό το παράδειγμα , χρησιμοποιούν το Microsoft Word. 2

Κάντε κλικ στο " Developer ", ακολουθούμενο από το " Visual Basic ", η οποία είναι εισηγμένη στο αριστερό άκρο ενός μενού που εμφανίζεται στην ομάδα προγραμματιστών . Αυτό ανοίγει το παράθυρο επεξεργασίας VBA
εικόνων 3

Εισάγετε τις παρακάτω γραμμές κώδικα ακριβώς όπως εμφανίζονται παρακάτω : .

Sub AverageMyNumbers ( ) Dim strData ως stringDim i , sglNbr , sglSubT , sglAverage Όπως Singlei = 0Do Μέχρι strData = "X " strData = InputBox ( " Πληκτρολογήστε τους αριθμούς που πρέπει να κατά μέσο όρο , ένα κάθε φορά , πατώντας " Enter " για να συνεχίσετε στον επόμενο αριθμό . Εισάγετε ένα κεφάλαιο X , όταν γίνει. " ;) sglNbr = Val ( strData ) sglSubT = sglNbr + sglSubTi = i + = 1LoopsglAverage sglSubT /( i - 1 ) MsgBox ( " Ο μέσος όρος των αριθμών αυτών είναι " & sglAverage ) End Sub
Η 4

Δοκιμάστε την ακρίβεια του προγράμματος από την εισαγωγή μια σειρά από αριθμούς σε χαρτί , συνολικού ύψους αυτών , και διαιρώντας με τον αριθμό των μεμονωμένων στοιχείων . Πατήστε το πλήκτρο " F5 " για να εκτελέσετε τη μακροεντολή και να υπολογίσει κατά μέσο όρο . Ακολουθήστε τις οδηγίες και εισαγάγετε την ίδια σειρά αριθμών , που τελειώνει με ένα κεφάλαιο X. Αν τα αποτελέσματα δεν ταιριάζουν , ελέγχουν την ακρίβεια του κώδικα που έχετε εισάγει , συγκρίνοντάς την με βήμα 3 .
5

Κάντε κλικ στο " Μακροεντολές " στο έγγραφο του Word . Αποθηκεύστε τη μακροεντολή στο " Normal.dotm " αν θέλετε να το χρησιμοποιήσετε σε όλα τα έγγραφα του Word . Υπάρχουν, όπως η εξοικονόμηση για χρήση μόνο στο ενεργό έγγραφο , αποθήκευση ως μέρος ενός συγκεκριμένου προτύπου , ή αποθήκευση σε όλες τις ενεργές άλλα πρότυπα και έγγραφα επιλογές .
Η
εικόνων