Σχηματίστε το άθροισμα μιας πλήρους στήλης μέσω VBA

Anonim

Προσθέστε τα δεδομένα και εισαγάγετε το αποτέλεσμα χρησιμοποιώντας μια μακροεντολή

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

Αλλά πώς μπορείτε να δημιουργήσετε ένα σύνολο από μια μακροεντολή χωρίς να χρειάζεται να γράψετε την κατάλληλη συνάρτηση SUM σε ένα κελί; Φανταστείτε ότι θέλετε να συνοψίσετε όλους τους αριθμούς στη στήλη Β. Αυτό το άθροισμα πρέπει να γραφτεί στο ενεργό κελί. Χρησιμοποιήστε την ακόλουθη μακροεντολή:

Sub AddCompleteColumn ()
ActiveCell.Value = WorksheetFunction.Sum (Στήλες (2))
Τέλος υπο

Εάν θέλετε να γράψετε το αποτέλεσμα της συνάρτησης σε ένα σταθερό κελί (π.χ. κελί Α1), αντικαταστήστε την έκφραση ActiveCell με Εύρος ("A1") και χρησιμοποιήστε τη διεύθυνση κελιού της επιλογής σας.

Ορίζετε ποια στήλη πρόκειται να προστεθεί χρησιμοποιώντας την παράμετρο πίσω ΣτήλεςΤο Οι στήλες αριθμούνται από αριστερά προς τα δεξιά, η στήλη Α έχει τον αριθμό 1.

Το παρακάτω σχήμα δείχνει πώς φαίνεται το αποτέλεσμα αν ξεκινήσετε τη συνάρτηση σε έναν πίνακα:

Συμβουλή: Αν θέλετε να μάθετε πώς να εισάγετε και να ξεκινάτε μακροεντολές στο Excel, θα βρείτε μια σύντομη περιγραφή εδώ: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html