[VBA] Πρόγραμμα εργασίας- Εφημερίες- Επιτηρήσεις- Κατανομή προσωπικού σε βάρδιες (πόστα)

[kapetang]

Καλησπέρα

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

Επειδή κάθε μέρα απαιτούνται 14 εργαζόμενοι, για να λειτουργήσει το πρόγραμμα, οι διαθέσιμοι
(αυτοί που μένουν μετά την αφαίρεση των κωλυομένων) πρέπει να είναι, κάθε μέρα, >=14.

Στο πρόγραμμα έχουν γίνει αρκετές μεταβολές, ώστε να είναι ευκολότερη η προσαρμογή του:

1) Οι ημερομηνίες δε συμπληρώνονται με τύπους, αλλά με το εργαλείο που διαθέτει το Excel για τη συμπλήρωση σειρών ημερομηνιών.

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

2) Για τη διευκόλυνση της προσθήκης και της διαγραφής γραμμών, στο φύλλο "Program" αφαίρεσα τις στήλες με τα ονόματα και τις συνολικές βάρδιες και τα στοιχεία τα πρόσθεσα στο φύλλο "Data"

3) Όταν επιλέγουμε προσωπικό για μία ημερομηνία, ο κώδικας υπολογίζει τις συνολικές βάρδιες, κάθε διαθέσιμου εργαζόμενου πριν από την ημερομηνία και επιλέγει τους 14 με τις λιγότερες βάρδιες.

Έτσι επιτυγχάνεται εξισορρόπηση στις βάρδιες.

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

Για τη λύση αυτού του προβλήματος (αν θεωρηθεί πρόβλημα) πρόσθεσα στο φύλλο "Data" και τη στήλη "Βάρδιες αλλού".

Κάνε δοκιμές, πατώντας αρκετές φορές το κουμπί "Προσθήκη", για να διαπιστωθεί ότι το πρόγραμμα, λειτουργεί σωστά και μετά κάνε τις αναγκαίες προσαρμογές πχ στις ημερομηνίες, σε τίτλους στηλών, κλπ.