Άθροισμα σε EXCEL

[drew]

Γειά χαρά.Ήθελα να ρωτήσω αν υπάρχει καποια συνάρτηση στο excel με την οποία να μπορώ απο μια στήλη με 500 στοιχεία να προσθέτω το Α5+Α10+Α15+... δηλαδή ανα πέντε στοιχεία. Ευχαριστώ!

[yiapap]

Βάλε το παρακάτω στο παράθυρο VB του φύλου που θέλει να αθροίσεις

Sub SumInt()
Dim i, lInterval As Long
Dim col As Integer
Dim dSum As Double
col = 1 ' column to add
lInterval = 5 ' row interval
dSum = 0
i = 1
Do
    dSum = dSum + Cells(i, col)
    i = i + lInterval
Loop Until Cells(i, col) = ""
Cells(1, col + 1) = dSum ' show result on 1st row of column+1
End Sub

Το τρέχεις είτε με το κουμπάκι Run από τον VB Editor είτε από το μενού View->Macros->View Macro
Οι παράμετροι είναι η col (η στήλη που θέλεις να αθροίσεις A=1, B=2, C=3 κτλ.) και το διάστημα lInterval που θέλεις να αθροίζεις.
Μετά το τέλος το άθροισμα θα εμφανιστεί στη γραμμή 1, μια στήλη δεξιά της επιθυμητής.

[drew]

Σωστος!Ευχαριστώ!