Άθροισμα αριθμών στην επιλογή -

Συνοψίζει όλους τους αριθμούς στην επιλεγμένη περιοχή και τοποθετεί το άθροισμα στο "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterate through each cell in select For Every cell In Selection' Προσθέστε την τιμή στη μεταβλητή άθροισμα άθροισμα = άθροισμα + κελί. Τιμή Επόμενα κελιά κελιού (1, 1) = άθροισμα Τέλος Υπο