Xvipes Δημοσ. 13 Μαΐου 2006 Share Δημοσ. 13 Μαΐου 2006 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 Δημοσ. 14 Μαΐου 2006 Share Δημοσ. 14 Μαΐου 2006 dokimase auto kai pes an sou kanei. auto_insurt.zip Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
Xvipes Δημοσ. 14 Μαΐου 2006 Μέλος Share Δημοσ. 14 Μαΐου 2006 σε ευχαριστω παρα πολυ!ειδα τι εχεις κανει στην μακρο αλλα αυτο που δεν καταλαβα ειναι αυτο το μερος ActiveCell.FormulaR1C1 = "=AVERAGE(R[0]C[-1]:R[23]C[-1])" τα R[0]C[-1]:R[23]C[-1] τι δηλωνουν?το ρωταω αυτο γιατι εχω καποιες εργσιουλες που αμα βρω τον τροπο που τον εκανες θα με σωσουν!μην ρωταω σε καθε εργασια μεσα στο φορουμ.εαν π.χ αντι για 24 κελια θελω να επιλεγει 3 συγκεκριμενα καθε 24 κελια?τι πρεπει να αλλαξω εκει μεσα σε ευχαριστω και παλι.. Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
savabk Δημοσ. 14 Μαΐου 2006 Share Δημοσ. 14 Μαΐου 2006 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 Δημοσ. 14 Μαΐου 2006 Μέλος Share Δημοσ. 14 Μαΐου 2006 εισαι αρχοντας .με βοηθησες πολυ!δεν θελω κατι αλλο,θα τα βρω μονος μου τα υπολοιπα...νασε καλα φιλε Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
kounoupi Δημοσ. 15 Μαΐου 2006 Share Δημοσ. 15 Μαΐου 2006 Άλλος τρόπος χωρίς macro αν κατάλαβα καλά Στην στήλη Α αφήνεις τις τιμές όπως τις έχεις ήδη. Στην στήλη Β θες τους μέσους όρους ανά 24 σειρές. 1) Στο κελί Β1 γράψε =AVERAGE(Α1:Α24) 2) Επέλεξε τα κελιά Β1:Β24 3) Τράβηξε προς τα κάτω και σου φτιάχνει τους σωστούς μέσους όρους αλλά με 23 σειρές κενές 4) Επέλεξε όλη την στήλη Β (κάνεις κλικ πάνω στο Β) και πας: Edit --> Go To --> Special --> Blanks --> OK Δεξί κλικ σε κάποιο κενό κελί της στήλης Β και Delete --> Shift Cells Up --> OK Αυτό ήθελες? Συνδέστε για να σχολιάσετε Κοινοποίηση σε άλλες σελίδες άλλες επιλογές
Προτεινόμενες αναρτήσεις
Αρχειοθετημένο
Αυτό το θέμα έχει αρχειοθετηθεί και είναι κλειστό για περαιτέρω απαντήσεις.