Πώς να Υπολογίστε το μέσο όρο μια στήλη σε VBA

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

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και επιλέξτε " Microsoft Office ", " Microsoft Visual Basic for Applications . " 2

Κάντε κλικ στο " Άνοιγμα ", " νέο "για να δημιουργήσετε το σενάριο VBA για τον υπολογισμό μέσου όρου της στήλης στη βάση δεδομένων της Access
εικόνων 3

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

Sub ColumnAvg ( )

Dim Rng Όπως Σειρά

Dim i Όπως Long

Σετ Rng = Range ( " B1 : B3 " )

Για i = 3 έως 12

κύτταρα ( i , "C" ) . Value = ColumnFunction.Round _

( ColumnFunction.Sum ( Rng ) /3 , 0 )

Σετ Rng = Rng.Offset ( 1 , 0 )

Επόμενο i

End Sub
Η

4 Κάντε κλικ στο " Αρχείο ", " Αποθήκευση " για να αποθηκεύσετε το σενάριο VBA για τον υπολογισμό του μέσου όρου του " B " στήλη .
Η
εικόνων