Excel και VBasic (...Πιθανόν)

[Adavis]

Έχω ένα αρχείο στο Excel με 30 φύλλα εργασίας και θέλω στο 30ο φύλλο στην θέση D10 να παίρνει τις τιμές του κελιού D10 απο τα υπόλοιπα 29 φύλλα και να βρίσκει τον μέσο όρο (ή απλά το άθροισμά τους και μετά να το διαιρώ εγώ με το 29)...

 

Υπάρχει κάποιος τρόπος να γίνει αυτό πιό γρήγορα απο να κάνω χειροκίνητα ένα ένα το άθροισμα όλων των κελιών...

 

Σας ευχαριστώ πολύ!!!

[Typhoon]

Σίγουρα γίνεται με VB.

Να προσθέσεις στα reference του project σου το κατάλληλο library φυσικά.

 

Workbooks.Open Filename:= "Το path του αρχείου σου"

 

Workheets(30).Cells(10,4).Value = (Worksheets(1).Cells(10,4).Value + Worksheets(2).Cells(10,4).Value + ..... Worksheets(29).Cells(10,4).Value)/29

 

Workbooks(1).Close(SaveChanges)

[Dionisos]

Σίγουρα γίνεται με VB.

Να προσθέσεις στα reference του project σου το κατάλληλο library φυσικά.

 

Workbooks.Open Filename:= "Το path του αρχείου σου"

 

Workheets(30).Cells(10' date='4).Value = (Worksheets(1).Cells(10,4).Value + Worksheets(2).Cells(10,4).Value + ..... Worksheets(29).Cells(10,4).Value)/29

 

Workbooks(1).Close(SaveChanges)[/quote']

 

Mia allagh, epeidh an eixe 290 fylla 8a kourazotan sto copy paste, as xrhsimopoihsei For loop.

 

>
Dim sum as Integer
for i=1 to 29
  sum = sum + Worksheets(i).cells(10,4).value
next i
Worksheets(30).cells(10,4).value = sum/29

 

Filika

Dionisos

[Dangelo]

basika mporeis na to kaneis para poli apla kai xwris VB mesa apo to excel kateytheian... an grapseis tin parakatw synarthsh...

 

=SUM(Φύλλο1:Φύλλο2!A1) gia athrisma

=(SUM(Φύλλο1:Φύλλο2!A1))/2 gia meso oro se 2 fylla...