apostolos55

ST2, ορθή η παρατήρησή σου για τα ημερομίσθια έγγαμου/άγαμου ήταν: =(J18-933100)*100+IF(J12="Άγαμος";1;2)*10+J16 το σωστό: =(J18-933100)*100+IF(J12=1;1;2)*10+J16 (λογικά θα είναι μικρότερη τιμή στον Άγαμο) Μετέπειτα ορθά παρατήρησες ότι κολλάει λόγω του ονόματος του έργου. Άλλαξε όλο το module1 με το επισυναπτόμενο (Alt+F11 ... remove module - no export και μετά insert module...). Πλέον α) όταν το μέγεθος των δεδομένων είναι μεγαλύτερο του επιτρεπτού θα κόβει το δεξί περίσσευμα, αλλά με μήνυμα λάθους. και β) δεν κολλάει όπως πριν και βγάζει πιο κατανοητό μήνυμα λαθών! Προσπαθεί να πιάνει αποκλίσεις από τα απαιτούμενα του ΙΚΑ, αλλά πάντα να εφαρμόζετε και τον έλεγχο πριν την υποβολή, και φυσικά ότι βλέπουμε το διορθώνουμε πριν κολλήσει!!! Module1 (gia Michanikos.gr_IkaApd 02).zip

Είμαι ένα μοναχικό και μόνο threadaki, στη άγρια Ελλαδίτσα... Ή πολύ τέλειο είναι το πρόγραμμα, ή κανείς δεν το καταλαβαίνει. Κοντεύει τα 1200 downloads και ούτε ένα σχόλιο βελτίωσης-αλλαγών Συνάδελφοι, όσοι το έχετε δει και έχετε κάτι να προτείνεται είμαι ανοιχτός...

Έλεος πια, δεν μπορούν οι άχρηστοι να βγάλουν κάτι που να ισχύει? Όχι να ισχύει από σήμερα μέχρι αύριο, αλλά να ΙΣΧΥΕΙ! Δηλαδή πάντα θα είμαστε όποιος προλάβει και όποιος ακούει ειδήσεις? Τι θα πει μέχρι τότε και τι θα πει όποιος παρανόμησε μέχρι τότε... δεν είμαστε όλοι το ίδιο σε αυτή τη χώρα? Γιατί μας βάζουν συνέχεια σε τέτοια τρυπάκια? Δηλαδή συγχωρούμε όσους παρανόμησαν και όταν χρειαστούμε κάτι (€€€€€) θα ξανασυγχωρέσουμε εκ νέου κάτι άλλο?!?! Και τότε ο νόμιμος γιατί να μην παρανομήσει και αυτός???

Ασχολήθηκα λίγο ακόμα, και ιδού! νομίζω ότι λύνει τέλεια το ζητούμενο αφού μετά τις προσθήκες μεταφορών φτιάχνει και τα PageBreaks (τα οποία είναι πολύ δύστροπα!!!) Δες επισυναπτόμενο. Πατάει στο προηγούμενο αλλά με βελτιώσεις και προσθήκες, οπότε καλύτερα φτιάξε τα κελιά όπως σου είπα (δες πως τα έχω στο επισυναπτόμενο) και αντικατέστησε ολόκληρη τη ρουτίνα Αλλαγές στη VBA κάνεις μόνο στα αρχικά "HeaderPrntLines" και "RowsInSheet" όπως σε βολεύει (καλύτερα να βάλεις λίγο μικρότερα από τα μέγιστα). Ο κώδικας ήταν ελλιπής, βλέπεις με pagebreaks δεν έχω ξαναδουλέψει... Τώρα νομίζω είναι ΟΚ και για πολύ μεγάλα αρχεία, και σε Landscape Στη VBA αλλάξτε την προτελευταία γραμμή στη Sub MakeMySheets από ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 σε If ActiveSheet.VPageBreaks.Count > 0 Then ActiveSheet.VPageBreaks(1).DragOff Direction:=xlToRight, RegionIndex:=1 Michanikos - Page transitions etc Office 07.zip Michanikos - Page transitions etc Office 03.zip

Ιδέα! α) κάνεις όλες τις γραμμές ισοπαχείς (πχ row heigh=15 ) β) διορθώνεις τις πάνω πάνω που έχουν τις επικεφαλίδες (ωσ και τα νούμερα στήλης) γ) ορίζεις εκτύπωση με τις γραμμές του β) ως επικεφαλίδες (page setup / sheet / [rows at top]=$1:$8 ) δ) κάνεις δοκιμαστική εκτύπωση ή προεπισκόπηση για να δείς που κόβει. Λογικά το κόψιμο θα είναι ανά σταθερό αριθμό γραμμών ε) πας vba (Alt+F11) και New Module ... copy paste το παρακάτω Sub MakeMySheets() Dim RowI As Long, ApoI As Long, seI As Long, RowsInSheet As Long, InPageI As Long Dim Ka8arh As Double, Posofpa As Double, Synolo As Double Dim Cellval As Double ' Dwse tis dikes sou times sta tria epomena RowI = 9: InPageI = 9 RowsInSheet = 40 Do Cellval = Cells(RowI, 9) If Cellval = 0 Then Exit Do Ka8arh = Ka8arh + Cells(RowI, 9) Posofpa = Posofpa + Cells(RowI, 10) Synolo = Synolo + Cells(RowI, 12) If InPageI = RowsInSheet Then Rows(RowI + 1).Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Cells(RowI + 1, 8 ) = "Se metafora": Cells(RowI + 1, 9) = Ka8arh: Cells(RowI + 1, 10) = Posofpa: Cells(RowI + 1, 12) = Synolo Cells(RowI + 2, 8 ) = "Apo metafora": Cells(RowI + 2, 9) = Ka8arh: Cells(RowI + 2, 10) = Posofpa: Cells(RowI + 2, 12) = Synolo RowI = RowI + 3: InPageI = 1 Else RowI = RowI + 1 InPageI = InPageI + 1 End If Loop End Sub ζ) Σώζεις με 2 διαφορετικά ονόματα (ότι αλλαγές γίνονται με VBA δεν έχουν undo) η) μέσα στο VBA SUB αλλάζεις το "' Dwse tis dikes sou times sta tria epomena ... " από 40 σε ότι βρήκες με βήμα δ), και αντίστοιχα τα RowI, InPageI θ) τρέχεις και τσεκάρεις... ...ελπιζω να σου κάνει κάτι τέτοιο

α) δουλεύει κανονικότατα η getif() σε στήλες και γραμμές, και ανάμεικτα. Άλλωστε χρησιμοποιεί τις λίστες ανεξάρτητα προέλευσης. Δες http://www.michanikos.gr/downloads.php?do=file&id=1344 για οδηγίες και την καλή έκδοση. (ενδέχεται αυτή μέσα σε ΑΠΔ να την έχω προσαρμόσει ή να είναι παλιότερη ) β) Γενικές οδηγίες για εφαρμογή λύσης σε VBA * αν αλλάζεις και φύλλα τότε σου χρειάζονται οι {windows() , windows(i).count , windows(i).caption (για όνομα) ,windows(i).activate ... klp} * για sheets αντίστοιχα: {sheets() , sheets(i).select , sheets(i).activate, sheets(i).name, sheets(i).cells(RowI,ColumnJ) ...κλπ} * με κάποιους βρόγχους (do...loop, for each __ in __ ...next, for ... next) την cells(i,j).formular11c1="Α1+Α2" , την IF...Then, την Instr() μπορείς να κάνεις θαύματα Δε θα μπω παραμέσα γιατί χρειάζεται δουλειά ή λύση σου. Τα εργαλεία που σου έδωσα έχουν καλή βοήθεια-υποστήριξη από το help & examples. Η γνώμη μου όμως είναι αν δεν κατέχεις καλά vba να μην το παλέψεις μόνος

τρόποι υπάρχουν, αλλά πρέπει να ξέρουμε τη μορφή... στείλε ένα μέρος τουλάχιστον ή αν θεσ να μην φαίνονται στοιχεία τότε ένα αντίγραφο, που να έχει τις ίδιες θέσεις με τα προτότυπα και μια περιγραφή του τι θεσ να κάνεις. Ενδεικτικά να σου πώ ότι αν είναι σε ίδιες θέσεις σε διαφορετικά φύλλα τότε χρειάζεσαι οπωσδήποτε VBA. Το βασικό είναι να βρεθεί κάτι κοινό ώστε να μειωθούν τα ψαξίματα...

Παρόλο που με εκπλήσει η ταχύτητα και η ώρα της απάντησης του gvarth να σημειώσω ότι το ερώτημα έχει τεθεί νωρίτερα στο #117 και απαντηθεί στο #118, στο ίδιο ακριβώς Θέμα (thread)!!

Καλημέρα και καλή εβδομάδα Ανέβασα το ανανεωμένο αρχείο υπολογισμού προστίμων εδώ: http://www.michanikos.gr/downloads.php?do=file&id=1393 Χρήσιμο και για κολπάκια Excel. Οι μακροεντολή μπορεί να απενεργοποιηθεί χάνοντας τον αυτοματισμό να βγάζει εμβαδόν από πράξη υπολογισμού, για όσους προσέχουν. τελευταίες αλλαγές: 5/10/2010: Αλλαγή στο Trap (sheet"DATA") ώστε να μην κολλάει η μακροεντολή από προσθαφαίρεση ακριανής γραμμής Υπολογίζει παράβολα και βγάζει αναλυτική πληρωμή!! 6/9/2010: Δόση: 1/6 από 1/16 Αμοιβή Μηχανικών και >10ετίας Αλλαγή α/α (A3) σε ΟΚ για σωστή μέτρηση αμοιβών (και πριν σωστά μέτραγε αλλά το α/α ήθελε διόρθωση μετά από προσθήκη γραμμών...) 13/12/2010: Προσθήκη κρατήσεων μηχανικού (ΕΜΠ-ΤΣΜΕΔΕ-ΤΕΕ-Χαρτ/μο). Δυνατότητα αλλαγής δόσεων αν επιτραπεί από νομοθέτη Μερικές μορφοποιήσεις στα αποτελέσματα και στα σχόλια Διόρθωση ρουτίνας VBA ώστε όταν σβήνουμε την περιγραφή να μην σβύνεται το εμβαδό στο διπλανό κελί Χαιρετώ συναδελφικά

Ένας απλός τρόπος είναι με Data Validation. Δες συνημμένο για βοήθεια Data Validation example.zip

Εδώ και καιρό υπάρχει αυτό: http://www.michanikos.gr/downloads.php?do=file&id=1031 Είναι δωρεάν, ανοιχτό και δουλεύει πάνω σε Excel. Παράγει αρχείο έτοιμο προς υποβολή. Σχόλια & προτάσεις εδώ: http://www.michanikos.gr/showthread.php?t=21124

Εξέλιξη και τελειοποίηση προγράμματος υπολογισμού και υποβολής μηνιαίων ΑΠΔ Οικοδομοτεχνικών έργων στο ΙΚΑ (παραγωγή αρχείου) Πριν λίγο καιρό διέθεσα στο φόρουμ ένα αρχείο Excel με δυνατότητα να υπολογίζει ταχύτατα και να υποβάλλει τις μηνιαίες εισφορές για το ΙΚΑ, κάτι που γινόταν μέχρι πρότινος μόνο από τις δύσχρηστες φόρμες της ιστοσελίδας του ΙΚΑ ή με αγορασμένα προγράμματα, κλειστού κώδικα. Και λέω δύσχρηστες γιατί ενώ για λογιστές με σταθερό προσωπικό κάθε μήνα το "Αντιγραφή προηγούμενης περιόδου" δουλεύει μια χαρά, δυστυχώς για μηχανικούς που υποβάλουν ΑΠΔ Οικοδομοτεχνικών έργων τα πράγματα είναι πολύ πιο δύσκολα με το προσωπικό να εμφανίζεται ασυνεχώς στο χρόνο (πχ. Μάρτη και Ιούνιο οι μπετά ενώ ενδιάμεσα χτισίματα). Λόγω περιορισμένης γνώσης του αντικειμένου της ΑΠΔ-Οικοδομοτεχνικών, το πρόγραμμα είναι ακόμα ατελές (ως προς τους αυτοματισμούς, η παραγωγή αρχείου είναι πλήρης σύμφωνα με τις προδιαγραφές του ΙΚΑ). Αναμένω προτάσεις επι της λειτουργίας αλλά και ιδέες επι της δομής από συνάδελφους. Φυσικά ο κώδικας είναι ανοιχτός και τα όποια κλειδώματα θα είναι μόνο για ασφάλεια, χωρίς κωδικούς. Το αρχείο μπορεί να βρεθεί ΕΔΩ με τα σχόλια ως τώρα. Προσοχή: 1) στο πρόγραμμα περιήγησης καθώς επί του παρόντος το ΙΚΑ μπορεί να δεχτεί το αρχείο ως έχει μόνο από Internet Explorer ενώ με ενημέρωσαν από το ΙΚΑ ότι ο Mozilla θέλει κατάληξη ".apd" στο αρχείο 2) στην υποβολή καθώς κάθε υποβολή αρχείου είναι Οριστική και δεν γίνονται αλλαγές. Πολύ καλό έλεγχο από πριν. 3) Διαβάστε τις οδηγίες που το συνοδεύουν!!! Είναι εξαιρετικά εύχρηστο και αυτόματο, αλλά μέχρι να εξοικειωθείτε καλό είναι να ακολουθούνται συγκεκριμένα βήματα. 4) Αν κάτι δε δουλεύει βεβαιωθείτε ότι ακολουθήσατε τις οδηγίες, πάρτε πάλι τα βήματα από την αρχή χωρίς υποθέσεις. Κρατάτε ένα αντίγραφο του αρχικού προγράμματος ώστε να εξαλείψετε σφάλμα λόγω αλλαγών! Αν πάλι δε δουλεύει καλά, εδώ είμαστε για να βοηθήσουμε. 5) Το πρόγραμμα αυτό και την εξέλιξή του τα κάνω εγώ και όσοι συνάδελφοι βοηθήσουν στον ελεύθερο χρόνο μας, δωρεάν. Θα προσπαθούμε για άμεση ανταπόκρισή αλλά ανάλογα και με τον ιδιωτικό φόρτο εργασίας μπορεί να περάσουν και μέρες από τη στιγμή που θα εντοπίσετε κάτι μέχρι να απαντηθεί το ερώτημα. Ποτέ μην αφήνετε κάτι για την τελευταία στιγμή, ειδικά μέχρι να εξοικειωθείτε. Μια μεγάλη ΑΠΔ Ο/Τ με τα στοιχεία των εργατών διαθέσιμα ολοκληρώνεται σε λίγα λεπτά και η παραγωγή αρχείου είναι σχεδόν άμεση, Όμως λάθος χειρισμός μπορεί να σας κολλήσει για ώρες! 6) Το πρόγραμμα έχει 5 αραιό-γραμμένες σελίδες με οδηγίες, ΔΙΑΒΑΣΤΕ ΤΙΣ ΠΡΟΣΕΧΤΙΚΑ!!! Το ξανάπα και το επαναλαμβάνω. Απορίες που επεξηγούνται στα σχόλια θα απαντώνται με παραπομπή στα σχόλια --> άρα άδικο χάσιμο χρόνου δικό σας και δικό μου! *ΑΠΔ Ο/Τ στο παρόν thread θα νοείται ΑΠΔ οικοδομοτεχνικών Ιστορικό: Το πρόγραμμα ξεκίνησε σαν προσπάθεια υπολογισμού και συνοπτικής διαχείρισης των δεδομένων, ώστε να είναι ευκολότερη η χειροκίνητη ενημέρωση των ΑΠΔ Ο/Τ στην ιστοσελίδα του ΙΚΑ. Κατόπιν πολλών χαμένων ωρών προχώρησα στην εξέλιξή του ώστε να δημιουργεί αρχείο έτοιμο για υποβολή.

Ενδιαφέρον!!! Το έψαξα λίγο σε γνωστό ψαχτήρι, και βρήκα κάτι που δουλεύει. Δυστυχώς δεν είναι native Excel, αλλά έχει VBA και χρειάζεται προσοχή στη χρήση του, όμως δουλεύει. Επειδή δεν είναι δικό μου, συνάπτω το Link που υπάρχει και αρχείο με έτοιμο παράδειγμα: http://blog.livedoor.jp/andrewe/archives/50283818.html Είμαι σίγουρος ότι γίνεται και πιο εύκολα και μόλις βρω χρόνο θα το κοιτάξω. Χαιρετώ

Προσπαθώ να καταλάβω, είναι και η ώρα περασμένη... αλλά όπως λέει και ένας καλλιτέχνης... δεν κατεβάζει Για πες, ποιός είναι ο τύπος? που θες να πάει? τι να κάνει? Κάνε ένα παράδειγμα στο ίδιο το φύλλο ένα και σημείωσε με χρώμα ή με σχόλια τα άμεσα εμπλεκόμενα κελιά ώστε να καταλάβω καλύτερα. Δεν ξέρω αν γνωρίζεις τα βασικά, δηλαδή: 1) Γενικά σε φύλλο2 καλείς στοιχεία από φύλλο1 ως εξής: ='Πίνακας Υπολογισμού'!U6*5 αντί του =U6*5 που θα έγραφες στο ίδιο φύλλο. Αυτά δεν χρειάζεται να τα γράφεις αλλά την ώρα που συμπληρώνεις τη formula κάνεις κλικ στο αντίστοιχο κελί, στο ΄φυλλο που είναι. 2) Για επιλογή κάποιου από πολλά ανόμοια ίσως σε βολέψει η sumif() συνάρτηση του Excel. 3)Εννοείται ότι τα δυο παραπάνω συνδυάζονται. Ελπίζω να βοήθησα. Αν όχι περιέγραψε καλύτερα το πρόβλημα. Επίσης το <> είναι old_time_classic στην Basic (QB,VB,VBA...) αλλά παρατήρησα κάπου ότι ενώ δουλέυει το <> δεν δουλεύει το >< !!!! Χαιρετώ για την ώρα

αυτό δε δουλεύει? =IF(A2<>0;"true";"false")

Γιάννη, δεν υπήρχε επιθετικότητα, απλά απάντησα σε κάποια θέματα που έθιξες, και συνεχίζω. Προφανώς υπάρχει διάσταση απόψεων στη βάση του προγραμματισμού, και στο ρόλο αυτού του thread. 1ο Συμφωνώ για τη πολυγλωσσικότητα της επιλογής σου, όμως επιμένω ότι από θέμα φορητότητας μένει πίσω. Αλλιώς αντιγράφεις ένα module ή δυο συναρτήσεις, και αλλίως ένα φύλλο, ειδικά σε αρχεία που μπορεί να υπάρχουν πάρα πολλά φύλλα 2ο Όταν διαβάζεις διάβασε και κανένα σχόλιο ή ιστορία του thread, για καλύτερη κατανόηση. Έχοντας το βασικό εργαλείο μπορείς να κάνεις μικρότερα εργαλεία για πιο συχνή χρήση, ανάλογα με το τι θες και πόσο αξίζει. Αν έχεις ένα περιορισμένο εργαλείο… κάθε φορά μπαίνεις μέσα στον κώδικα (άρα εργαλείο για πιο λίγους) 3ο Δεκτό, και εγώ το είχα παρατηρήσει νωρίτερα αλλά από το μήνυμα σου δεν ήταν ξεκάθαρο το τι εννοούσες 4ο … 5ο Όταν πιάσεις καμιά εκατοστή σελίδες μαθηματικού κώδικα με 0 σχόλια ίσως κατανοήσεις την αξία τους. Μέχρι τότε, και εφόσον πρόκειται για forum με έννοια τη συνεργασία, κάνε την καρδιά σου πέτρα και βάζε τα για τους υπόλοιπους. Οι κανόνες στο προγραμματισμό έχουν βγει με βάση την εμπειρία και το κοινό καλό, και όχι τι αναγκάστηκες να μάθεις από κακούς προγραμματιστές και τι ακολουθείς στη ζωή. Λάθη των παλαιότερων και η νοοτροπία του "όπως δυσκολεύτηκα εγώ για να το μάθω έτσι να παιδευείτε και εσείς..." ελπίζουμε ότι ανήκει στο παρελθόν. Γενικά η olografws (πλέον OlografwsFull) φτιάχτηκε με την έννοια black-box για αρχαρίους και προχωρημένους, και όχι για διαγωνισμό ταχύτητας. Black-box εννοούμε να φτάσει σε σημείο να βάζεις κάτι και να ξέρεις τι παίρνεις, χωρίς επεμβάσεις μέσα στη συνάρτηση. Άρα πρέπει να μπορεί και να κάνει ότι ενδέχεται να χρειαστεί. Όπως πάντα αναμένω σχόλια για βελτιώσεις Παρομοίως Γιάννη

Χαίρετε Ανεβάζω μια ελαφρά ενημερωμένη έκδοση με προσθήκη δυνατότητας επιλογής: * Θηλυκών μονάδων * Μερικά επιπλέον σχόλια στον κώδικα * Διόρθωση για χειρισμό Μηδέν * Προσθήκη διατήρησης προσήμου μείον Δεν ενημερώνω ακόμα το αρχείο στα downloads μέχρι να σιγουρευτώ ότι είναι όλα οκ. Για λόγους συμβατότητας μπήκε ως optional στο τέλος της OlografwsFull. Παράδειγμα αλλαγών: Παλιό =Olografwsfull($A$20;TRUE;"κότες κότα χήνες χήνα";2) εκατό ένα εκατομμύρια έντεκα χιλιάδες διακόσια κότες και ένα χήνα Νέο: =Olografwsfull($A$20;TRUE;"κότες κότα χήνες χήνα";2;FALSE) εκατό μια εκατομμύρια έντεκα χιλιάδες διακόσιες κότες και μια χήνα Να απαντήσει κανείς ή να μην απαντήσει??? 1o κύριο μειονέκτημα είναι ότι χρειάζεται το 2ο Excel-όφυλλο για να δουλέψει, άρα πρέπει να το κουβαλάς μαζί σου. Και εγώ έτσι το ξεκίνησα αλλά... προχώρησα 2o Η olografwsFull είναι "εργαλείο" ; όχι παιχνίδι. Την συντάσσεις όπως θες ανά περίπτωση και αν θες κάτι πιο απλό για συχνή χρήση έχω παράδειγμα πώς να κάνεις πιο απλή olografws 3ο Σχετικά με τον κώδικα της olografws, είναι ο ελάχιστος απαραίτητος για να κάνει όσα κάνει. H Num to text είναι 2-3 γραμμές λιγότερες αλλά κάνει ελάχιστα. Για την ίδια λειτουργικότητα και χωρίς εξάρτηση από Excel-όφυλλο η olografws είναι πολύ μικρότερη 4ο Αν κάποιος θέλει προσαρμοσμένη στα μέτρα του εντολή, γράφεις μια όπως στη παρατήρηση 2ο. πχ Public Function Num2Text(Ari8mos_mou, Optional Akribeia As Integer = 0) If Akribeia = 0 Then Num2Text= OlografwsFull(Fix(Ari8mos_mou), False, , 0) Else Num2Text= OlografwsFull((Ari8mos_mou - Fix(Ari8mos_mou)) * 10 ^ Akribeia, False, , 0) End If End Function 5ο Καλός κώδικας <==> σχόλια στον κώδικα. Όποιος πάει να διαβάσει δεν χρειάζεται να σπάσει το κεφάλι του. Όποιος θέλει να προσθέσει-αφαιρέσει...αλλάξει κάτι το κάνει πιο εύκολα. Μετά από χρόνια όταν θα τη χρειαστείς και τη ξαναπιάσεις, θα καταλάβεις άμεσα τι έκανες και γιατί το έκανες! 6ο άσχετο αλλά δεν υπάρχει τίποτα χειρότερο από αλβανούς εργάτες να πλακώνονται στο διπλανό μπαλκόνι την ώρα που προσπαθώ να σχεδιάσω No 2 Text - Olografws.zip

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

ST2: Το Αρχείο ενημερώθηκε γιατί οι αλλαγές ήταν αρκετές. Ξανακατεβάστε παρακαλώ. για το 101.000,01 έχεις δίκιο, δεν το είδα καθόλου. Με παίδεψε λιγάκι αλλά είναι οκ τώρα. Το ...και ένα ή και δέκα εξαρτάται από την ακρίβεια (μπορεί κάποιος να θέλει χιλιοστά) οπότε δεν είναι λάθος Επίσης έκανα την πλήρη OlografwsFull και έβαλα τις "μικρότερες" olografws, olografwsEurw, olografwsM-Cm. Παραπάνω ο καθείς ότι χρειάζεται γιατί οι δυνατότητες δέν έχει νόημα να εξαντληθούν εδώ... Απλά καλείς την OlografwsFull όπως αγαπάς κάθε φορά πχ: public function Kalwopws8elw(Ari8mos_mou) Kalwopws8elw=OlografwsFull(Ari8mos_mou,Epilogh Monadas, typikes monades,dekadikoi) end function PS1: Τώρα θα πρέπει να παρακαλέσω τους Admin να ενημερώσουν με το ανανεωμένο αρχείο και το Olografws στην 11.1 PS2: Κάτι πήγε στραβά προηγουμένως και το αρχείο μολις το ξαναανέβασα. Συγνώμη για το μπέρδεμα αλλά ειλικρινά δεν ξέρω πως έγινε. Μέγεθος 48.7Kb με 2 αρχεία μέσα, ~12:36 ώρα δημιουργίας.

Χαίρετε φίλοι και συνάδελφοι Επειδή το Ολογράφως ήταν χαοτικό, έκανα μια πιο "εξελιγμένη" έκδοση με πιο συμαζεμένο κώδικα και σχόλια. Περιλαμβάνει δυνατότητα προσδιορισμού δεκαδικών, προσθήκης ή όχι μονάδων και αλλαγής μονάδων! Όλα αυτά από το κάλεσμα της συνάρτησης, χωρίς να μπαίνουμε σε κώδικα... Δέχεται ως αριθμό: αριθμό ή κείμενο. Το ανέβασα και στο Λογισμικό 11.1 (νομίζω) αλλά το στέλνω και εδώ για πιο ειδικά. Για χρήση αρκεί η αντιγραφή του module1 σε οποιοδήποτε φύλλο (sheet) σας... Γενικά η VBA αναφέρει ότι για να ληφθούν υπόψη Regional Settings επιβάλεται χρήση της CDBL=string ... Εμένα μου δουλέυει αλλά δοκιμάστε το και εσείς. Φυσικά αναμένω σχόλια, προτάσεις κλπ No 2 Text - Olografws.zip

Ωραίος!!! Κάτι δεν μου δουλεύει σωστά: ? olografws(101558.13) ΕΚΑΤΟΝ ΧΙΛΙΑΔΕΣ ΠΕΝΤΑΚΟΣΙΑ ΠΕΝΗΝΤΑ ΟΚΤΩ ΚΑΙ ΔΕΚΑ ΤΡΙΑ .........../\... λείπει το ΜΙΑ

δυστυχώς δεν παίρνει νούμερα που θα βόλευε. κάνε νέα ρουτίνα (sub) Που να καλεί αυτή που θες και αντιστοίχισε την στο αλλόγλωσσο πλήκτρο! πχ. αν καλείς macro2 με ctrl+x τότε: Sub Call_Macro2() ' Keyboard Shortcut: Ctrl+χ macro2() End Sub και alt+f8 ...

καλησπέρα, μια γρήγορη απάντηση και ελπίζω να σε καλύψω (γίνεται χρήση μακροεντολής που ίσως να μην τη θες...): alt+F11 --> VBA Editor στο VBAProject(paradeigma.xls) δεξί κλικ πάνω σε κάποιο sheet και "add module" στο module μέσα (με κλικ πάνω του ή δεξί κλικ και view code) copy-paste το παρακάτω (SUB ... μέχρι και END SUB): -------------------- Sub Macro2() ' ' Macro2 Macro ' ' Keyboard Shortcut: Ctrl+x ' a = ActiveCell.Row Rows(a + 1).Select Selection.Insert End Sub ---------------------- Alt+F8 --> Macro επιλέγεις το macro2 και Options και βάζεις το x ή όποιο πλήκτρο θες για να το καλείς (shortcut key). Οκ.... τώρα επιλέγεις το κελί και ctrl+x (ή ότι έβαλες)... και ιδού προσοχή! το πλήκρο εξαρτάται από την γλώσσα, ίσως και από το άν είναι κεφαλαία-μικρά PS: ελπίζω να κρατάει κανείς χρόνο απάντησης...

τι λέτε και για αυτή την εκδοχη? http://www.michanikos.gr/downloads.php?do=file&id=1393 λίγοι αυτοματισμοί παραπάνω δεν βλάπτουν

Στο από 25-06-2010, 09:16 μήνυμα έχω κάνει μια διορθωσούλα με χρήση “formulaR1C1” η οποία λύνει το θεματάκι. Κάνε πάλι copy-paste τις συναρτήσεις και διάβασε τα σχόλια στην δεύτερη για φύλλα και ελληνικό Excel Η Sumif() είναι στάνταρ συνάρτηση του Excel εδώ και πολλά χρόνια… (σαμιφ) Όπως ανέφερα κοιτώντας τα προγράμματά μου για ΙΚΑ με τα σχόλιά τους θα βρείς ακριβώς αυτό που θέλεις… με λίγο υπομονή και επιμονή (απαντώντας σε σχόλια ως 28/6) Η Getif() είναι η εξής (κάντη copy-paste σε module για να φαίνεται με complete-help από excel): ' Syntasetai akribws opws h SUMIF, dhladh "GetIf (Range1;Criteria;Range2)" ' kai briskei range2(i) wste range1(i)=criteria ' Pi8ano na doyleuei kai se sthles alla to egrapsa gia grammes ' Genikhs xrhshs xwris opoiondhpote elegxo h beltistopoihsh ' ' Goylandris Apostolos, Apr 2008 ' Public Function GetIf(a, b, c) GetIf = "-": counter = 0: counter2 = 0 For Each dum1 In a ' Search for index counter = counter + 1 If b = Trim(dum1) Then Exit For Next If b = Trim(dum1) Then For Each dum1 In c ' Use index to find equivalent counter2 = counter2 + 1 If counter2 = counter Then GetIf = dum1: Exit For Next End If End Function