Excel και σπάσιμο νεύρων.pls help

[Xvipes]

http://rapidshare.de/files/20369778/auto_einai_to_lathos.xls.html

 

το παραπανω φυλλο excel εχει αρκετες τιμες απο τις οποιες εγω θελω να βγαλω για καθε 24 τιμες το μεσο ορο τους.το προβλημα ειναι οτι αν κανω την συνθηκη =average(Α1:Α24) και μετα τραβηξω το κελι προς τα κατω για να μου κανει για τις υπολοιπες τιμες το μ.ο τους μου ξεκιναει απο το κελι Α2:Α25,Α3:Α26 κ.ο.κ

ενω εγω θελω τα υπολοιπα κελια να γινονται σαν Α25:Α:49 κ.ο.κ

δεν ξερω αν μπορω να γινω κατανοητος μεσα απο το forum αλλα ειστε η μοναδικη μου ελπιδα...

για οποιαδηποτε απορια πειτε μου να σας εξηγησω... thnx

[savabk]

dokimase auto kai pes an sou kanei.

auto_insurt.zip

[Xvipes]

σε ευχαριστω παρα πολυ!ειδα τι εχεις κανει στην μακρο αλλα αυτο που δεν καταλαβα ειναι αυτο το μερος ActiveCell.FormulaR1C1 = "=AVERAGE(R[0]C[-1]:R[23]C[-1])" τα R[0]C[-1]:R[23]C[-1] τι δηλωνουν?το ρωταω αυτο γιατι εχω καποιες εργσιουλες που αμα βρω τον τροπο που τον εκανες θα με σωσουν!μην ρωταω σε καθε εργασια μεσα στο φορουμ.εαν π.χ αντι για 24 κελια θελω να επιλεγει 3 συγκεκριμενα καθε 24 κελια?τι πρεπει να αλλαξω εκει μεσα

σε ευχαριστω και παλι..

[savabk]

Sub auto_average()

 

For I = 2 To 10000

' orizis mexri pia grammi 8a trexi ton kodika

 

Range("B" & I).Select

' to proto ActiveCell opou 8a grafti to proto AVERAGE

 

ActiveCell.FormulaR1C1 = "=AVERAGE(R[0]C[-1]:R[23]C[-1])"

' R1C1 simeni R1 ->row1 C1->column1

' "ActiveCell.FormulaR1C1" simeni "grapse sto epilegmeno keli"

' ti ?

' an exoume ActiveCell "B10" to stigma 8a einai R[0]C[0] kai 8eloume na

' anafertoume sto "A11" 8a grapsoume R[1]C[-1]

' sto "B12" 8a grapsoume R[2]C[0]

 

I = I + 23

' orizis to vima gia ta epomena ActiveCell .PX I = I + 3 8a isagei AVERAGE

ana 4 grammes

 

If Range("A" & I).Value = 0 Then Exit Sub

' an i lista sou exei teliosi vgeni apo to vroxo

 

Next I

 

End Sub

 

Sorry gia to griklish.

Gia na katalaves pos doulevei alaze to 23 sta dio simia tou kodika me kapio allo aritmo.

Pistevo na voi8isa.An oxi as analavi kapios me kalitera ellinika

[Xvipes]

εισαι αρχοντας .με βοηθησες πολυ!δεν θελω κατι αλλο,θα τα βρω μονος μου τα υπολοιπα...νασε καλα φιλε

[kounoupi]

Άλλος τρόπος χωρίς macro αν κατάλαβα καλά

Στην στήλη Α αφήνεις τις τιμές όπως τις έχεις ήδη. Στην στήλη Β θες τους μέσους όρους ανά 24 σειρές.

1) Στο κελί Β1 γράψε =AVERAGE(Α1:Α24)

2) Επέλεξε τα κελιά Β1:Β24

3) Τράβηξε προς τα κάτω και σου φτιάχνει τους σωστούς μέσους όρους αλλά με 23 σειρές κενές

4) Επέλεξε όλη την στήλη Β (κάνεις κλικ πάνω στο Β) και πας:

Edit --> Go To --> Special --> Blanks --> OK

Δεξί κλικ σε κάποιο κενό κελί της στήλης Β και Delete --> Shift Cells Up --> OK

Αυτό ήθελες?