apostolos55

Απ' ότι θυμάμαι τα έργα κλειδώνουν τον προϋπολογισμό τους σε κάποιο τρίμηνο και η μετέπειτα πληρωμές ανάγονται στο τρίμηνο εφαρμογής με συντελεστές αναθεώρησης από ΠΕΔΜΕΔΕ http://www.pedmede.gr/index.php?Itemid=118&id=78&option=com_content&sectionid=8&task=category

Οπότε η Πολιτεία δεν αγχώνεται με το να βγάζει συνέχεια νέες τιμές, βγάζει όμως (συνήθως αρκετά γρήγορα) τους συντελεστές. Προσοχή όμως γιατί κάποιες τιμές παίρνουν ενίοτε την κατιούσα... αφού ακολουθούν την αγορά!!!

Ωστόσο δεν ξέρω αν εφαρμόζεται η αναθεώρηση σε Αναλυτικό προϋπολογισμό, καλύτερα ρωτήστε το ΤΕΕ τι γίνεται / αν γίνεται.

πλεον το ΙΚΑ ζητάει τα αρχεία σε μορφή CSC01 (ή CSC01.apd) και όχι CSL01 έκανα όμως μετονομασια και το πήρε κανονικά

Η εγγραφή του Ονόματος γίνεται και μέσα στο Αρχείο του ΙΚΑ, και παρόλο που δεν ξέρω πόσο μετράει, καλό είναι να αλλάξεις το όνομα στην 1η σελίδα (ΑΠΔ gen) cell(5,2) ώστε να πηγαίνει σωστά παντού...

αρκετες φορες που κάνω τον έλεγχο με την ρουτίνα του ΙΚΑ μέσα από το excel μου βγάζει πρόβλημα πετάει error - file not found και θέλει debug

οπότε πάω από το application του ΙΚΑ και κάνω έλεγχο

ερώτηση το application του ΙΚΑ που έχεις σε ξεχωριστό φάκελο είναι ο ίδιος έλεγχος με το πρώτο Yes του excel ??

--3-- είναι η θέση του αρχείου (πχ: c:\temp\)

--5-- με Yes καλεί το αρχείο ελέγχου από τη θέση --3--. Αν τα έχεις γράψει σωστά δε γίνεται να μην τα βλέπει. Αυτά τα φτιάχνεις 1 φορά και δεν χρειάζονται αλλαγή σχεδόν ποτέ.

και μια ερωτησούλα για το ΙΚΑ αν και το ξέρω οτι δεν είναι σωστό αλλά...

 

όταν κάνεις υποβολή με φόρμα και πας

Ηλεκτρονική Υποβολή ΑΠΔ / Διαχείριση Δηλώσεων / Υποβληθείσες Δηλώσεις και πατάς στο Aριθμός Δήλωσης

ενώ όταν την έχεις κάνει μέσω ΙΚΑ σου βγάζει στο pop-up παράθυρο και τα στοιχεία των εργαζομένων

όταν τώρα το έκανα με την φόρμα από το excel μου βγάζει μόνο

Α.Μ.O.Ε.,Α.Φ.Μ., ΜΗΝΑΣ/ΕΤΟΣ,ΣΥΝΟΛΑ ΑΠΔ ,ΕΡΓΑΖΟΜΕΝΩΝ,ΗΜΕΡΩΝ ΑΠΑΣΧΟΛΗΣΗΣ,ΕΙΣΦΟΡΩΝ,ΑΠΟΔΟΧΩΝ με τους αντίστοιχους αριθμούς

χωρίς περαιτέρω στοιχεία ούτε για το έργο ούτε για τους εργαζόμενους

και το Αντίγραφο Αποδεικτικού Παραλαβής

 

 

αυτό θα έπρεπε να βγάζει ??

ορθόν!! γιαυτό μπορείς να κάνεις εκτύπωση τον μήνα σου από τη σελίδα του. Αν κάποιος χρειαστεί βεβαίωση ότι κατέθεσες τα ημερομίσθια του, του δίνεις την εκτύπωση με μια υπεύθυνη δήλωση... Προτείνω να τα κάνεις πάντα εκτύπωση (τον μήνα, το συνοπτικό του ΙΚΑ, το αποδεικτικό παραλαβής και την πληρωμή) αφού είναι υποχρεωτικό να τα κρατήσεις 10 χρόνια και δεν θα εμπιστευόμουν μόνο τους server του ΙΚΑ, σε PDF και σε χαρτί!

Τις Προάλλες πήγα στο ΙΚΑ να κλείσω ένα έργο με 100% ηλεκτρονικές υποβολές (70% site 30% αρχείο) και το παλικάρι τα έβγαζε στον υπολογιστή του μήνα μήνα, και έκανε τα αθροίσματα με το χέρι!!! Εγώ βέβαια είχα τις εκτυπώσεις ανά χείρας και τον διόρθωνα όπου χρειαζόταν (και πίστεψέ με χρειάστηκε) αλλά ήθελε να τα κάνει μόνος του.

Και να φανταστείς ότι μιλώντας με τους αρμόδιους στο ΙΚΑ τους πρότεινα να το φτιάξουμε το αρχείο δωρεάν (από εμένα) για όλους (όχι μόνο Οικοδομοτεχνικά) και ακόμα περιμένω απάντηση... Ίσως άν μπορούσα να το χρεώσω υπέρογκα... να υπήρχε ενδιαφέρον. Κρίμα πάντως.

BAS

Manolis gon

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

Ευχαριστώ, Απόστολος

το 'χεις δοκιμάσει και σε 3 στήλες?? ή μπερδεύεται?

Sky is the limit... ή τέλος πάντων όσο αντέχεις μέχρι να μπερδευτείς!!

βλ νέο συνημμένο όπου το έχω με 3 επίπεδα lists (το προηγούμενο είχε 2 επίπεδα), αλλά για παραπάνω επίπεδα κάνε τις δοκιμές σου

Data Validation Depended.zip

Επανέρχομαι σε ένα πολυσυζητημένο θέμα Data Validation με δυνατότητα επιλογής της λίστας από κάποιες διαθέσιμες.

Δηλαδή η λίστα που θα με προτρέπει να επιλέξω να γεμίζει ανάλογα με κάποια προηγούμενη επιλογή μου!!

βλ συνημμένο αρχείο για λεπτομέρειες.

Τα links που περιέχονται στο αρχείο είναι στα αγγλικά μεν, πολύ κατατοπιστικά δε με πληροφορίες για συναρτήσεις όπως η match, index, vlookup και εμπλοκή τους.

ΣΗΜΕΊΩΣΗ: Τα παραπάνω προφανώς και δεν είναι για αρχάριους στο Excel, παρόλο που αν πάνε βήμα-βήμα θα έχουν το επιθυμητό αποτέλεσμα. Ίσως χρειαστεί ανασκόπηση σε απλό DataValidation με ονομασμένες λίστες εδώ: http://www.michanikos.gr/showpost.php?p=237860&postcount=118

Data Validation Depended.zip

Samdreamth:

Το πρόβλημα εμφανίστηκε επειδή χρησιμοποίησες data-validation με αναφορά σε κελιά, που εμφανίστηκε σε νεώτερη έκδοση.

Χρησιμοποίησε την παλιά-καλή έκδοση με αναφορά σε ονομασμένη λίστα όπως έδειξα παλιότερα εδώ http://www.michanikos.gr/showpost.php?p=237860&postcount=118 και δεν θα έχεις πρόβλημα με λίστες σε άλλα φύλλα...

ΙΚΑ

Συνάδελφοι να ενημερώσω ότι για μικρό χρονικό διάστημα ακόμα (ως 05/06/2011), υπάρχει η δυνατότητα-υποχρέωση να διορθωθούν λάθη προηγούμενων ΑΠΔ (01/2002 ως 12/2010). Περισσότερα εδώ: http://www.ika.gr/gr/infopages/news/20110401.cfm

ΑΛΛΑΓΗ MODULE

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

ALT+F11 (το αριστερό Alt) για άνοιγμα του VBA Editor

σε microsoft Visual Basic πλέον:

σε Project-VBAProject (αν δε φαίνεται πατάμε Ctrl+R) / σε Modules / Module1 κάνουμε δεξι κλικ -->Import File

και επιλέγουμε το αρχειάκι που βρίσκεται μέσα στο συμπιεσμένο παραπάνω,

http://www.michanikos.gr/showpost.php?p=289722&postcount=5 (ίσως χρειάζεται προηγουμένως αποσυμπίεση)

Το νέο module θα πάρει όνομα με μεγαλύτερη αρίθμηση από το αρχικό

Σβήνουμε το αρχικό: δεξί κλικ πάνω στο module1, Remove module1 , No

et voila!!! περάστηκαν οι αλλαγές

παιδιά να ρωτήσω και εγώ κάτι

αν σε ένα κελί θέλω να έχω μια αναδιπλούμενη λίστα με προεπιλογές

πως το κάνω;

έχει απαντηθεί και παλιότερα, κρίμα γεμίζουμε το thread με τα ίδια...

βλ http://www.michanikos.gr/showpost.php?p=237860&postcount=118

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

θ) τρέχεις και τσεκάρεις...

...ελπιζω να σου κάνει κάτι τέτοιο

Αυτο ειναι τροποποιημενο το αρχειακι

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

του gousgounis την προτεινομενη λυση δεν το εχω δοκιμασει αλλα απο οτι εχω καταλαβει αφορα τα φυλλα

 

ενω απλα θελω στις σελιδες της εκτυπωσης αν παμε απο

προβολη > διαταξη σελιδας

να ειναι μια γραμμη πανω (στην θεση της κεφαλιδας) που να λεει απο μεταφορα

και κατω (στη θεση του υποσελιδου) να λεει σε μεταφορα

 

@apostolos55 η getif δεν μου δουλευει

την πηρα απο το αρχειο του ΑΠΔ τον κωδικα που εχεις φτιαξει και το εκανα προσθετο

εχω excel 2010 ελληνικο

και επισης το εχεις πλεον δοκιμασει σε στηλες?

α) δουλεύει κανονικότατα η 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 ώστε όταν σβήνουμε την περιγραφή να μην σβύνεται το εμβαδό στο διπλανό κελί

Χαιρετώ συναδελφικά

ρε παιδια περα απο τον john_john ξερετε πως μπορω να δημιουργησω ενα κελι που διπλα εχει ενα κουμπακι(το γνωστο με τη μυτη βελους ) και οταν το πατας σου δινει να διαλεξεις απο μια λιστα ????

(ο john_john στο αρχειο του το κανει στο Φυλλο1 με τους μηνες που τους εχει στην ιδια γραμμη λιγο πιο περα )

Ένας απλός τρόπος είναι με 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...) αλλά παρατήρησα κάπου ότι ενώ δουλέυει το <> δεν δουλεύει το >< !!!!

Χαιρετώ για την ώρα

@ slalom

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

Ξερει κανεις πως μπορω να χρησιμοποιησω στην if το διαφορο του μηδενος ?????

αυτό δε δουλεύει?

=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)

εκατό μια εκατομμύρια έντεκα χιλιάδες διακόσιες κότες και μια χήνα

Καλησπέρα και από μένα!

 

Σχετικά με την olografws, οι άποψή μου είναι πως μια τέτοια συνάρτηση θα πρέπει να είναι όσο γίνεται πιο λιτή στην επιστρεφόμενη τιμή της ώστε να προσφέρει τη μέγιστη ευελιξία στους τύπους που θα εισαχθεί.

Συνεπώς οι εκφράσεις των μετρικών μονάδων (μέτρα κτλ) είναι περιττές διότι αυτές μπορούν να εισαχθούν στο τύπο που θα φιλοξενήσει την olografws.

 

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

Έτσι λοιπόν έφτιαξα την NUMTEXT που θα βρείτε στο συνημμένο (NUM_TEXT.zip) η οποία επιστρέφει είτε το ακέραιο μέρος μια τιμής σε ολογράφως, είτε το δεκαδικό.

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

 

Ένας απλός τρόπος χρήσης της είναι ο

=NUMTEXT(Α1)&" ευρώ και "&NUMTEXT(Α1;;TRUE)&" λεπτά."

Επειδή πρόκειται για πρώτη έκδοση σίγουρα θα επιδέχεται βελτίωσης, γιαυτό

οποιαδήποτε παρατήρηση και σχόλιο είναι ευπρόσδεκτα.

Περισσότερα όμως στο συνημμένο.

 

Τέλος θα ήθελα να πώ ένα μεγάλο μπράβο σε όλους εσάς

που με τις προσπάθειές σας διατηρείτε ζωντανό αυτό εδώ το νήμα.

 

Φιλικά, Γιάννης.

Να απαντήσει κανείς ή να μην απαντήσει???

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

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