Πώς υπολογίζετε το άθροισμα των τιμών σε μια στήλη excel χρησιμοποιώντας το Visual Basic;

Επιλογή ρητή

Δήλωση μεταβλητής εύρους.

Dim rng As Range

' Αρχικοποίηση μεταβλητής εύρους.

rng =Εύρος ("A1:A10")

Αρχικοποίηση μεταβλητής αθροίσματος.

Dim sum As Long

άθροισμα =0

' Υπολογίστε το άθροισμα των τιμών στο εύρος.

Για κάθε κελί σε rng

άθροισμα =άθροισμα + κελί

Επόμενο κελί

' Εμφάνιση του αθροίσματος των τιμών στο εύρος.

Debug.Print "Το άθροισμα των τιμών στην περιοχή A1:A10 είναι" &άθροισμα

```