[Συναρτήσεις] Αυτόματη εισαγωγή αριθμών βάσει παραμέτρων

[kapetang]

Καλησπέρα στην παρέα

Στο προηγούμενο μήνυμά μου παρουσίασα μια προσέγγιση του ζητούμενου, χρησιμοποιώντας το πρόσθετο ΕΥΡΕΣΗ (SOLVER) και κώδικα VBA.

Στο αρχείο που επισυνάπτω υπάρχει μία λύση η οποία στηρίζεται σε μία συνάρτηση χρήστη, ValuesWithFixSum(Sum As Integer, Etos As Integer, Minas As Integer, NoSK As Boolean), που δημιουργήθηκε με VBA.

Πρόκειται για μία συνάρτηση πίνακα (επιστρέφει 31 τιμές) με 4 ορίσματα:

• Sum : Είναι οι συνολικές ώρες εργασίας.
• Etos : Το έτος στο οποίο αναφέρεται η εργασία
• Minas: Ο μήνας στο οποίο αναφέρεται η εργασία.
• NoSK: Παίρνει τιμή 1, αν τα Σαββατοκύρια εξαιρούνται και 0 αν δεν εξαιρούνται

Η συγκεκριμένη λύση δεν απαιτεί το πρόσθετο, είναι πολύ ταχύτερη και πιο ευέλικτη, αφού μπορεί να λάβει υπόψη τη διάρκεια του μήνα, αλλά και τα Σαββατοκύριακα.

Λεπτομέρειες για τη μέθοδο αυτή δίνονται στο Sheet1 του βιβλίου εργασίας.

Πάνο, δοκίμασε και αυτή τη λύση και ενημέρωσέ μας.

Φιλικά/Γιώργος

ΥΓ. Φίλε Θανάση ευχαριστώ